返回列表 上一主題 發帖

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

fantersy

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

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
3#
發表於 2014-12-24 17:29 | 只看該作者
Hi rouber590324 感謝你的幫忙
請問一下你的例子會遇到開啟該檔時會有詢問的動作嗎?

我的是開啟MPS就會問我巨集要不要開啟
還要另外點選才會進行下一步的覆制動作

晚點來試試你建議的方式~感謝你!!

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
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

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題