vb6.0操作excel

vb6.0操作excel



Private Sub Command1_Click()

'遇到错误，直接执行下一行。
On Error Resume Next


'打开一个 EXCEL文件 【可以进行修改】

p = "c:\1.xls"

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True '设置EXCEL可见

Set xlBook = xlApp.Workbooks.Open(p) '打开EXCEL工作簿

Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表

xlsheet.Activate '激活工作表

xlsheet.Cells(1, 1) = "abcd" '给单元格第1行1列赋值

'xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏


xlBook.saved = True   '不提示是否保存，直接保存文件



'objExcel.ActiveWindow.SelectedSheets.PrintOut , , , False '直接通过默认打印机打印这个表

'objexcel.Application.Dialogs(8).Show '只 调出excel打印设置窗口 然后 手动打印

'objexcel.Application.Quit  '退出excel程序
'Set xlsheet = Nothing
'Set xlBook = Nothing
'Set objexcel = Nothing


End

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
_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/