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

starry1314

正常運作  移動檔案

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

複製代碼

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

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

複製代碼

starry1314

回復 3# luhpro

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

starry1314

回復 3# luhpro

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

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

starry1314

回復 3# luhpro


    了解 .xls 加上雙引號

luhpro

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

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

starry1314

回復 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