請點擊輸入圖片說明。
單擊VBA編輯器菜單欄上的插入和模塊。
請點擊輸入圖片說明。
在模塊的代碼窗口中，使用數組Array輸入以下程序代碼。與前面的VBA程序代碼相比，我們會發現後面的程序更加簡潔。
Sub CreateText2()
Dim i，j，k，arr
出錯時繼續下壹步
設置mysheet1 = ThisWorkbook。工作表(“Sheet1”)
Set fs = createobject("腳本。文件系統對象”)’來訪問計算機系統文件。
設置fi = fs。create textfile(" d:\ code 12345 . txt "，True)？在驅動器d中創建壹個代碼為12345.txt的文本文件。
arr = Array("[User]"，" uid= "，" last_name= "，" frist_name= "，" accessibility= "，_
" password = "，" sap me: defaultsite = "，" role = "，" group = ")'將固定內容寫入數組。
對於i = 1到1000？從第壹行到1000行
k =應用。worksheet function . CountIf(my sheet 1。範圍(mysheet1。單元格(I，1)，_
Mysheet1。Cells(i，8))，"")'計算空白單元格的個數。
如果k = 0，則“如果空白單元格的數量為0:
j = 0？j初始化，從0調用數組
菲。WriteLine (arr(j))？將數組內容寫入文本文檔。
對於j = 1到8 '從第壹列到第八列。
菲。WriteLine (arr(j)和ampmysheet1。單元格(I，j))？從數組和單元格中獲取內容，並將其寫入文本文檔。
然後
如果…就會結束
然後
菲。關閉
末端接頭
請點擊輸入圖片說明。
請點擊輸入圖片說明。
VBA程序代碼的解釋；
(1)用於...嵌套下壹個循環時，執行壹次外部for，執行完內部For後再次執行外部For，以此類推，執行完外部For後循環結束。
(2)Array是壹個數組函數，其中的參數通常用逗號(，)分隔，對應值的序號從0開始。比如arr=Array("AA "，" BB "，" CC ")，arr的值(1)是數組中的第二個(也就是" BB ")。
(3)如果想在數組中得到相應的值，單擊視圖和本地窗口，然後按F8鍵逐行運行程序。通過數組程序行後，可以在“局部窗口”中看到展開的數組中對應的值。
請點擊輸入圖片說明。
請點擊輸入圖片說明。
運行VBA程序，其執行的結果是壹樣的。
請點擊輸入圖片說明。