第1个回答 2011-03-19
要改变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本回答被网友采纳