解釋一下：
首先是定義兩個(gè)變量，ex和exwbook，只不過(guò)這兩個(gè)變量是用于”對象“類(lèi)型的。
Set ex = CreateObject("Excel.Application")就是建立一個(gè)操作excel的對象Application，讓ex指向它。
ex.Workbooks().Add就是產(chǎn)生一個(gè)excel的實(shí)例，讓exwbook指向它，這是一個(gè)xls文件了。
當然，如果你想用一個(gè)已經(jīng)存在的文件，ex.Workbooks.Open 就是做這個(gè)的。
ex.Visible 則可控制這個(gè)文件是否要顯示出來(lái)，True 或 False，這意味著(zhù)你完全可以在后臺、用戶(hù)不知不覺(jué)中修改xls文件內容。
ex.Worksheets("Sheet1").range("a1").Cells(1, 1) = "'Sheet1" 這句的意思是修改工作薄上sheet1，以a1單元格為中心，坐標(1,1)位置的單元格，將其內容修改為……可以是任何內容，規則遵循Excel的單元格的輸入原則。當然，此類(lèi)操作還有很多，定位單元格修改內容只是其中之一，具體的可以在Excel中使用錄制宏功能，并查看產(chǎn)生的代碼?；旧?，簡(jiǎn)單修改一下這些代碼就可以用在VB6對Excel文檔的操控上。
ex.Sheets("Sheet1").Name = "PCA" 這是為sheet改名，不必多說(shuō)了吧。
ex.Sheets.Add 完全等同于Excel界面上的“添加工作薄”菜單操作。會(huì )多一個(gè)sheet4，并被激活。
'ActiveWindow.SelectedSheets.Delete 有添加就有刪除，只是要小心，這是刪掉當前處于活動(dòng)狀態(tài)的sheet，如果你想刪除的不確定是不是處于當前位置，請用ex.Sheets("Sheet2").Select先激活它。
exwbook.saveas App.Path & "/test.xls" 這是保存。App.path是VB6的對象，你用VB6生成的程序放在什么目錄，這個(gè)就返回它所目錄的路徑。
ex.Quit 這個(gè)是關(guān)掉xls文件用的，放在最后。
最后的最后，別忘了釋放掉你建的Object對象。用Set ex=Nothing，代碼中我忘了寫(xiě)了。
注：
Excel中的錄制宏功能，可以給你想要的一切代碼。當然，這段代碼也可以做成Excel宏，定義快捷鍵或工具欄按扭，保存為全局宏，使它可以操作于所有你打開(kāi)的Excel文檔之中。這對于有大量重復操作的工作中，能大大的緩解你的工作量。說(shuō)實(shí)在的，單單是Offices所提供的功能，能使用好了都要求相當專(zhuān)業(yè)的知識，這里的每一個(gè)組件都不簡(jiǎn)單。
————————————————
版權聲明：本文為CSDN博主「electricperi」的原創(chuàng )文章，遵循 CC 4.0 BY-SA 版權協(xié)議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/electricperi/article/details/1594126
