请问如何用vb实现对excel文件的读取和写入操作？

2024年12月02日 08:41

有3个网友回答

网友（1）：

Dim excel As Object
Set excel = CreateObject("excel.application") '设定 excel API
'--------------这上面可不看照抄
excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启
excel.Visible = True 'excel 显示 or 隐藏 (True of False

excel.cells(1,2)="测试"
text1 = excel.cells(1,2) 'text1 读取

excel.ActiveWorkbook.Save 'excel 存档
excel.quit 'excel 关闭

网友（2）：

Dim wksObj As Object '
Set ex = CreateObject("Excel.Application"）
Set wkbObj = ex.Workbooks.Open(App.Path & "\main.xls"）' 打开当前文件夹下的main.xls
Set wksObj = ex.Worksheets(1) '打开工作表1

网友（3）：

好好学习vb啊