Board logo

標題: [發問] 請問如何將移動檔案的檔名修改成讀取儲存格內容呢|? [打印本頁]
作者: starry1314    時間: 2015-6-5 23:40     標題: 請問如何將移動檔案的檔名修改成讀取儲存格內容呢|?

正常運作  移動檔案
  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    時間: 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    時間: 2015-6-6 00:26

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


fs.movefile "D:\測試\原檔\" & aa & ".xls", "D:\測試\成果\"
作者: starry1314    時間: 2015-6-6 00:31

回復 3# luhpro


    了解 .xls 加上雙引號
作者: starry1314    時間: 2015-6-7 15:31

回復 3# luhpro

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

但會跳出說找不到檔案,確認過跳出來的路徑內的確有檔案?
作者: starry1314    時間: 2015-6-7 15:50

回復 3# luhpro

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)