返回列表下一主題上一主題發帖

[發問] Excel VBA 開啟Excel表並複製其中一分頁

fantersy

中學生 Rank: 2

帖子: 132
主題: 35
精華: 0
積分: 179
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-24
最後登錄: 2024-3-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-24 16:30 | 只看該作者

[發問] Excel VBA 開啟Excel表並複製其中一分頁

各位Excel高手大家好
小弟有一VBA問題想請教
如下是小弟用錄製巨集做出來的VBA
其中在清單小第有用一個連結到Excel MPS
開啟MPS檔案後我要MPS總表分頁的A:AM欄全部複製

再貼到我的檔案分頁(MPS)上
後面都是多的......

問題如下
1.如果這個檔案是在一個內網上,那要如何用VBA開啟Excel檔及指定那個分頁呢?
2.下面的錄制巨集有缺點,因為原本的MPS總表也有一個巨集,開啟之後都會再問要不要開啟巨集,是否能修改下面的程式,讓它很單純的開啟MPS檔案然後再到MPS總表分頁,讓我能執行複製動作及貼上動作
最後在自己關掉開啟的MPS檔案,也不要問我要不要存檔,就自己關掉就好了
不然每次都問我有大量資料要不要釋放~很麻煩

以上~若有不清楚的話再麻煩各位高手提問~謝謝!!

Sub 複製MPS()

Sheets("清單").Select
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("MPS總表").Select
Columns("A:AM").Select
Selection.Copy
Windows("新增 Microsoft Office Excel 工作表.xlsx").Activate
Sheets("MPS").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D8").Select
Windows("MPS.xls").Activate
ActiveWindow.Close
Sheets("Sheet1").Select
Range("A2").Select
End Sub

樓主熱帖

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2014-12-24 16:59 | 只看該作者

小弟17:00下班.
下有一類似CASE 煩參考之.

Sub 覆製PDM資料庫()
'全面性變更名稱可用編輯內之取代功能一次ALL置換
Workbooks.Open Filename:="\\Pcbfs02\c700\c740\檢核表\測試表單.xls" '需求EXCEL ADDRESS-自行變更.

Windows("覆製PDM資料庫.xls").Activate '至原覆製PDM資料庫.xls檔-名稱依需求變更
Sheets("tbdd2060").Cells.Copy 'COPY TBDD2060 ALL 儲存格-名稱依需求變更
Windows("測試表單.xls").Activate '至測試表單.xls檔-名稱依需求變更
Sheets("tbdd2060").Select '至TBDD2060工作表-名稱依需求變更
Range("A1").Select '至A1儲存格
ActiveSheet.Paste '覆製

Windows("覆製PDM資料庫.xls").Activate
Sheets("tbdd2040").Cells.Copy
Windows("測試表單.xls").Activate
Sheets("tbdd2040").Select
Range("A1").Select
ActiveSheet.Paste

Windows("覆製PDM資料庫.xls").Activate
Sheets("tbdd2002").Cells.Copy
Windows("測試表單.xls").Activate
Sheets("tbdd2002").Select
Range("A1").Select
ActiveSheet.Paste
Windows("覆製PDM資料庫.xls").Activate '至覆製PDM資料庫.xls檔-名稱依需求變更
Sheets("封面").Select '至封面工作表-名稱依需求變更
Range("A1").Select '至A1儲存格
Windows("測試表單.xls").Activate '至測試表單.xls-名稱依需求變更
Sheets("目錄").Select '至目錄"工作表-名稱依需求變更
Range("A1").Select '至A1儲存

End Sub

羅

TOP

fantersy