利用vb6.0 实现对EXCEL进行打开、写入、储存、关闭,可以应用在数据采集程序中,实现连续储存采集数据;应用:首先VB应该引用EXCEL类型,然后在EXCEL之VB中建立类模块,然后在类模块中输入如下程序,并储存,以便实现VB与EXCEL无缝连接。 Sub auto_open() Open "E:\temp\el.bz" For Output As #1 Close #1 End Sub Sub auto_close() Kill "E:\temp\el.bz" End Sub
clswindow是一个控制其他程序的类,之前有个vb6用的版本,但是直接在vba中使用会有一个小小的问题,现在修改了后可以添加到vba中使用了,这样在vba中就可以自由控制操作其他程序了。 压缩包里有个excel文件,演示的例子是读取当前打开的记事本的内容然后关闭它。需要先打开任意一个记事本文件。 相关代码: Sub 按钮1_Click() Dim w As New clsWindow Range("A1") = w.GetWindowByTitleEx("记事本", 1).GetEleme