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

watabe007 · ベストアンサー

tab:=false, _
comma:=true, _
space:=false

では

お礼

お礼が遅くなってごめんなさい！！
たすかりました。　祥子