- 帖子
- 222
- 主題
- 56
- 精華
- 0
- 積分
- 285
- 點名
- 0
- 作業系統
- window
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2010-8-30
- 最後登錄
- 2024-4-22
 
|
以下程式碼要如何改寫才能在隨身碟或在任何電腦裡都可執行
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 |
|
發表於 2019-4-7 15:42
| 
