返回列表 上一主題 發帖

[發問] 如何用變數取代路徑文字

dreamsway

帖子
26 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
Win10 
軟體版本
Office2019 
閱讀權限
10 
性別
男 
註冊時間
2018-10-12 
最後登錄
2022-7-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-10-25 21:15 | 顯示全部帖子

[發問] 如何用變數取代路徑文字

本帖最後由 dreamsway 於 2018-10-25 21:17 編輯

各位前輩好，我透過錄製巨集的方式記錄了匯入外部資料的動作，呈現以下內容
  1.     'With ActiveSheet.QueryTables.Add(Connection:= _
  2.         "TEXT;C:\API\20181018\TXFK8\20181018_Match.txt", Destination:=Range("$A$2"))
  3.         .name = "20181018_Match"
複製代碼
想詢問如何透過變數的方式來取代路徑的文字呢？
其中20181018這個數字為當日的日期、TXFK8這個文字為Sht1.Range("A4")儲存格內的文字
爬了教學文章後試著寫出以下內容
  1. Dim d As Date, n As String
  2. d = DateValue '好像要給格式範例
  3. n = Sht1.Range("A4")

  5.     With ActiveSheet.QueryTables.Add(Connection:= _
  6.         "TEXT;C:\" & "API" & "\" & d & "\"& n & "\" & d & "_Match.txt"", Destination:=sht2.Range("$A$2"))
  7.         .name = "d & "_Match""
複製代碼
此巨集沒反應，尤其是_Match這個底線一直顯示為不正確字元
請問該如何調整呢，謝謝！
收藏 分享

dreamsway

帖子
26 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
Win10 
軟體版本
Office2019 
閱讀權限
10 
性別
男 
註冊時間
2018-10-12 
最後登錄
2022-7-25 
2#
發表於 2018-10-27 00:44 | 顯示全部帖子
謝謝兩位前輩的分享，小弟電腦的OFFICE剛安裝了新版本，介面操作有些許不同，怕程式代碼也跟著些微不同，待確認後再回復後續，謝謝！

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題