投稿日	： 2003/02/10(Mon) 02:01
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: CSV出力

> ="01-15"
> で保存しておけばいいかと・・・。

すみませんでした。私の早とちりでした。　データの前に　= を付加してやると
いう事ですね

通常のCSV形式でファイルを作成し、拡張子を　.Txt にして保存した場合
下記のように設定するば文字列として読込みます。
又、拡張子さえ変更すれば、通常のCSVファイルとしても使用できます。

Private Sub Command1_Click()
    Dim xlApp    As Excel.Application
    Set xlApp = New Excel.Application
    xlApp.Workbooks.OpenText FileName:="C:\My Documents\test001.txt", _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        Comma:=True, FieldInfo:=Array(Array(1, 2), Array(2, 2), _
        Array(3, 2), Array(4, 2))
    xlApp.Visible = True
    Set xlApp = Nothing
End Sub


使用データ("C:\My Documents\test001.txt")

"01-15","０１−１５",０１−１５,01-15
"01-15","０１−１５",０１−１５,01-15
"01-15","０１−１５",０１−１５,01-15

★ - CSV出力 - HIro 02/08-01:08No.2650
• Re: CSV出力 - takk 02/08-09:59 No.2653
  • Re^2: CSV出力 - HIro 02/08-12:27 No.2658
    • Re^3: CSV出力 - 花ちゃん 02/10-00:32 No.2669
      • Re^4: CSV出力 - Say 02/10-01:20 No.2670
        • Re^5: CSV出力 - 花ちゃん 02/10-02:01 No.2671
          • Re^6: CSV出力 - HIro 02/10-19:17 No.2686
            • Re^7: CSV出力 - 花ちゃん 02/10-20:07 No.2687