一、vb操作excel
VB操作EXCEL的方法是引用EXCEL对象
然后
DIM 工作簿变量=EXCEL.WORKBOOK
DIM 工作表变量=EXCEL.WORKSHEET
用GETOBJECT打开已经存在的工作表,或者用工作簿变量.workbooks.add增加一个工作表,然后再Set 工作表变量=工作簿中的某一个工作表,然后就可以通过
工作表变量.cell(x,y)调用EXCEL的数据了.
经退出EXCEL时别忘了QUITE EXCEL 对象来关闭后台.
二、vb60如何操作excel
修改文件目录你可以直接改变量p的值，改变单页格需要改变cells(row,col)中的row，col参数，对于打印机你首先要读取你本地所有打印机的名称，你可以把打印机设置成默认，然后输出objExcel.Application.ActivePrinter的值，读取这些值后在设置objExcel.Application.ActivePrinter的值，即设置默认打印机，比较麻烦，程序里我改了一点就是打开excel文件后直接调出打印设置窗口，你自己选择打印机打印
下面代码已经改成自动保存了
Private Sub Command1_Click()
p = "c:\book1.xls" '这里改你文件的路径
Set objexcel = CreateObject("Excel.Application")
'创建excel工程
Set xlBook = objexcel.Workbooks.Open(p) '打开d盘abc.xls
Set xlsheet = xlBook.Worksheets("sheet1")
'打开表sheet1
objexcel.Visible = True '设置excel可见或不可见
xlsheet.cells(1, 1) = "123" 'cells(1,1)表示A1,第一行第一列,B1表示为cells(1,2)
xlBook.saved = True
'不提示是否保存，直接保存文件
objexcel.ActiveWorkbook.Save
On Error GoTo lap1
'objExcel.ActiveWindow.SelectedSheets.PrintOut , , , False '直接通过默认打印机打印这个表
objexcel.Application.Dialogs(8).Show '调出excel打印设置窗口
lap1:
objexcel.Application.Quit '退出excel程序
Set xlsheet = Nothing
Set xlBook = Nothing
Set objexcel = Nothing
End Sub
