返回列表 上一主題 發帖

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

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這個底線一直顯示為不正確字元
請問該如何調整呢，謝謝！
收藏 分享

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
2#
發表於 2018-10-26 11:03 | 只看該作者
Dim d As String, n As String
d = Format(Date, "yyyymmdd")
n = Sht1.Range("A4")
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\API\" & d & "\" & n & "\" & d & "_Match.txt", Destination:=sht2.Range("A2"))
    .Name = d & "_Match"

End With

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2018-10-26 11:05 | 只看該作者
試試
"TEXT;C:\API\"& Year(Now) & Month(Now) & Day(Now) &"\" & SHEET1.RANGE("A4") & "\" & Year(Now) & Month(Now) & Day(Now)&"_Match.txt"
羅

TOP

dreamsway

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

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題