標題: [發問] 如何讓vba變成可攜 [打印本頁]

---

作者: oak0723-1    時間: 2019-4-7 15:42     標題: 如何讓vba變成可攜

以下程式碼要如何改寫才能在隨身碟或在任何電腦裡都可執行
Sub 巨集2()
Workbooks.Open Filename:="R:\080404-3個檔案計算(VB-TEST)-問題\02-計算\02-計算01.xlsx"
Workbooks.Open Filename:="R:\080404-3個檔案計算(VB-TEST)-問題\03-成果.xlsx", UpdateLinks:=0
Workbooks("01-輸入.xlsm").Worksheets("輸入01").Cells.Copy
Workbooks("02-計算01.xlsx").Sheets("輸入01").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-輸入.xlsm").Worksheets("輸入02").Cells.Copy
Workbooks("02-計算01.xlsx").Sheets("輸入02").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-輸入.xlsm").Worksheets("輸入03").Cells.Copy
Workbooks("02-計算01.xlsx").Sheets("輸入03").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-輸入.xlsm").Worksheets("輸入04").Cells.Copy
Workbooks("02-計算01.xlsx").Sheets("輸入04").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-輸入.xlsm").Worksheets("輸入05").Cells.Copy
Workbooks("02-計算01.xlsx").Sheets("輸入05").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("01-輸入.xlsm").Worksheets("輸入06").Cells.Copy
Workbooks("02-計算01.xlsx").Sheets("輸入06").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Workbooks("02-計算01.XLSx").Close SaveChanges:=False
End Sub

---

作者: ikboy    時間: 2019-4-8 08:25

不用想了，那是不可能的。

---

作者: Hsieh    時間: 2019-4-8 09:39

回復 1# oak0723-1


    如果檔案都是一起帶著走，那就用thisworkbook.path取代"R:\080404-3個檔案計算(VB-TEST)-問題"

---

作者: oak0723-1    時間: 2019-4-8 19:59

謝謝Hsieh老師
依你指導的方法我完成了

---

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