Window對象代表一個窗口，約有48個屬性和14個方法，能對窗口特性進(jìn)行設(shè)置和操作。Window對象是Windows集合中的成員，對于Application對象來說，Windows集合包含該應(yīng)用程序中的所有窗口；對于Workbook對象來說，Windows集合只包含指定工作簿中的窗口。下面介紹一些示例，以演示和說明Window對象及其屬性和方法的運用。示例02-01：激活窗口(Activate方法)Sub SelectWindow() Dim iWin As Long, i As Long, bWin MsgBox 依次切換已打開的窗口 iWin = Windows.Count MsgBox “您已打開的窗口數(shù)量為：” & iWin For i = 1 To iWin Windows(i).Activate bWin = MsgBox(您激活了第 & i & 個窗口，還要繼續(xù)嗎？, vbYesNo) If bWin = vbNo Then Exit Sub Next iEnd Sub示例02-02：窗口狀態(tài)(WindowState屬性)示例02-02-01Sub WindowStateTest() MsgBox 當(dāng)前活動工作簿窗口將最小化 Windows(1).WindowState = xlMinimized MsgBox 當(dāng)前活動工作簿窗口將恢復(fù)正常 Windows(1).WindowState = xlNormal MsgBox 當(dāng)前活動工作簿窗口將最大化 Windows(1).WindowState = xlMaximizedEnd Sub示例說明：使用WindowState屬性可以返回或者設(shè)置窗口的狀態(tài)。示例中，常量xlMinimized、xlNormal和xlMaximized分別代表窗口不同狀態(tài)值，Windows(1)表示當(dāng)前活動窗口。可以使用Windows(index)來返回單個的Window對象，其中的index為窗口的名稱或編號，活動窗口總是Windows(1)。示例02-02-02Sub testWindow() 測試Excel應(yīng)用程序窗口狀態(tài) MsgBox 應(yīng)用程序窗口將最大化 Application.WindowState = xlMaximized Call testWindowState MsgBox 應(yīng)用程序窗口將恢復(fù)正常 Application.WindowState = xlNormal MsgBox 應(yīng)用程序窗口已恢復(fù)正常 測試活動工作簿窗口狀態(tài) MsgBox 當(dāng)前活動工作簿窗口將最小化 ActiveWindow.WindowState = xlMinimized Call testWindowState MsgBox 當(dāng)前活動工作簿窗口將最大化 ActiveWindow.WindowState = xlMaximized Call testWindowState MsgBox 當(dāng)前活動工作簿窗口將恢復(fù)正常 ActiveWindow.WindowState = xlNormal Call testWindowState MsgBox 應(yīng)用程序窗口將最小化 Application.WindowState = xlMinimized Call testWindowStateEnd Sub*Sub testWindowState() Select Case Application.WindowState Case xlMaximized: MsgBox 應(yīng)用程序窗口已最大化 Case xlMinimized: MsgBox 應(yīng)用程序窗口已最小化 Case xlNormal: Select Case ActiveWindow.WindowState Case xlMaximized: MsgBox 當(dāng)前活動工作簿窗口已最大化 Case xlMinimized: MsgBox 當(dāng)前活動工作簿窗口已最小化 Case xlNormal: MsgBox 當(dāng)前活動工作簿窗口已恢復(fù)正常 End Select End SelectEnd Sub示例說明：本示例有兩個程序，其中testWindow()是主程序，調(diào)用子程序textWindowState()，演示了應(yīng)用程序窗口和工作簿窗口的不同狀態(tài)。當(dāng)前活動窗口一般代表當(dāng)前活動工作簿窗口，讀者可以在VBE編輯器中按F8鍵逐語句運行testWindow()程序，觀察Excel應(yīng)用程序及工作簿窗口的不同狀態(tài)。此外，在子程序中，還運用了嵌套的Select Case結(jié)構(gòu)。示例02-02-03Sub SheetGradualGrow() Dim x As Integer With ActiveWindow .WindowState = xlNormal .Top = 1 .Left = 1 .Height = 50 .Width = 50 For x = 50 To Application.UsableHeight .Height = x Next x For x = 50 To Application.UsableWidth .Width = x Next x .WindowState = xlMaximized End WithEnd Sub示例說明：本示例將動態(tài)演示工作簿窗口由小到大直至最大化的變化過程。在運行程序時，您可以將VBE窗口縮小，從而在工作簿中查看動態(tài)效果，也可以在Excel中選擇菜單中的宏命令執(zhí)行以查看效果。示例02-03：切換顯示工作表元素示例02-03-01Sub testDisplayHeading() MsgBox “切換顯示/隱藏行列標(biāo)號” ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadingsEnd Sub示例說明：本示例切換是否顯示工作表中的行列標(biāo)號。運行后，工作表中的行標(biāo)號和列標(biāo)號將消失；再次運行后，行列標(biāo)號重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消行列標(biāo)號的顯示，如ActiveWindow.DisplayHeadings = False；而將該屬性設(shè)置為True，則顯示行列標(biāo)號。示例02-03-02Sub testDisplayGridline() MsgBox “切換顯示/隱藏網(wǎng)格線” ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlinesEnd Sub示例說明：本示例切換是否顯示工作表中的網(wǎng)格線。運行后，工作表中的網(wǎng)格線消失，再次運行后，網(wǎng)格線重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消網(wǎng)格線顯示，如ActiveWindow.DisplayGridlines = False；而將該屬性設(shè)置為True，則顯示網(wǎng)格線。示例02-03-03Sub DisplayHorizontalScrollBar() MsgBox “切換顯示/隱藏水平滾動條” ActiveWindow.DisplayHorizontalScrollBar = _ Not ActiveWindow.DisplayHorizontalScrollBarEnd Sub示例說明：本示例切換是否顯示工作表中的水平滾動條。運行后，工作表中的水平滾動條消失，再次運行后，水平滾動條重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消水平滾動條，如ActiveWindow.DisplayHorizontalScrollBar = False；而將該屬性設(shè)置為True，則顯示水平滾動條。同理，DisplayVerticalScrollBar屬性將用來設(shè)置垂直滾動條。示例02-03-04Sub DisplayScrollBar() MsgBox 切換顯示/隱藏水平和垂直滾動條 Application.DisplayScrollBars = Not (Application.DisplayScrollBars)End Sub示例說明：本示例切換是否顯示工作表中的水平和垂直滾動條。運行后，工作表中的水平和垂直滾動條同時消失，再次運行后，水平和垂直滾動條重新出現(xiàn)，如此反復(fù)。您也可以將該屬性設(shè)置為False，以取消水平和垂直滾動條顯示，如Application.DisplayScrollBars= False；而將該屬性設(shè)置為True，則顯示水平和垂直滾動條。示例02-04：顯示公式(DisplayFormulas屬性)Sub DisplayFormula() MsgBox “顯示工作表中包含公式的單元格中的公式” ActiveWindow.DisplayFormulas = TrueEnd Sub示例說明：本程序運行后，工作表中含有公式的單元格將顯示公式而不是數(shù)值。若要顯示數(shù)值，則將該屬性設(shè)置為False，或者，如果工作表中的公式顯示的是結(jié)果數(shù)值，則該屬性為False。示例02-05：顯示/隱藏工作表標(biāo)簽(DisplayWorkbookTabs屬性)Sub testDisplayWorkbookTab() MsgBox “隱藏工作表標(biāo)簽” ActiveWindow.DisplayWorkbookTabs = FalseEnd Sub示例說明：本程序運行后，工作表標(biāo)簽消失。將該屬性設(shè)置為True，重新顯示工作表標(biāo)簽。示例02-06：命名活動窗口(Caption屬性)Sub testCaption() MsgBox 當(dāng)前活動工作簿窗口的名字是: & ActiveWindow.Caption ActiveWorkbook.Windows(1).Caption = 我的工作簿 MsgBox 當(dāng)前活動工作簿窗口的名字是: & ActiveWindow.CaptionEnd Sub示例說明：本程序運行后，顯示當(dāng)前活動工作簿窗口原先的名稱(即工作簿窗口未處于最大化狀態(tài)時，出現(xiàn)在窗口頂部標(biāo)題欄中的文字)，然后設(shè)置當(dāng)前活動工作簿窗口名稱，即使用語句ActiveWorkbook.Windows(1).Caption = 我的工作簿，最后顯示當(dāng)前活動工作簿窗口的新名稱。改變窗口的標(biāo)題并不會改變工作簿的名稱。示例02-07：移動窗口到指定位置(ScrollRow屬性和ScrollColumn屬性)Sub testScroll() MsgBox “將當(dāng)前窗口工作表左上角單元格移至第10行第3列” ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollColumn = 3End Sub示例說明：本程序運行后，當(dāng)前活動窗口左上角單元格為第10行第3列。可以通過設(shè)置這兩個屬性來移動窗口到指定的位置，也可以返回指定窗格或窗口最左上面的行號或列號。NextPage示例02-08：調(diào)整窗口(EnableResize屬性)Sub testResize() MsgBox “設(shè)置窗口大小不可調(diào)整” ActiveWindow.EnableResize = FalseEnd Sub示例說明：測試本程序前，將當(dāng)前工作簿窗口恢復(fù)為正常狀態(tài)(即讓工作簿標(biāo)題可見)，運行程序后，當(dāng)前工作簿窗口將不能調(diào)整其大小，右上角的最小化最大化按鈕將消失(即隱藏最大化和最小化按鈕)。該屬性設(shè)置為True，則能調(diào)整窗口大小。示例02-09：拆分窗格示例02-09-01Sub SplitWindow1() Dim iRow As Long, iColumn As Long MsgBox 以活動單元格為基準(zhǔn)拆分窗格 iRow = ActiveCell.Row iColumn = ActiveCell.Column With ActiveWindow .SplitColumn = iColumn .SplitRow = iRow End With MsgBox 恢復(fù)原來的窗口狀態(tài) ActiveWindow.Split = FalseEnd Sub示例02-09-02Sub SplitWindow() Dim iRow As Long, iColumn As Long MsgBox 以活動單元格為基準(zhǔn)拆分窗格 iRow = ActiveCell.Row iColumn = ActiveCell.Column With ActiveWindow .SplitColumn = iColumn .SplitRow = iRow End With MsgBox 恢復(fù)原來的窗口狀態(tài) ActiveWindow.SplitColumn = 0 ActiveWindow.SplitRow = 0End Sub示例說明：本示例演示了以活動單元格為基準(zhǔn)拆分窗格。如果指定窗口被拆分，則Split屬性的值為True；設(shè)置該屬性的值為False則取消窗格拆分。也可以設(shè)置SplitColumn屬性和SplitRow屬性的值來取消窗格拆分。示例02-10：凍結(jié)窗格(FreezePanes屬性)Sub testFreezePane() MsgBox “凍結(jié)窗格” ActiveWindow.FreezePanes = TrueEnd Sub示例說明：運行本程序后，將會凍結(jié)活動單元格所在位置上方和左側(cè)的單元格區(qū)域。將該屬性的值設(shè)置為False，將取消凍結(jié)窗格。示例02-11：設(shè)置網(wǎng)格線顏色(GridlineColor屬性和GridlineColorIndex屬性)Sub setGridlineColor() Dim iColor As Long iColor=ActiveWindow.GridlineColor MsgBox 將活動窗口的網(wǎng)格線顏色設(shè)為紅色 ActiveWindow.GridlineColor = RGB(255, 0, 0) MsgBox 將活動窗口的網(wǎng)格線顏色設(shè)為藍(lán)色 ActiveWindow.GridlineColorIndex = 5 MsgBox “恢復(fù)為原來的網(wǎng)格線顏色” ActiveWindow.GridlineColorIndex=iColorEnd Sub示例說明：運行程序后，當(dāng)前工作表窗口網(wǎng)格線將被設(shè)置為紅色。其中，GridlineColorIndex屬性可以用于返回或設(shè)置網(wǎng)格線的顏色，下面給出了默認(rèn)調(diào)色板中顏色的編號值：小結(jié)ActiveWindow屬性返回當(dāng)前激活的工作簿窗口，可以用來設(shè)置工作表中的元素，也可以顯示特定的單元格，或者用來調(diào)整窗口的顯示比例，以及設(shè)置窗口。示例02-12：設(shè)置工作表標(biāo)簽區(qū)域?qū)挾群退綕L動條寬度比例(TabRatio屬性)Sub test() MsgBox 設(shè)置工作表標(biāo)簽區(qū)域?qū)挾葹樗綕L動條寬度的一半 ActiveWindow.TabRatio = 0.5End Sub示例說明：TabRatio屬性返回或設(shè)置工作簿中工作表標(biāo)簽區(qū)域的寬度與窗口水平滾動條的寬度比例(可為0到1之間的數(shù)字；默認(rèn)值為0.6）。您可以改變上面程序中的數(shù)值進(jìn)行測試。示例02-13：設(shè)置激活窗口時運行的程序(OnWindow屬性)Sub testRunProcedure() ThisWorkbook.Windows(1).OnWindow = testEnd Sub*Sub test() MsgBox 您可以使用本窗口了!End Sub示例說明：本示例包括兩個程序，主程序為testRunProcedure()，運行后，每當(dāng)激活該窗口時，將會運行test()程序。其中，OnWindow屬性返回或設(shè)置每當(dāng)激活一個窗口時要運行的過程的名稱，如本例中的test()程序。示例02-14：獲取指定窗口單元格區(qū)域地址(RangeSelection屬性)Sub testRangeSelection() MsgBox 顯示所選單元格地址 MsgBox ActiveWindow.RangeSelection.AddressEnd Sub示例說明：本示例返回當(dāng)前窗口中所選單元格區(qū)域的地址。RangeSelection屬性返回指定窗口的工作表中的選定單元格(即使指定工作表中有圖形對象處于活動狀態(tài)，或者已選定圖形對象，仍返回在圖形對象被選定之前選定的單元格區(qū)域，這是該屬性與Selection屬性的區(qū)別)。NextPage示例02-15：返回指定窗口中所選擇的工作表(SelectedSheets屬性)Sub testSelectedSheet() Dim sh As Worksheet For Each sh In ActiveWorkbook.Windows(1).SelectedSheets MsgBox 工作表 & sh.Name & 被選擇 NextEnd Sub示例說明：SelectedSheets屬性返回代表指定窗口中的所有選定工作表的集合。本示例中，如果您同時選擇了活動工作簿中的工作表Sheet1和Sheet2，那么運行程序后，將會顯示相應(yīng)工作表被選擇的信息。示例02-16：排列窗口(Arrange方法)Sub testArrangeWindows() MsgBox 請確保應(yīng)用程序至少含有兩個工作簿,這樣才能看出效果 MsgBox “窗口將平鋪顯示” Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled MsgBox “窗口將層疊顯示” Windows.Arrange ArrangeStyle:=xlArrangeStyleCascade MsgBox “窗口將水平排列顯示” Windows.Arrange ArrangeStyle:=xlArrangeStyleHorizontal MsgBox “窗口將垂直并排排列顯示” Windows.Arrange ArrangeStyle:=xlArrangeStyleVerticalEnd Sub示例說明：運行本程序后，將平鋪應(yīng)用程序中的所有窗口。Arrange方法用于對屏幕上的窗口進(jìn)行排列，其語法為expression.Arrange(ArrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)，所有的參數(shù)均為可選參數(shù)。其中，參數(shù)ArrangeStyle代表排列樣式，可為以下常量：常量xlArrangeStyleTiled為缺省值，表示將平鋪窗口；常量xlArrangeStyleCascade表示將窗口進(jìn)行層疊；常量xlArrangeStyleHorizontal表示將水平排列所有窗口；常量xlArrangeStyleVertical表示將垂直并排排列所有窗口。您可以在上面的程序中測試這些常量，以體驗效果。將參數(shù)ActiveWorkbook設(shè)置為True，則只對當(dāng)前工作簿的可見窗口進(jìn)行排列。如果為False，則對所有窗口進(jìn)行排列。默認(rèn)值為 False。設(shè)置參數(shù)SyncHorizontal為True，在水平滾動時同步滾動當(dāng)前工作簿的所有窗口；如果為 False，則不同步滾動。設(shè)置參數(shù)SyncVertical為True，則在垂直滾動時同步滾動當(dāng)前工作簿的所有窗口；如果為 False，則不同步滾動，默認(rèn)值為 False。如果參數(shù)ActiveWorkbook為False或者省略，則參數(shù)SyncHorizontal和SyncVertical被忽略。示例02-17：窗口尺寸(UsableHeight、UsableWidth、Height、Width屬性)Sub testActiveWindowSize()MsgBox 當(dāng)前窗口可用區(qū)域的高度為: & ActiveWindow.UsableHeight MsgBox 當(dāng)前窗口的高度為: & ActiveWindow.Height MsgBox 當(dāng)前窗口可用區(qū)域的寬度為: & ActiveWindow.UsableWidth MsgBox 當(dāng)前窗口的寬度為: & ActiveWindow.WidthEnd Sub示例02-18：水平排列兩個窗口Sub testWindowArrange() Dim ah As Long, aw As Long Windows.Arrange xlArrangeStyleTiled ah = Windows(1).Height aw = Windows(1).Width + Windows(2).Width With Windows(1) .Width = aw .Height = ah / 2 .Left = 0 End With With Windows(2) .Width = aw .Height = ah / 2 .Top = ah / 2 .Left = 0 End WithEnd Sub示例說明：在運行本示例前，保證只打開了兩個工作簿窗口。運行本示例后，將水平排列第一個窗口和第二個窗口，即每個窗口占用可使用的垂直空間的一半，占用所有水平空間。其中，Top屬性表示從窗口頂端到可用區(qū)域頂端的距離，無法對最大化的窗口設(shè)置本屬性；Left屬性表示使用區(qū)域的左邊界至窗口左邊界的距離，如果窗口已最大化，則會返回一個負(fù)數(shù)；如果該屬性被設(shè)置為0，則窗口的主邊框剛好在屏幕上可見。示例02-19：改變窗口的高度和寬度Sub ChangeHeightAndWidth() Dim iWinHeight As Long, iWinWidth As Long ActiveWindow.WindowState = xlNormal MsgBox 將當(dāng)前窗口的高度和寬度各減一半 iWinHeight = ActiveWindow.Height iWinWidth = ActiveWindow.Width ActiveWindow.Height = iWinHeight / 2 ActiveWindow.Width = iWinWidth / 2 MsgBox 恢復(fù)原窗口大小 ActiveWindow.Height = iWinHeight ActiveWindow.Width = iWinWidthEnd Sub示例說明：Height屬性和Width屬性必須在窗口處于正常顯示狀態(tài)(即不是最大化或最小化狀態(tài))時使用，否則會出錯。示例02-20：移動窗口Sub SetWindowPosition() Dim iTop As Long, iLeft As Long MsgBox 將當(dāng)前窗口向下移60,向右移90 ActiveWindow.WindowState = xlNormal iTop = ActiveWindow.Top iLeft = ActiveWindow.Left ActiveWindow.Top = iTop + 60 ActiveWindow.Left = iLeft + 90 MsgBox 恢復(fù)原來窗口的位置 ActiveWindow.Top = iTop ActiveWindow.Left = iLeftEnd Sub示例說明：Top屬性和Left屬性必須在窗口處于正常顯示狀態(tài)(即不是最大化或最小化狀態(tài))時使用，否則會出錯。示例02-21：并排比較窗口Sub testCompare() MsgBox 與工作簿Book2進(jìn)行并排比較 Windows.CompareSideBySideWith Book2 MsgBox 啟動窗口滾動功能,使兩個窗口同時滾動 Windows.SyncScrollingSideBySide = True MsgBox 將工作簿Book2最小化 Windows(Book2).WindowState = xlMinimized MsgBox 重置并排比較顯示,恢復(fù)并排比較 Windows.ResetPositionsSideBySide MsgBox 關(guān)閉并排比較 ActiveWorkbook.Windows.BreakSideBySideEnd Sub示例說明：在運行本示例前，確保在本窗口外還打開了一個名為Book2的窗口，或者您打開了一個其它命名的窗口，相應(yīng)將上面程序中的Book2更換為您的窗口名。CompareSideBySideWith方法將以并排模式打開兩個窗口，其中一個是當(dāng)前活動窗口，另一個就是該方法所指定的窗口，如本例中的Book2。SyncScrollingSideBySide屬性設(shè)置是否將兩個窗口的滾動保持同步，如果為True，在對文檔進(jìn)行并排比較的同時啟用窗口內(nèi)容的滾動功能。若為False，則在對文檔進(jìn)行并排比較的同時禁用窗口內(nèi)容的滾動功能。ResetPositionsSideBySide方法重置正在進(jìn)行并排比較的兩個工作表窗口的位置，例如，如果用戶將正在進(jìn)行比較的兩個工作表窗口中的其中一個窗框最小化或最大化，就可以使用ResetPositionsSideBySide方法重置顯示，以便這兩個窗口再次并排顯示。BreakSideBySide方法用來關(guān)閉并排比較。NextPage示例02-22：返回或設(shè)置窗口中顯示的視圖(View屬性)Sub testView() MsgBox 將視圖切換為分頁預(yù)覽 ActiveWindow.View = xlPageBreakPreview MsgBox 窗口視圖為: & ActiveWindow.View MsgBox 將視圖恢復(fù)正常 ActiveWindow.View = xlNormalView MsgBox 窗口視圖為: & ActiveWindow.ViewEnd Sub示例02-23：返回窗口中可見單元格區(qū)域(VisibleRange屬性)Sub testVisibleRange() MsgBox 當(dāng)前窗口中共有 & Windows(1).VisibleRange.Cells.Count & 個單元格可見End Sub示例說明：如果窗口中有部分行列的單元格可見，也包括在可見單元格區(qū)域中。示例02-24：創(chuàng)建窗口(NewWindow方法)Sub testNewWindow() MsgBox 為活動窗口創(chuàng)建一個副本 ActiveWindow.NewWindow MsgBox 所創(chuàng)建窗口的窗口號為 & ActiveWindow.WindowNumberEnd Sub示例說明：本示例中，NewWindow方法為指定窗口(本例中為當(dāng)前活動窗口)創(chuàng)建一個副本，然后顯示該副本窗口的窗口號。注意，窗口號與窗口索引(Index屬性)的不同，例如名稱為“Book1.xls:2”的窗口，其窗口號為，而窗口索引為該窗口在Windows集合中的位置，可以為窗口名稱或編號。示例02-25：設(shè)置窗口大小(Zoom屬性)Sub testWindowDisplaySize() MsgBox 將窗口大小設(shè)置為與選定區(qū)域相適應(yīng)的大小 ActiveWindow.Zoom = True MsgBox 以雙倍大小顯示窗口 ActiveWindow.Zoom = 200 MsgBox 以正常大小顯示窗口 ActiveWindow.Zoom = 100End Sub示例說明：Zoom屬性將以百分?jǐn)?shù)的形式(100表示正常大小，200表示雙倍大小，以此類推)返回或設(shè)置窗口的顯示大小。如果本屬性為 True，則可將窗口大小設(shè)置成與當(dāng)前選定區(qū)域相適應(yīng)的大小。本功能僅對窗口中當(dāng)前的活動工作表起作用，若要對其他工作表使用本屬性，必須先激活該工作表。示例02-26：激活窗口(ActivateNext方法和ActivatePrevious方法)示例02-26-01Sub testActivateWindow1() MsgBox 若已打開Book1.xls、Book2.xls和Book3.xls三個工作簿且Book1.xls為當(dāng)前窗口 & Chr(10) & 則按Book3.xls-Book2.xls-Book1.xls依次激活窗口 ActiveWindow.ActivateNext MsgBox 激活工作簿: & Windows(1).Caption ActiveWindow.ActivateNext MsgBox 激活工作簿: & Windows(1).Caption ActiveWindow.ActivateNext MsgBox 激活工作簿: & Windows(1).CaptionEnd Sub示例02-26-02Sub testActivateWindow2() MsgBox 若已打開Book1.xls、Book2.xls和Book3.xls三個工作簿且Book1.xls為當(dāng)前窗口 & Chr(10) & 則按Book2.xls-Book3.xls-Book1.xls依次激活窗口 ActiveWindow.ActivatePrevious MsgBox 激活工作簿: & Windows(1).Caption ActiveWindow.ActivatePrevious MsgBox 激活工作簿: & Windows(1).Caption ActiveWindow.ActivatePrevious MsgBox 激活工作簿: & Windows(1).CaptionEnd Sub示例02