一、如何用vb调用excel
首先在VB中引用microsoft excel object library
假设c盘根目录下有个1.xls的文件
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:1.xls")
Set xlSheet = xlBook.Worksheets(1)'引用第1张工作表
剩下的就和用VBA一样了，通过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
