用VB6操纵Excel文档执行操作

通过VBA操纵Excel很容易，其实可以实现任何Excel里的操作。

Dim ex As Object Dim exwbook As Object 'Create file Set ex = CreateObject("Excel.Application") Set exwbook = ex.Workbooks().Add 'Open file 'ex.Workbooks.Open filename:="G:/My Documents/bank.xls" 'show ex.Visible = True 'Value ex.Worksheets("Sheet1").range("a1").Cells(1, 1) = "'Sheet1" ex.Worksheets("Sheet2").range("a1").Cells(1, 1) = "'Sheet2" ex.Worksheets("Sheet3").range("a1").Cells(1, 1) = "'Sheet3" 'Rename Sheet ex.Sheets("Sheet1").Name = "PCA" 'Add a new Sheet ex.Sheets.Add 'Delete someone Sheet you want 'ex.Sheets("Sheet2").Select 'ActiveWindow.SelectedSheets.Delete 'Save File exwbook.saveas App.Path & "/test.xls" 'quit excel ex.Quit

---

 

解释一下：
首先是定义两个变量，ex和exwbook，只不过这两个变量是用于”对象“类型的。
Set ex = CreateObject("Excel.Application")就是建立一个操作excel的对象Application，让ex指向它。
ex.Workbooks().Add就是产生一个excel的实例，让exwbook指向它，这是一个xls文件了。
当然，如果你想用一个已经存在的文件，ex.Workbooks.Open 就是做这个的。
ex.Visible 则可控制这个文件是否要显示出来，True 或 False，这意味着你完全可以在后台、用户不知不觉中修改xls文件内容。

ex.Worksheets("Sheet1").range("a1").Cells(1, 1) = "'Sheet1" 这句的意思是修改工作薄上sheet1，以a1单元格为中心，坐标(1,1)位置的单元格，将其内容修改为……可以是任何内容，规则遵循Excel的单元格的输入原则。当然，此类操作还有很多，定位单元格修改内容只是其中之一，具体的可以在Excel中使用录制宏功能，并查看产生的代码。基本上，简单修改一下这些代码就可以用在VB6对Excel文档的操控上。

ex.Sheets("Sheet1").Name = "PCA" 这是为sheet改名，不必多说了吧。

ex.Sheets.Add 完全等同于Excel界面上的“添加工作薄”菜单操作。会多一个sheet4，并被激活。

'ActiveWindow.SelectedSheets.Delete 有添加就有删除，只是要小心，这是删掉当前处于活动状态的sheet，如果你想删除的不确定是不是处于当前位置，请用ex.Sheets("Sheet2").Select先激活它。

exwbook.saveas App.Path & "/test.xls" 这是保存。App.path是VB6的对象，你用VB6生成的程序放在什么目录，这个就返回它所目录的路径。

ex.Quit 这个是关掉xls文件用的，放在最后。

最后的最后，别忘了释放掉你建的Object对象。用Set ex=Nothing，代码中我忘了写了。


注：
Excel中的录制宏功能，可以给你想要的一切代码。当然，这段代码也可以做成Excel宏，定义快捷键或工具栏按扭，保存为全局宏，使它可以操作于所有你打开的Excel文档之中。这对于有大量重复操作的工作中，能大大的缓解你的工作量。说实在的，单单是Offices所提供的功能，能使用好了都要求相当专业的知识，这里的每一个组件都不简单。