2016でテキストファイル区切って読み込みできず

Question

Anonymous

テキストファイルを読み込むマクロを作成しました。

Excel2010では希望通りの結果が得られますが、

Excel2016では、指定文字が区切られずに読み込んでしまいます。

下記がそのマクロです。

何がいけないのでしょうか。

Sub Macro1()

Workbooks.Open Filename:=Windows.Application.GetOpenFilename("ファイル,*.*,全て,*.*")

Dim Open_File As String '指定のファイル名

Open_File = ActiveWorkbook.Name

Workbooks.Open Filename:=Open_File

Windows(Open_File).Activate

Workbooks.OpenText Filename:=Open_File, _

Origin:=1257, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma:= _

False, Space:=True, Other:=True, OtherChar:="!", FieldInfo:=Array(Array _

(1, 2), Array(2, 2), Array(3, 2)), TrailingMinusNumbers:=True

End Sub

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

晃一晃一さん、こんにちは。

マイクロソフトコミュニティをご利用いただき、ありがとうございます。

テキストファイルを読み込むマクロがうまく動作しないのですね。

マクロが関連するような場合、一般向けのこのマイクロソフトコミュニティでは該当するカテゴリがないため、情報が集まりにくいと思います。

今回の内容であれば、開発者の方々が多く利用されている MSDN フォーラムの VBA のカテゴリに投稿してみるとアドバイスが寄せられやすくなると思います。

よければそちらを利用してみてくださいね。