エクセル マクロ 教えてください

質問

お世話になります
エクセルのマクロ記録を使った結果が下記のようになりました。
そこで、ファイルは自分で選択して開きたいと思い
色々調べた結果　Application.GetOpenFilenameを使用すればよい事がわかりましたが、どの部分を変更すればよいのかわかりません
やりたいことは、ｔｘｔファイルの中身の不要な部分を削除して必要な部分だけを取り出したいのです。
どうぞ、よろしくお願いします。

Sub Macro1()
'
ChDir "C:\Documents and Settings\My Documents\next\aaa"
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\My Documents\next\aaa\aaa.txt" _
, Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=True, OtherChar:="(", FieldInfo:= _
Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 9), Array(7 _
, 9)), TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
End Sub

回答No.1

papayuka · ベストアンサー

OpenText の引数 Filename に Application.GetOpenFilename の戻り値を渡せば良いだけです。
殆どヘルプのままですが、最低限のエラー処理としてキャンセル時の処理を追加しています。

ChDir "C:\Documents and Settings\My Documents\next\aaa"
fName = Application.GetOpenFilename("テキスト ファイル (*.txt), *.txt")
If fName = False Then Exit Sub
Workbooks.OpenText Filename:=fName _

お礼

有難うございます。
何とかできました　また何かの機会があればよろしくお願いします