[發問] 如何讓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

080404-3個檔案計算(VB-TEST)-問題.rar (318.09 KB)

樓主熱帖

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

2^#

發表於 2019-4-8 08:25 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 251
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章