Question

使用vb编程对excel进行读写运算

Answer 1

在VB6中，添加引用“Microsoft Excel object Library”
过程中加入下列代码，就能读写EXCEL单元格了：
Set FileSys = CreateObject("scripting.filesystemobject")
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置Excel不可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp.xls") '打开Excel工作簿 temp.xls
Set xlsheet = xlBook.Worksheets(1) '打开Excel工作表(Sheet1)
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "日期"
xlsheet.Cells(1, 2) = "时间"
程序结束时要用以下代码关闭EXCEL：
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象

Answer 2

没有实例呀