返回列表 上一主題 發帖

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
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

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
3#
發表於 2015-6-6 00:31 | 顯示全部帖子
回復 3# luhpro


    了解 .xls 加上雙引號

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
4#
發表於 2015-6-7 15:31 | 顯示全部帖子
回復 3# luhpro

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

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

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
5#
發表於 2015-6-7 15:50 | 顯示全部帖子
回復 3# luhpro

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

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題