vb6.0如何操作excel
答案:5 悬赏:30 手机版
解决时间 2021-04-08 10:21
- 提问者网友：凉末
- 2021-04-07 11:15
vb6.0如何操作excel
最佳答案
- 五星知识达人网友：拾荒鲤
- 2021-04-07 12:20
修改文件目录你可以直接改变量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
下面代码已经改成自动保存了
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
全部回答
- 1楼网友：梦中风几里
- 2021-04-07 14:48
直接用excel自带工具vba完成.....
- 2楼网友：独行浪子会拥风
- 2021-04-07 13:42
在给点别的用法。
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 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
- 3楼网友：由着我着迷
- 2021-04-07 13:26
装VB和Excel后直接用VBA，代码简单快捷。
只要是Excel上可以操作的功能VBA都能实现，不会的录制宏就可以。
清除单元格，例：Cells(1,1)=""
修改单元格，例：Cells(1,1)="修改内容"
打印表格的代码：ActiveWindow.SelectedSheets.PrintOut [Form],[To],[Copies],[Preview],[ActivePrinter],[PrintToFile],[Collate],[PrToFileName]
只要是Excel上可以操作的功能VBA都能实现，不会的录制宏就可以。
清除单元格，例：Cells(1,1)=""
修改单元格，例：Cells(1,1)="修改内容"
打印表格的代码：ActiveWindow.SelectedSheets.PrintOut [Form],[To],[Copies],[Preview],[ActivePrinter],[PrintToFile],[Collate],[PrToFileName]
- 4楼网友：人類模型
- 2021-04-07 12:30
按照你的需要编制下面代码，请参考：
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
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯