- 帖子
- 132
- 主題
- 35
- 精華
- 0
- 積分
- 179
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2014-12-24
- 最後登錄
- 2025-1-17
|
[發問] 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 |
|