![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルのマクロで外部データの取り込みをすると絶対アドレスになってしまいます。
HTMLのように相対参照したいのですが良い方法はありませんか。"TEXT;C: … N1 (1).DAT" を "TEXT;N1 (1).DAT" に変えただけではエラーが出ます。
Sub dainyu1()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;N1 (1).DAT" _
, Destination:=Range("B3"))
.Name = "N1(1)"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.Preserv
No.2
- 回答日時:
tanaka2030 さん、こんにちわ。
>"TEXT;C: … N1 (1).DAT" を "TEXT;N1 (1).DAT" に変えただけではエラーが出ます。
という事ですので、ご質問の相対参照(?)でのPATH取得の為に
絶対PATHの部分を置き換えれば良いのではないでしょうか。
"TEXT;" & ActiveWorkbook.Path & "N1 (1).DAT"
こんな感じではいかがですか?
回答ありがとうございます。変更しましたができません。下記プログラムのようにしましたがデバックすると一番下のRefresh…が黄色くなります。わかれば回答お願いします。
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "N1 (1).DAT" _
, Destination:=Range("B3"))
.Name = "N1(1)"
.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 = 2
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileFixedColumnWidths = Array(6)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 16:59
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/04 12:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
自動改札のエラーって…
-
SUM関数の範囲に#N/Aが...
-
Chatgptから送られてきたリンク...
-
Excelでエラー(#N/Aなど)値を...
-
ExcelでVBAを使用した際に、『...
-
APEXをやっていたらこんなエラ...
-
ACCESS VBA でのエラー解決の根...
-
Eエクセルの計算方法で空欄を0...
-
もしセルが"#N/A"なら~をする...
-
VLOOKUPで求めた数値をさらにVL...
-
チケット何回もエラーは高額請求?
-
送信エラー時、レポートメール...
-
モバイル通信ができない。
-
VBAで「致命的なエラー」が出ま...
-
改札エラーについて
-
エクセルのエラー文について
-
エクセルのマクロで外部データ...
-
■□■読み方■□■ #N/A, #VALUE!, ...
-
VLOOKUP関数についての質問です...
-
Excelのマクロで指定したセルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでエラー(#N/Aなど)値を...
-
SUM関数の範囲に#N/Aが...
-
ExcelでVBAを使用した際に、『...
-
チケット何回もエラーは高額請求?
-
もしセルが"#N/A"なら~をする...
-
Chatgptから送られてきたリンク...
-
自動改札のエラーって…
-
Eエクセルの計算方法で空欄を0...
-
VBAで「致命的なエラー」が出ま...
-
APEXをやっていたらこんなエラ...
-
送信エラー時、レポートメール...
-
VLOOKUPで求めた数値をさらにVL...
-
EXCELマクロで☓400とでます
-
ACCESS VBA でのエラー解決の根...
-
VLOOKUP関数についての質問です...
-
改札エラーについて
-
エクセルのエラー文について
-
システムエラーです:&H80004005...
-
新生活を始めるために電化製品...
-
■□■読み方■□■ #N/A, #VALUE!, ...
おすすめ情報