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