vb6.0如何操作excel

vb6.0如何操作excel
vb6.0如何操作excel
（该内容为网上网友提问，网友解答）
vb如何对excel表格进行操作，如对单元格插入内容
清除、修改单元格内容
打印表格内容
问题补充：
我不要用宏
假如我想修改D:\\ABC.xls 的文件的A1单元格内容vb语句如何填写
打印出这个文件的内容语句如何处理
_______________________________________
请问mafan8 如果要修改程序所在目录下的文件，路径怎么写？
打印到指定打印机上怎么操作？
谢谢来，给你加分
___________________________________
打印出来有内容，可以表格里没有啊
修改文件目录你可以直接改变量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
装VB和Excel后直接用VBA，代码简单快捷。

只要是Excel上可以操作的功能VBA都能实现，不会的录制宏就可以。

清除单元格，例：Cells(1,1)=""
修改单元格，例：Cells(1,1)="修改内容"
打印表格的代码：ActiveWindow.SelectedSheets.PrintOut [Form],[To],[Copies],[Preview],[ActivePrinter],[PrintToFile],[Collate ],[PrToFileName]
在给点别的用法。

Private Sub Cmdrun_Click()
Dim exl As Object 'excel使用的一般格式
Dim book As Object
Dim sht As Object
Set exl = CreateObject("excel.application")
Set book = exl.workbooks.Add '改为Set book = exl.workbooks.open(".txt")直接导入
Set sht = book.worksheets(1)
sht.range("a1").Value = "货号" '单格传值
sht.range("b1").Value = "单价"
sht.range("c1").Value = "数量"
sht.range("a1:c1").Font.Bold = True '"a1:c1"选中a1b1c1;"a1,c1"则选中a1c1 sht.range("a2:c2").Value = Array("R000", "56", "100") '单行传值
Dim a(99, 3)
For i = 0 To 99
a(i, 0) = "R" & Format(i + 1, "000")
a(i, 1) = Int(Rnd * 100)
a(i, 2) = Int(Rnd * 10)
Next i
sht.range("a3").Resize(98, 3) = a '多行传值，可以只传部分a的值
s = "R154" & vbTab & "15" & vbTab & "6" & vbCr 'tab分割的数据excel能自动识别Clipboard.Clear '剪切板(clipboard)传值Clipboard.SetText s
sht.range("a4").Select '选中粘贴的起始位置，再粘贴
sht.Paste
book.saveas "C:\\demobook.xls"
exl.quit
End Sub
按照你的需要编制下面代码，请参考：
Private Sub Command1_Click()
Dim S() As String, FileName As String, i As Integer, j As Integer Dim xlApp
Dim xlBook
Dim xlSheet
FileName = App.Path & "\\1.xls" '程序所在目录下的文件,请修改
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表xlSheet.Cells(1, 1) = "" '清除单元格内容
xlSheet.Cells(1, 1) = 1 '修改单元格内容
xlSheet.PrintOut '打印工作表
xlBook.SaveAs FileName:=FileName '保存工作表,结束时一定别忘了保存xlBook.Close (True) '关闭工作簿这里的True表示退出时保存修改
xlApp.quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub。