テキストファイルのインポートが出来ません。

質問

デスクトップの同じフォルダ内に a.txt を作成してファイルのインポートを行おうとしましたができません。なぜでしょうか？

Sub TextFileOpen()

Workbooks.OpenText Filename:="a.txt", _
DataType:=xlDelimited, _
comma:=True
End Sub

回答No.1

imogasi · ベストアンサー

この質問はVisualBasicと表題にあり、コードはWorkbooksとあるのでエクセルらしいですね。VBとVBAは違うと言う前提のほうが良いのではないでしょうか。VBAという区分はなかったでしょうか。
私の場合c：￥My　Documentsにあるファイルですが
下記で上手くエクセルに読みこみましたが。
ツール－マクロ－VBE
挿入－標準モジュール。
コピペ－一部手直し。
上手く行かないとすれば、ファイル指定のパスの問題ではないでしょうか。
Sub TextFileOpen()
Workbooks.OpenText Filename:="c:\My Documents\aa1.txt", _
DataType:=xlDelimited, _
comma:=True
End Sub
上記「My　」の後の改行は取り除いてください。

お礼

分かり易い説明ありがとうございました。