若要開啟所有連結的活頁簿 XL2000： 巨集

文章編號: 213647 - 檢視此文章適用的產品。
機器翻譯檢視機器翻譯免責聲明
全部展開 | 全部摺疊

在此頁中

結論

在 Microsoft Excel 中您可以寫入應用程式巨集 (Sub 程序) 的 Microsoft Visual Basic 開啟所有連結到開啟的活頁簿的活頁簿。本文提供範例巨集來完成這項作業。
回此頁最上方 | 提供意見

其他相關資訊

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。

範例的 Visual Basic 事件程序

   Sub OpenLinkedWorkbooks()
      Dim Links As Variant
      ' Obtain an array for the links to Excel workbooks
      ' in the active workbook.
      Links = ActiveWorkbook.LinkSources(xlExcelLinks)
      ' If the Links array is not empty then open each
      ' linked workbook. If the array is empty, then
      ' display an error message.
      If Not IsEmpty(Links) Then
         For i = 1 To UBound(Links)
            Workbooks.Open Links(i)
         Next i
      Else
         MsgBox "This workbook does not contain any links " & _
            "to other workbooks"
      End If

   End Sub
回此頁最上方 | 提供意見

屬性

文章編號: 213647 - 上次校閱: 2006年10月11日 - 版次: 4.2
這篇文章中的資訊適用於:
  • Microsoft Excel 2000 Standard Edition
關鍵字：?
kbmt kbdtacode kbhowto kbprogramming KB213647 KbMtzh
機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：213647
(http://support.microsoft.com/kb/213647/en-us/ )
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
回此頁最上方 | 提供意見

提供意見

 
回此頁最上方回此頁最上方