Workbook 物件(Excel) | Microsoft Docs

下列範例會啟動Cogs.xls 活頁簿中的Sheet1 工作表(在Microsoft Excel 中 ... 本範例使用指定的電子郵件地址及主旨，從現用活頁簿中的工作表索引標籤 ... 跳到主要內容 已不再支援此瀏覽器。

請升級至MicrosoftEdge，以利用最新功能、安全性更新和技術支援。

下載MicrosoftEdge 其他資訊 目錄 結束焦點模式 閱讀英文 儲存 目錄 閱讀英文 儲存 編輯 Twitter LinkedIn Facebook 電子郵件 目錄 Workbook物件(Excel) 發行項 04/11/2022 1位參與者 本文內容 代表MicrosoftExcel活頁簿。

備註 活頁簿物件是活頁簿集合的成員。

Workbooks集合包含目前在MicrosoftExcel中開啟的所有Workbook物件。

Application物件的ThisWorkbook屬性會傳回正執行VisualBasic程式碼的活頁簿。

在大多數情況下，這也就是現用活頁簿。

但是，如果VisualBasic程式碼是增益集的一部分，則ThisWorkbook屬性不會傳回現用活頁簿。

在這種情況下，現用活頁簿是呼叫增益集的活頁簿，而ThisWorkbook屬性則會傳回增益集活頁簿。

如果您是從VisualBasic程式碼建立增益集，則應該使用ThisWorkbook屬性來限定必須在編譯成增益集的活頁簿上執行的任何語句。

範例 使用活頁簿(Index)，其中index是活頁簿的名稱或索引編號，可以傳回單一的活頁簿物件。

下列範例會啟動第一個活頁簿。

Workbooks(1).Activate 活頁簿的索引編號會指出開啟或建立活頁簿的順序。

Workbooks(1)是第一個建立的活頁簿，而Workbooks(Workbooks.Count)則是最後一個建立的活頁簿。

啟動活頁簿並不會改變其索引編號。

所有的活頁簿都會包含在索引計數中，即使它們是隱藏的。

Name屬性會傳回活頁簿名稱。

您無法使用這個屬性來設定名稱；如果需要變更名稱，請使用SaveAs方法將活頁簿儲存成其他名稱。

下列範例會啟動Cogs.xls活頁簿中的Sheet1工作表(在MicrosoftExcel中必須已經開啟該活頁簿)。

Workbooks("Cogs.xls").Worksheets("Sheet1").Activate Application物件的ActiveWorkbook屬性會傳回目前使用中的活頁簿。

下列範例會設定現用活頁簿的作者名稱。

ActiveWorkbook.Author="JeanSelva" 本範例使用指定的電子郵件地址及主旨，從現用活頁簿中的工作表索引標籤電子郵件。

若要執行此程式碼，使用中活頁簿必須在儲存格A1中包含電子郵件地址、在儲存格B1中包含主旨，在儲存格C1中包含要傳送的工作表的名稱。

SubSendTab() 'Declareandinitializeyourvariables,andturnoffscreenupdating. DimwksAsWorksheet Application.ScreenUpdating=False Setwks=ActiveSheet 'Copythetargetworksheet,specifiedincellC1,totheclipboard. Worksheets(Range("C1").Value).Copy 'SendthecontentintheclipboardtotheemailaccountspecifiedincellA1, 'usingthesubjectlinespecifiedincellB1. ActiveWorkbook.SendMailwks.Range("A1").Value,wks.Range("B1").Value 'Donotsavechanges,andturnscreenupdatingbackon. ActiveWorkbook.Closesavechanges:=False Application.ScreenUpdating=True EndSub 事件 Activate AddinInstall AddinUninstall AfterRemoteChange AfterSave AfterXmlExport AfterXmlImport BeforeClose BeforePrint BeforeRemoteChange BeforeSave BeforeXmlExport BeforeXmlImport Deactivate ModelChange NewChart NewSheet Open PivotTableCloseConnection PivotTableOpenConnection RowsetComplete SheetActivate SheetBeforeDelete SheetBeforeDoubleClick SheetBeforeRightClick SheetCalculate SheetChange SheetDeactivate SheetFollowHyperlink SheetLensGalleryRenderComplete SheetPivotTableAfterValueChange SheetPivotTableBeforeAllocateChanges SheetPivotTableBeforeCommitChanges SheetPivotTableBeforeDiscardChanges SheetPivotTableChangeSync SheetPivotTableUpdate SheetSelectionChange SheetTableUpdate Sync WindowActivate WindowDeactivate WindowResize 方法 AcceptAllChanges Activate AddToFavorites ApplyTheme BreakLink CanCheckIn ChangeFileAccess ChangeLink CheckIn CheckInWithVersion Close ConvertComments CreateForecastSheet DeleteNumberFormat EnableConnections EndReview ExclusiveAccess ExportAsFixedFormat FollowHyperlink ForwardMailer GetWorkflowTasks GetWorkflowTemplates HighlightChangesOptions LinkInfo LinkSources LockServerFile MergeWorkbook NewWindow OpenLinks PivotCaches Post PrintOut PrintPreview Protect ProtectSharing PublishToDocs PurgeChangeHistoryNow RefreshAll RejectAllChanges ReloadAs RemoveDocumentInformation RemoveUser Reply ReplyAll ReplyWithChanges ResetColors RunAutoMacros Save SaveAs SaveAsXMLData SaveCopyAs SendFaxOverInternet SendForReview SendMail SendMailer SetLinkOnData SetPasswordEncryptionOptions ToggleFormsDesign Unprotect UnprotectSharing UpdateFromFile UpdateLink WebPagePreview XmlImport XmlImportXml 屬性 AccuracyVersion ActiveChart ActiveSheet ActiveSlicer Application AutoSaveOn AutoUpdateFrequency AutoUpdateSaveChanges BuiltinDocumentProperties CalculationVersion CaseSensitive ChangeHistoryDuration ChartDataPointTrack Charts CheckCompatibility CodeName Colors CommandBars ConflictResolution Connections ConnectionsDisabled Container ContentTypeProperties CreateBackup Creator CustomDocumentProperties CustomViews CustomXMLParts Date1904 DefaultPivotTableStyle DefaultSlicerStyle DefaultTableStyle DefaultTimelineStyle DisplayDrawingObjects DisplayInkComments DocumentInspectors DocumentLibraryVersions DoNotPromptForConvert EnableAutoRecover EncryptionProvider EnvelopeVisible Excel4IntlMacroSheets Excel4MacroSheets Excel8CompatibilityMode FileFormat Final ForceFullCalculation FullName FullNameURLEncoded HasPassword HasVBProject HighlightChangesOnScreen IconSets InactiveListBorderVisible IsAddin IsInplace KeepChangeHistory ListChangesOnNewSheet Mailer Model MultiUserEditing 名稱 Names Parent Password PasswordEncryptionAlgorithm PasswordEncryptionFileProperties PasswordEncryptionKeyLength PasswordEncryptionProvider Path Permission PersonalViewListSettings PersonalViewPrintSettings PivotTables PrecisionAsDisplayed ProtectStructure ProtectWindows PublishObjects Queries ReadOnly ReadOnlyRecommended RemovePersonalInformation Research RevisionNumber Saved SaveLinkValues SensitivityLabel ServerPolicy ServerViewableItems SharedWorkspace Sheets ShowConflictHistory ShowPivotChartActiveFields ShowPivotTableFieldList Signatures SlicerCaches SmartDocument Styles 同步處理 TableStyles TemplateRemoveExtData Theme UpdateLinks UpdateRemoteReferences UserStatus UseWholeCellCriteria UseWildcards VBASigned VBProject WebOptions Windows Worksheets WritePassword WriteReserved WriteReservedBy XmlMaps XmlNamespaces 另請參閱 Excel物件模型參考資料 支援和意見反應 有關於OfficeVBA或這份文件的問題或意見反應嗎？如需取得支援服務並提供意見反應的相關指導，請參閱OfficeVBA支援與意見反應。

本文內容