亞寵展、全球寵物產業風向標——亞洲寵物展覽會深度解析
1452
2025-04-01
如何將所有宏從一個工作簿導出到另一工作簿？
如何將所有宏從一個工作簿導出到另一工作簿？
如果需要將多個宏vba代碼從一個工作簿導出到另一個工作簿，則可以正常地一個一個地復制它們。 但這將很耗時，本文中，我將討論如何快速將所有宏從一個工作簿導出到另一個工作簿，以及如何將宏文件保存到特定的文件夾中。
使用VBA代碼將所有宏從一個工作簿導出到另一工作簿
使用VBA代碼將所有宏從一個工作簿導出到另一工作簿要將所有宏vba代碼從一個Excel文件導出到另一個，請執行以下步驟：
1。 首先，您應該同時打開兩個工作簿，一個包含宏，另一個是要將宏導出到的工作簿，請參見屏幕截圖：
Office Tab- 在單個選項卡式窗口中打開、閱讀、編輯和管理多個 Office 文檔
Office Tab 啟用選項卡式瀏覽、編輯和管理 Microsoft Office 應用程序。 您可以在單個選項卡式窗口中打開多個文檔/文件，例如使用瀏覽器 IE 8/9/10、Firefox 和 Google Chrome。 點擊下載并立即免費試用！
2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
3。 點擊 插頁 > 模塊 并將以下宏粘貼到 模塊 窗口。
VBA代碼：將所有宏從一個工作簿導出到另一個工作簿：
Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xFilePath = .SelectedItems.Item(1)
Else
Exit Sub
End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
MsgBox "come to nothing!"
End Sub
備注：在上面的代碼中，“舊工作簿“”是您要從中導出宏的工作簿的名稱，“新工作簿”是您要導入宏的工作簿。 您應該將名稱更改為您自己的名稱。 兩個工作簿都應該是 XLSM 文件格式。
Copy
4。 粘貼上面的代碼后，然后按 F5 運行此代碼的關鍵，以及 瀏覽 顯示窗口，請選擇一個文件夾來放置導出的宏文件，請參見屏幕截圖：
5。 然后點擊 OK 按鈕，所有宏都已從您指定的工作簿導出到另一個Excel文件，并且這些宏文件也已保存到特定文件夾中。 看截圖：
備注：此代碼只能從普通模塊中導出宏。
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
