對於開發跨
多個平台
,擴充使用者 Office 體驗的解決方案感到興趣嗎? 請參閱新的
Office 增益集模型
。 與 VSTO 增益集和解決方案相比,Office 增益集的佔用空間較小,而且您可以使用幾乎任何網頁程式技術 (例如 HTML5、JavaScript、CSS3 和 XML) 來建立這些增益集。
表達式
。
開
啟 (
FileName
、
UpdateLinks
、
ReadOnly
、
Format
、
Password
、
WriteResPassword
、
IgnoreReadOnlyRecommended
、
Origin
、
Delimiter
、
Editable
、
Notify
、
Converter
、
AddToMru
、
Local
、
CorruptLoad
)
表達
代表
Workbooks 物件的
變數。
必要/選用
代表開啟之活頁簿的
Workbook
物件。
根據預設,巨集會在您以程式設計方式開啟檔案時啟用。 使用
AutomationSecurity
屬性可設定以程式設計方式開啟檔案時所使用的巨集安全性模式。
您可以在
UpdateLinks
參數中指定下列其中一個值,以判斷開啟活頁簿時是否更新 (連結) 的外部參考。
下列程式碼範例會開啟 Analysis.xls 活頁簿,然後執行 Auto_Open 巨集。
Workbooks.Open "ANALYSIS.XLS"
ActiveWorkbook.RunAutoMacros xlAutoOpen
下列程式碼範例會將其他活頁簿中的工作表匯入目前活頁簿中的新工作表。 目前活頁簿中的 Sheet1 必須在儲存格 D3 包含要匯入的活頁簿的路徑名稱、在儲存格 D4 包含檔案名稱,以及在儲存格 D5 包含工作表名稱。 匯入的工作表會插入到目前活頁簿中的 Sheet1 之後。
Sub ImportWorksheet()
' This macro will import a file into this workbook
Sheets("Sheet1").Select
PathName = Range("D3").Value
Filename = Range("D4").Value
TabName = Range("D5").Value
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=PathName & Filename
ActiveSheet.Name = TabName
Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1)
Windows(Filename).Activate
ActiveWorkbook.Close SaveChanges:=False
Windows(ControlFile).Activate
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。