[發問] 請問如何將移動檔案的檔名修改成讀取儲存格內容呢|?

　暱稱: 豪

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

[發問] 請問如何將移動檔案的檔名修改成讀取儲存格內容呢|?

正常運作移動檔案

Sub movef()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.movefile "D:\測試\原檔\測試.xls", "D:\測試\成果\"
End Sub

複製代碼

測試-將檔案名稱設定為變數但都會說
錯誤說明:找不到檔案

Sub movef()
Set fs = CreateObject("Scripting.FileSystemObject")
aa = Range("A2").Value
fs.movefile "D:\測試\原檔\&aa&.xls", "D:\測試\成果\"
End Sub

複製代碼

樓主熱帖

　暱稱: 豪

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

2^#

發表於 2015-6-6 00:21 | 只看該作者

回復 1# starry1314

已解決加上.value
原寫法可能沒辦法正確呼叫B3的值吧
另想請問
aa=Range("B3").Value
要怎麼替換至紅字部分呢? 因輸入aa 變成 aa=無

Sub 移動檔案()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.movefile "D:\測試\原檔\" & Range("B3").Value & ".xls*", "D:\測試\成果\"
End Sub

luhpro

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

3^#

發表於 2015-6-6 00:26 | 只看該作者

正常運作移動檔案測試-將檔案名稱設定為變數但都會說
錯誤說明:找不到檔案
starry1314 發表於 2015-6-5 23:40

fs.movefile "D:\測試\原檔\" & aa & ".xls", "D:\測試\成果\"

　暱稱: 豪

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

4^#

發表於 2015-6-6 00:31 | 只看該作者

回復 3# luhpro

了解 .xls 加上雙引號

　暱稱: 豪

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

5^#

發表於 2015-6-7 15:31 | 只看該作者

回復 3# luhpro

請問
      儲存格U6 用來判斷要存到哪個資料夾如A 區
      ab = "客戶明細-客服專用.xlsm"
      workbooks.Open ("\\boss-pc\公用\" & Range("U6").Value & "區" & "\" & ab & "")

但會跳出說找不到檔案,確認過跳出來的路徑內的確有檔案?

　暱稱: 豪

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

6^#

發表於 2015-6-7 15:50 | 只看該作者

回復 3# luhpro

已解決.....附檔名隱藏變成客戶明細.xlsm.xlsm