現在のフォルダからテキストを読み込むエクセルマクロ

質問

小さな会社で事務仕事をしております。
仕事上、困ったことがあり、どなたか教えて頂きたいです。

テキストファイルをエクセルに読み込み、
ある文字にて区切り、セルに張りつけたいのです。
テキストの数が多いため、マクロを作成したいと思っております。

マクロの記録にて下記（ソース）まで来ているのですが、
実際にやりたいのは、
「現在のエクセルブックと同じフォルダにある」テキストファイルを読み込むことなのです。
私が記録したマクロでは、「固定フォルダ」になっており、
例えば、フォルダ名が変わってしまうと、動作しません（テキストを読み込めません）。

Sub Macro3()
'
' Macro3 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\crown_800\test.txt", Destination:= _
Range("$A$1"))
.Name = "test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = "["
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Webにてカレントディレクトリの取得方法を勉強し、
下記ソースに反映しようとはしているのですが、うまくいきません。

どなたかご相談に乗って頂けないでしょうか？
よろしくお願いいたします。

回答No.1

hallo-2007 · ベストアンサー

試してはいませんが
>「現在のエクセルブックと同じフォルダにある」テキストファイルを読み込むことなのです。
ですので
"TEXT;C:\Users\crown_800\test.txt"
の部分を
"TEXT;" & Thisworkbook.Path & "\test.txt"
として試してみてください。

お礼

ありがとうございました！
フォルダを変えても、きちんと動きました！
本当に助かりました！