EXCELにテキストファイルを読込むマクロ作成

質問

EXCELにテキストファイルを「カンマ区切り」で読み込みしたいのですが、
下記マクロの内容ではカンマ区切りで正しくインポートされないのですが
作成方法ご伝授お願いいたします。

sub macro1()
　dim myFile as string
　myfile = application.getopenfilename(filefilter:="テキストファイル(*.txt),*.txt")
　if myfile = "False" then exit sub

　workbooks.opentext _
　　filename:=myfile, _
　　datatype:=xldelimited, _
　　textqualifier:=xltextqualifierdoublequote, _
　　tab:=true, _
　　comma:=true, _
　　space:=true

’予備
　activeworkbook.worksheets(1).move before:=thisworkbook.worksheets(1)
end sub

回答No.1

keithin · ベストアンサー

ご相談に掲示されたマクロで正常に作動します。
もう一度，ご質問に書かれたそのマクロをあなたのエクセルに登録し直してから，改めて実施してみてください。

それでもダメなら
１．あなたが「実際に動かしているマクロ」をあなたのエクセルからコピーして，掲示してください
２．そのマクロで解決できない実際のテキストファイル（の中から，必要に応じて公開しちゃまずい内容とかは削除して）の内容を添えて，
３．念のため（通常は関係ありませんが）あなたが普段使っているエクセルのバージョンを添えて
別途のご相談として投稿し直してください。

お礼

ありがとうございました。
再質問しました。　　　　祥子