投稿日 | : 2003/02/10(Mon) 02:01 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 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",01−15,01-15
"01-15","01−15",01−15,01-15