返回列表下一主題上一主題發帖

[發問] 想請問自動存檔路徑如何讀取讀儲存格做路徑呢?

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-6-4 17:10 | 只看該作者

[發問] 想請問自動存檔路徑如何讀取讀儲存格做路徑呢?

本帖最後由 starry1314 於 2015-6-4 17:14 編輯

ActiveWorkbook.SaveAs Filename:="D:\目錄\" & Range("A2") & "-" & Format(Range("B2"), "yyyymmddhhss") & ".xlsm"
比如資料夾目錄\Q區
B2=Q 或是 Q區

要如何修改可讓目錄\後方是讀取B2的Q區做為路徑呢?

錯誤值....
ActiveWorkbook.SaveAs Filename:="D:\目錄\ & range("c2")\" & Range("A2") & "-" & Format(Range("B2"), "yyyymmddhhss") & ".xlsm"

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2015-6-5 23:51 | 只看該作者

本帖最後由 luhpro 於 2015-6-5 23:52 編輯

ActiveWorkbook.SaveAs Filename:="D:\目錄\" & Range("A2") & "-" & Format(Range("B2"), "yyyymmddhhss") ...
starry1314 發表於 2015-6-4 17:10

ActiveWorkbook.SaveAs Filename:="D:\目錄\" & Range("c2") & "\" & Range("A2") & "-" & Format(Range("B2"), "yyyymmddhhss") & ".xlsm"

字串合併時應注意以下幾點 :
1. "(雙引號) 必須成對, 且兩個 " 中間包著字串而非變數或保留字.
2. 相鄰字串間可用 & 來連接成一個字串

底下是我常用的一些字串處理或測試技巧:
1. 如果字串太長不易判斷結果是否正確,
可以於賦值後依次附加字串給變數便於偵錯,
例如上式可以改成 :

Dim sStr$
sStr= "D:\目錄\" & Range("c2")
sStr= sStr & "\" & Range("A2")
sStr= sStr & "-" & Format(Range("B2"), "yyyymmddhhss") & ".xlsm"
ActiveWorkbook.SaveAs Filename:= sStr

複製代碼

2. 也可以用 _(一個半形空白文字連接著一個半形底線文字) 來拆行(但不可以把字串分拆兩行),例如原式改成 :

ActiveWorkbook.SaveAs Filename:="D:\目錄\" & _
Range("c2") & "\" & Range("A2") & _
"-" & Format(Range("B2"), "yyyymmddhhss") & ".xlsm"

複製代碼

這樣分拆等同只有一行指令(與原式的效果完全相同).
好處是便於指令判讀與避開單行指令長度限制.

3. 除蟲(Debug)時可以把中斷點設在該行並執行至該行暫停,
接著拷貝該行開啟 "即時運算" 視窗,
先打上一個 ? 再於其右方貼上該行指令後按下 Enter 按鍵,
看看出來的結果是否正確,
持續修改 ? 後的內容直到結果正確,
再將其更新到程式中即可.

TOP

starry1314