添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
相关文章推荐
有腹肌的大白菜  ·  使用curl / ...·  3 年前    · 
飘逸的青蛙  ·  shell - ...·  3 年前    · 

對於開發跨 多個平台 ,擴充使用者 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 支援與意見反應。