Excel 脚本编写
本頁內(nèi)容
| 使用 Excel：快速回顧 | |
| 將數(shù)據(jù)添加到電子表格中 | |
| Excel 中的格式設置 | |
| 使用范圍 | |
| 數(shù)據(jù)排序 | |
| 哦，真的是這樣：從 Active Directory 中提取數(shù)據(jù) | |
| 就這些嗎？ |
我猜測當您自稱為 Microsoft Scripting Guy 并撰寫名為腳本編寫門診 (Scripting Clinic) 的專欄時，人們認為您的生活被腳本包圍就不足為奇了。而實際上，在工作之外我并沒花太多的時間研究腳本編寫。譬如，我從來不閱讀關于腳本編寫的書；相反，我喜歡讀 Brian Greene 所著的The Fabric of the Cosmos 這類的書，這是一本很吸引人的書，講述的是量子力學、弦論和其他一些我一點都不懂的東西。
注：唯一的例外是這本書討論薛定鄂貓 (Schr?dinger's cat) 的部分。薛定鄂 (Edwin Schr?dinger) 是一個物理學家，他提出了下述思想實驗：將貓放在一個完全封閉的盒子里，其中釋放的放射性氣體有 50％ 的幾率殺死貓。薛定鄂的命題是，如果您實際上沒有向盒中看一看，那么這只貓既不是死的也不是活的，而是處于某種不確定的狀態(tài)。我理解這種理論，因為我敢肯定，當我們還是小孩時，我們都曾擁有 過薛定鄂貓。只不過對于我們的貓，即使您真地 看一看它，您也不知道它是死是活，或許它根本就不是薛定鄂貓。
順便說一句，如果您想知道那只貓現(xiàn)在正做什么，嗯，這是很難講的。
現(xiàn)在我讀到 Greene 討論“時間之箭 (time's arrow)”這一部分。顯然，許多物理學家不明白為什么時間的流逝是那么的悄無聲息，而其倒退卻是如此之難；甚至愛因斯坦也覺得過去、現(xiàn)在和將來并沒有什么不同。（從我已經(jīng)經(jīng)歷過的來看，他的觀點可能是正確的。）
您大概想到了，當您讀到時間之箭時，您可能會不由自主地思考一些問題。您會考慮宇宙的性質，您也會考慮時間旅行所涉及的道德和倫理問題，您還會想，“在上個月的專欄中，我們告訴人們?nèi)绾问褂媚_本從 Microsoft Excel 電子表格中提取數(shù)據(jù)，并使用這些數(shù)據(jù)在 Microsoft Active Directory 中創(chuàng)建用戶帳號。如果時光可以倒流，我就想知道這一過程是否也可以逆轉。我想知道腳本是否可以從 Active Directory 中提取數(shù)據(jù)并用這些數(shù)據(jù)填充Excel電子表格。”
如您所料，我周圍的每個人都說我是瘋子（在我提到這個觀念之前 就已經(jīng)這樣了）。因此我決定回到 1905 年，去問一問愛因斯坦，他是否認為您可以使用腳本將數(shù)據(jù)寫入 Excel。畢竟，我不想在這個專欄里欺騙我自己。遺憾的是，愛因斯坦走在我的前面，我們彼此錯過了。（我在他的應答機上留了言，但是那時電話應答機還沒有發(fā)明，我不能確定什么時候能得到答復。）因此我決定，“究竟是怎么回事兒啊？讓我試一試，看看到底會發(fā)生什么。如果這條路終究行不通，我就及時撤回來，并在專欄張貼到 MSDN 之前將其刪除掉。”所以，如果您不能立刻讀到這個專欄，就知道這是為什么了。
使用 Excel：快速回顧
上個月，我們學習了如何編寫腳本來從 Excel 電子表格提取數(shù)據(jù)。（如果您想不起上個月的專欄，您可以及時地返回去，也可以單擊此處。）在該專欄中，我們指出了僅僅使用下面兩行代碼就能夠創(chuàng)建 Excel 實例：
Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add當然，這是薛定諤電子表格的一個例子：在您看見之前，您不能確定它是否真的是 電子表格。這是因為，在默認情況下，您任何時候創(chuàng)建的 Excel 實例都運行在不可見的窗口之中。要實際地看一看 Excel 實例，您需要將 Visible 屬性設置為 TRUE，如下所示：
Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add objExcel.Visible = True這三行代碼在屏幕上顯示一個空白的電子表格。這本身是非常令人興奮的，但如果該電子表格實際上包含一些數(shù)據(jù)就更令人興奮了。根據(jù)量子力學，電子表格的原子自發(fā)重排以顯示有意義的數(shù)據(jù)還是有可能的。不過，我們還是不要等待這種可能性了，讓我們看一看依靠自己的力量是否能夠將有意義的數(shù)據(jù)添加到電子表格中。
返回頁首將數(shù)據(jù)添加到電子表格中
當電子表格關閉時，您可以很容易地將數(shù)據(jù)添加到電子表格中，而不用重排所有的原子：首先您簡單地引用一個單元格，然后相應地設置值。例如，假設我們想要將單詞 Schr?dinger 輸入第一行第一列。試一試下面的腳本，看看會發(fā)生什么：
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Schr?dinger"當您運行這個腳本時，您會看到類似于這樣的輸出：
圖 1. 將數(shù)據(jù)寫入 Excel 電子表格
哈哈，很酷吧！如果您想要添加其他的數(shù)據(jù)，我們只需要多引用幾個單元格并且設置合適的值就可以了。例如，下面的腳本將四個著名物理學家的名字添加到我們的電子表格中：
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Schr?dinger" objExcel.Cells(1, 2).Value = "Bohr" objExcel.Cells(1, 3).Value = "Heisenberg" objExcel.Cells(1, 4).Value = "Einstein"當您運行這個腳本時，您會看到類似于這樣的輸出：
圖 2. 將數(shù)據(jù)寫入 Excel 電子表格中的多個單元格
現(xiàn)在，真的非常酷……！嗯，不錯，您真行！但這還不 夠，是嗎？可以將數(shù)據(jù)添加到電子表格是一件了不起的事哦，不過，讓我們考慮一下這個問題。我們?yōu)槭裁丛敢庠?Excel 中顯示數(shù)據(jù)而不愿意在命令窗口中顯示數(shù)據(jù)或將其保存到文本文件中呢（編寫系統(tǒng)管理腳本最常使用后兩種方法）？我們之所以愿意這么做，最可能的原因并不是選擇這兩種方法會讓您花大量的精力去安排數(shù)據(jù)的格式。至少我們可以說將數(shù)據(jù)輸出到命令窗口或保存到文本文件會缺少某種美感。這就是我們愿意使用 Excel 的原因；Excel 使您能夠創(chuàng)建格式漂亮、易于閱讀的輸出。但是在這里我們還無法保證有格式漂亮的輸出；畢竟，您可能連 Schr?dinger 或 Heisenberg 這樣的名字都讀不到。因此，在進一步討論之前，讓我們來一個量子躍遷，談一談 Excel 中的格式設置。
返回頁首Excel 中的格式設置
如果您曾經(jīng)使用過 Excel，您就知道在 Excel 中設置格式是多么的容易：您只需選擇一兩個單元格，然后就可以應用某種格式了（更改字體大小、更改單元格的背景顏色、將文本設置為黑體等等，想做什么都可以）。在程序化地使用 Excel 時，您也可以做同樣的事情。例如，僅僅通過使用一些設置格式的命令，您就可以設置活動單元格（您正在輸入的單元格）的格式。下面的腳本將單詞 Schr?dinger 輸入第一行第一列的單元格中，然后：
| ? | 將文本設為黑體（通過將 Bold 屬性設置為 TRUE）。 |
| ? | 將字體大小設為 24（通過將 Size 屬性設置為 24）。 |
| ? | 將字體顏色設為紅色（通過將 ColorIndex 屬性設置為 3）。 |
當您運行這個腳本時，您會看到如下所示的輸出：
圖 3. 將帶格式的數(shù)據(jù)寫入 Excel 電子表格
屏住呼吸，怎么樣？
最好的是除了 ColorIndex 屬性略顯復雜之外（等一會兒我們將討論它），這段代碼是非常簡單的。如果想要將文本設為斜體該怎么辦？可以使用下面這行代碼：
objExcel.Cells(1, 1).Font.Italic = TRUE如果想要使用 Times New Roman 字體該怎么辦？可以使用下面這行代碼：
objExcel.Cells(1, 1).Font.Name = "Times New Roman"注：遺憾的是，我們沒有時間全面介紹您在處理時會使用的許多格式設置選項。不過，您將此處找到一些非常好的關于 Excel 對象模型的信息。
好的，但 ColorIndex 屬性又怎么樣呢？雖然在 Excel 中有兩種不同的方法更改顏色，但 ColorIndex 可能是最簡單的（它還可以告訴您一些關于其他方法的內(nèi)容）。在 Excel 中，有 56 種內(nèi)置的顏色（索引號 1–56）可供您使用；您必須做的事情就是將 ColorIndex 屬性的值設置為期望的索引號。唯一的問題就是：您如何知道索引號 3 是紅色，而索引號 4 是您真正感興趣的綠色陰影呢？
這個問題提得好。我粗略地搜索了一下 MSDN，卻沒有找到這些索引號的文檔。但是沒關系，下面這個簡單的小腳本會向您顯示所有的 56 個索引號都代表什么顏色：
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add For i = 1 to 56objExcel.Cells(i, 1).Value = iobjExcel.Cells(i, 1).Interior.ColorIndex = i Next當您運行這個腳本時，您會看到如下所示的輸出：
圖 4. Excel ColorIndex 值
您可以看出，如果您想要將字體顏色設置為清綠色，則只需將 ColorIndex 設置為 8 就行了。
順便提一句，如果您仔細地看過了前面的腳本，您現(xiàn)在就會知道如何設置單元格的背景顏色：只需使用 Interior.ColorIndex 屬性就行了。例如，要將單元格的顏色設置為紅色，可以使用下面的代碼：
objExcel.Cells(1, 1).Interior.ColorIndex = 3在我看來，您到現(xiàn)在還不知道這回事確實 是個奇跡。
在繼續(xù)討論之前，先來為我們的格式設置腳本做另外一件事。您可能會想得起來，我們的測試腳本向我們顯示以下所示的輸出：
圖 5. 將帶格式的數(shù)據(jù)寫入 Excel 電子表格
問題在哪里？嗯，首先單詞 Schr?dinger 并沒有全部顯示在第一列中。那好，如果我們在第一行第二列中輸入一些內(nèi)容會怎么樣呢？我們會看到類似于這樣的輸出：
圖 6. Excel 電子表格中大小設置不正確的列
沒有正確地得到我們所希望的輸出類型。顯然，我們需要做的是將第一列加寬一點。但怎么做呢？
返回頁首使用范圍
非常高興您問這個問題，因為現(xiàn)在是討論范圍的時候了。到此為止，我們還只是設置了活動單元的格式，為其更改字體大小、單元格顏色等等。然而，有時您需要使用多個單元格。或許您想要更改特定行中所有單元格的字體大小。或許您想要對您收集的所有數(shù)據(jù)進行排序。或許，和下面的例子一樣，您想要重新設置整個列的大小。如果這樣，您就需要使用范圍，一組 指定的單元格。
雖然有幾種不同的方法指示范圍中包含的單元格，但是它們有一點是共同的：它們都需要您創(chuàng)建 Range 對象的實例，然后 指定哪些單元格是該范圍的一部分。例如，下面是一些創(chuàng)建范圍的常用方法。
要創(chuàng)建包含單個單元格的范圍：
Set objRange2 = objExcel.Range("A1")要創(chuàng)建包含整個列的范圍：
Set objRange = objExcel.ActiveCell.EntireColumn正如您所期望的，有相似的命令來創(chuàng)建包含整個行的范圍：
Set objRange = objExcel.ActiveCell.EntireRow如果您想要選擇的行或列不同于帶有活動單元格的行或列怎么辦？沒問題。使用所需的行或列中的一個單元格來創(chuàng)建范圍，然后使用 Activate 方法來使其成為活動單元格。此時，設置代表整個行或列的范圍。例如，下面這段代碼使單元格 E5 成為活動單元格，然后通過選擇整個行來創(chuàng)建包含第 5 行中的所有單元格的范圍：
Set objRange = objExcel.Range("E5") objRange.Activate Set objRange = objExcel.ActiveCell.EntireRow要創(chuàng)建包含一組單元格的范圍：
Set objRange = objExcel.Range("A1:C10")注意，您在這里做的是指定起點 (A1) 和終點 (C10)。Excel 會自動選擇這兩個點之間的所有單元，并把它們放在范圍之中。
要創(chuàng)建包含所有數(shù)據(jù)的范圍：
Set objCell = objExcel.Range("A1").SpecialCells(11)在這個例子中，11 是表示包含數(shù)據(jù)的電子表格中最后的單元格的參數(shù)。這個命令所創(chuàng)建的范圍從單元格 A1 開始一直延伸到所有包含數(shù)據(jù)的單元格。
為了進行演示，讓我們再看一下前面的腳本，看看我們是否能夠使它變得更漂亮一點。在這個經(jīng)過修改的腳本中，我們將把物理學家的名字放在單列（而不是單行）中，并且我們將給該列加上粗體標簽 (Name)。然后，僅僅是為了使它變得更美觀一些，我們將：
| ? | 更改帶標簽的單元格 (1,1) 的背景顏色和字體顏色。 |
| ? | 創(chuàng)建包含我們正在使用的五個單元格的范圍 (A1:A5) 并更改字體大小。 |
| ? | 創(chuàng)建包含帶有四個物理學家名字的單元 (A2:A5) 的范圍并更改背景顏色。 |
| ? | 選擇列 A 并使用 Autofit() 方法來重新設置列的大小，以便所有的文本都適合。 |
腳本如下：
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Name" objExcel.Cells(1, 1).Font.Bold = TRUE objExcel.Cells(1, 1).Interior.ColorIndex = 30 objExcel.Cells(1, 1).Font.ColorIndex = 2 objExcel.Cells(2, 1).Value = "Schr?dinger" objExcel.Cells(3, 1).Value = "Heisenberg" objExcel.Cells(4, 1).Value = "Bohr" objExcel.Cells(5, 1).Value = "Einstein" Set objRange = objExcel.Range("A1","A5") objRange.Font.Size = 14 Set objRange = objExcel.Range("A2","A5") objRange.Interior.ColorIndex = 36 Set objRange = objExcel.ActiveCell.EntireColumn objRange.AutoFit()下面是最終的輸出結果：
圖 7. Excel 電子表格中美觀的格式
現(xiàn)在，您知道米開朗基羅完成圣母瑪利亞雕像時的心情了吧。
返回頁首數(shù)據(jù)排序
當然，我們對米開朗基羅懷著應有的尊敬，雖然圣母瑪利亞雕像非常出色，但是您不能對其進行排序。然而，您可以 對 Excel 中的輸出進行排序。將下面這兩行代碼放在腳本的末尾（我們等會兒就要解釋這兩行代碼的含義），然后再次運行腳本：
Set objRange2 = objExcel.Range("A1") objRange.Sort objRange2,,,,,,,1您應該看到如下所示的輸出：
圖 8. Excel 電子表格中經(jīng)過排序的數(shù)據(jù)
您必須按范圍對 Excel 中的數(shù)據(jù)進行排序。因而，您需要創(chuàng)建一個范圍，它包含您想要按其進行排序的列的第一個單元格。因為我們想要按列 A 進行排序，所以我們創(chuàng)建的范圍包含單個單元格：A1。下面這行代碼的作用就在于此：
Set objRange2 = objExcel.Range("A1")這種 Sort 方法看起來很瘋狂（這么多逗號！），但這是因為我們僅僅按單列進行排序。當您在 Excel 中對一些內(nèi)容進行排序時，您必須依次指定所有的排序參數(shù)；如果您不使用參數(shù)，則將其保留為空。下表對這些參數(shù)進行了總結。
| 參數(shù)位置 | 說明 |
| 1 | 按第一列進行排序。必須將其指定為范圍。 |
| 2 | 第一列的排序次序。將其設置為 1 表示升序（默認），將其設置為 2 表示降序。 |
| 3 | 按第二列進行排序。必須將其指定為范圍。 |
| 4 | 不用于腳本。將其保留為空。 |
| 5 | 第二列的排序次序。 |
| 6 | 按第三列進行排序。必須將其指定為范圍。 |
| 7 | 第三列的排序次序。 |
| 8 | 指示將要進行排序的數(shù)據(jù)是否有標題行。將其設置為 1，指示該數(shù)據(jù)有標題行；將其設置為 0，指示該數(shù)據(jù)沒有標題行；而 0 可以讓 Excel 確認數(shù)據(jù)是否有標題行。 |
下面是在我們的樣本腳本中解釋排序參數(shù) objRange2,,,,,,,1 的方式：
| 參數(shù) | 說明 |
| objRange2 | 按第一列進行排序。在我們的例子中，這是包含單元格 A1 的范圍。 |
| , | 第一列的排序次序。我們不使用這個參數(shù)，所以將其保留為空。 |
| , | 按第二列進行排序。我們不使用這個參數(shù)，所以將其保留為空。 |
| , | 不用于腳本。將其保留為空。 |
| , | 第二列的排序次序。我們不使用這個參數(shù)，所以將其保留為空。 |
| , | 按第三列進行排序。我們不使用這個參數(shù)，所以將其保留為空。 |
| , | 第三列的排序次序。 |
| 1 | 指示將要進行排序的數(shù)據(jù)有標題行。 |
在稍后的代碼中，我們將對兩個不同的列進行排序，您將看到一個空想家如何進行排序的例子。
返回頁首哦，真的是這樣：從 Active Directory 中提取數(shù)據(jù)
如果您的記憶力比較好（或者您可以訪問時間機器），您就可能會想起，在這個專欄的開頭我答應教您如何從 Active Directory 中提取數(shù)據(jù)并將其直接放到電子表格中。我們確實是繞了一個圈子才回到這兒，不過，我們馬上就要進入正題了。
我們將要做的事情是編寫一個腳本來搜索 Active Directory 并提取每個用戶帳號的信息；然后，我們使用這些信息來建立公司電話目錄。注意，當我向您顯示用于搜索 Active Directory 的代碼時，我們將不會采用任何方式來討論這些代碼；畢竟，這是一個關于 Excel 而不是 Active Directory 的專欄。（如果您想要獲得更多關于使用腳本來搜索 Active Directory 的信息，您可能需要查看我們關于這個主題最新的網(wǎng)絡廣播。
首先我們來看一看這段代碼，然后我們將對相關的部分做一些介紹：
Const ADS_SCOPE_SUBTREE = 2 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Last name" objExcel.Cells(1, 2).Value = "First name" objExcel.Cells(1, 3).Value = "Department" objExcel.Cells(1, 4).Value = "Phone number" Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 100 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _"SELECT givenName, SN, department, telephoneNumber FROM " _& "'LDAP://dc=fabrikam,dc=microsoft,dc=com' WHERE " _& "objectCategory='user'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst x = 2 Do Until objRecordSet.EOFobjExcel.Cells(x, 1).Value = _objRecordSet.Fields("SN").ValueobjExcel.Cells(x, 2).Value = _objRecordSet.Fields("givenName").ValueobjExcel.Cells(x, 3).Value = _objRecordSet.Fields("department").ValueobjExcel.Cells(x, 4).Value = _objRecordSet.Fields("telephoneNumber").Valuex = x + 1objRecordSet.MoveNext Loop Set objRange = objExcel.Range("A1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("B1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("C1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("D1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("C1") Set objRange3 = objExcel.Range("A1") objRange.Sort objRange2,,objRange3,,,,,1確實，這段代碼看起來 有點復雜。但實際上，它非常簡單。例如，看到了用斜體字顯示的代碼行了嗎？嗯，現(xiàn)在，我們完全可以忽略它們。它們用于：
| ? | 創(chuàng)建可見的 Excel 實例（您已經(jīng)知道如何去做了）。 |
| ? | 標記四個用于輸出的列 (Last name、First name、Department、Phone number)。您也已經(jīng)知道如何去做了。 |
| ? | 搜索 fabrikam.com 域并檢索所有用戶帳號的 SN（姓或名）、givenName（名）、department 和 telephoneNumber 屬性。如果您不 知道如何去做，可以查看網(wǎng)絡廣播。 |
事實上，只有開始編寫這些用黑體字顯示的代碼行之后，腳本編寫才開始變得有趣：
x = 2 Do Until objRecordSet.EOFobjExcel.Cells(x, 1).Value = _objRecordSet.Fields("SN").ValueobjExcel.Cells(x, 2).Value = _objRecordSet.Fields("givenName").ValueobjExcel.Cells(x, 3).Value = _objRecordSet.Fields("department").ValueobjExcel.Cells(x, 4).Value = _objRecordSet.Fields("telephoneNumber").Valuex = x + 1objRecordSet.MoveNext Loop這是我們從 Active Directory 中實際提取數(shù)據(jù)并將其顯示在 Excel 中的地方。為此，我們首先將變量 x 的值設置為 2。該變量指示電子表格中的當前行。我們?yōu)槭裁磸牡诙虚_始而不從第一行開始呢？其原因很簡單，我們把列標題放在了第一行。因此，我們從第二行開始顯示數(shù)據(jù)。
接下來，我們創(chuàng)建一個循環(huán)來循環(huán)顯示返回記錄集中的所有記錄。循環(huán)中的第一個命令是：
objExcel.Cells(x, 1).Value = _objRecordSet.Fields("SN").Value這段代碼選擇第 2 行（用 x 表示）第 1 列，并且將該值設置為 objRecordSet.Fields("SN")。這是記錄集中第一個用戶的 SN（姓）。然后，腳本轉到第 2 行第 2 列，并且將該單元格的值設置為用戶的 givenName（名）。在為 department 和 telephoneNumber 執(zhí)行了相同的操作之后，腳本將 x 增加 1（從而使 x = 3）。然后，它循環(huán)處理記錄集中的下一個記錄，并將數(shù)據(jù)顯示在第 3 行中。這樣繼續(xù)下去，直到所有的用戶數(shù)據(jù)都添加到電子表格中為止。
換句話說，就是 您從 Active Directory 中提取數(shù)據(jù)并將其顯示在 Excel 中。您首先檢索數(shù)據(jù)，然后簡單地將指定單元格的值設置為從 Active Directory 中提取的值。通過使用簡單的 Do Loop 循環(huán)并將行號每次增 1，您可以顯示記錄集中的每一項的信息。就是這么簡單！
腳本的剩余部分純粹就是點綴了。例如，這段代碼將活動范圍設置為單元格 A1，選擇整個列，然后使用 Autofit 方法來重新設置該列的大小，這樣所有的數(shù)據(jù)就都可以顯示在屏幕上。該腳本然后對列 B、C 和 D 重復這個過程。
Set objRange = objExcel.Range("A1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit()代碼的最后四行對所有的返回數(shù)據(jù)進行排序，首先按部門名稱進行排序，然后按姓進行排序。腳本首先創(chuàng)建包含所有數(shù)據(jù)的范圍，然后為單元格 C1（按第一列進行排序）和單元格 A1（按第二列進行排序）創(chuàng)建單獨的范圍。此時，腳本調用 Sort 方法，將單獨的范圍對象作為參數(shù)傳入。（相信我：這聽起來雖然有點復雜，但是它真的非常簡單！）
如果您在填充了電子表格之后想要自動保存它，該怎么做呢？如果與這個例子的情況一樣，就只要在腳本的末尾加上下面這段代碼就行了；這三行代碼將電子表格保存為 C:/Scripts/Phone_Directory.xls 并終止 Excel 實例：
Set objWorkbook = objExcel.ActiveWorkbook objWorkbook.SaveAs("C:/Scripts/Phone_Directory.xls") objExcel.Quit如果不想終止 Excel 實例，只要不加上最后一行就可以了。
記住，您并不限于顯示 Excel 中的 Active Directory 信息。例如，下面是一個非常簡單的 WMI 腳本，它檢索運行在計算機上的所有服務的狀態(tài)和名稱，然后將這些 信息顯示在 Excel 中。
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add x = 1 strComputer = "." Set objWMIService = GetObject _("winmgmts://" & strComputer & "/root/cimv2") Set colServices = objWMIService.ExecQuery _("Select * From Win32_Service") For Each objService in colServicesobjExcel.Cells(x, 1) = objService.NameobjExcel.Cells(x, 2) = objService.Statex = x + 1 Next雖然相當簡單，但是它為您提供了一些創(chuàng)建腳本的基礎。
返回頁首就這些嗎？
不管您信不信，您可以在系統(tǒng)管理腳本中使用的所有奇妙的方法，我們都還沒有接觸到。例如，我們還沒有討論使用 Excel 來創(chuàng)建圖表或圖形的可能性。這是我們將來要做的事情嗎？嗨！我看起來像什么，一個時間旅行者？（事實上，我們將 討論如何創(chuàng)建圖表或圖形。唯一的問題是，我們將在這個系列中進行討論，還是在一些并行的系列中進行討論。）
如果您碰巧讀到這個系列并且對本月的專欄有什么問題或建議的話，請通過電子郵件將它們發(fā)送至 scripter@microsoft.com。下個月見（這取決于時間之箭指向何方，上個月見）。
腳本編寫門診
Greg Stemp 是國家公認的腳本編寫權威之一，并且被大家廣泛譽為世界級……哈哈！嗯，他們 的履歷表中怎么都當過足球教練？真的嗎？他被解雇 了？哦，很好！Greg Stemp 工作在……哦，現(xiàn)在繼續(xù)，難道我還沒有說出來嗎？好吧！Greg Stemp 現(xiàn)在在微軟工作，他擁有System Administration Scripting Guide 首席作家的終身頭銜。
總結
以上是生活随笔為你收集整理的Excel 脚本编写的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： PHP使用SMTP邮件服务器
- 下一篇： 数据结构杂谈（一）