VB6 open workbooks提示对象‘open’的方法‘workbooks’失败，怎么解决

loloxywang 2017-10-24 11:43:39

Private Sub Combo1_Click()
Dim dongexcel As Object
Dim dongbook As Object
Dim dongsheet As Object
Dim filename As String
Set dongexcel = Nothing
Set dongbook = Nothing
Set dongsheet = Nothing

If Combo1.Text = "东阳变" Then

Set dongexcel = CreateObject("Excel.Application")

Set dongbook = dongexcel.Workbooks.open("C:\Users\Administrator\Desktop\QC\东阳变操作任务.xlsx")
'dongexcel.Visible = True
Set dongsheet = dongbook.worksheets("sheet1")
row_count = dongsheet.activesheet.usedrange.rows.Count
Combo2.Clear
For I = 1 To row_count
Combo2.AddItem excel_dong.cells(I, 1).Value
Next I

...全文

2338 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

loloxywang 2017-10-29

打赏
举报

回复

没人回答吗？

zgl7903 2017-10-25

打赏
举报

回复

启动EXCEL ，录制宏，手动操作，完了编辑宏，看到的全是VBA代码

loloxywang 2017-10-25

打赏
举报

回复

什么意思啊？请教

loloxywang 2017-10-24

打赏
举报

回复

还是不行啊，还是打不开，好像一定要dongexcel.Visible = True（设为可见后）才能打开那个excel，这是为什么啊？

赵4老师 2017-10-24

打赏
举报

回复

关闭UAC、防火墙、杀毒软件、…… 以管理员身份运行

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

用VB操作excel方法汇总 1) 显示当前窗口：ExcelID.Visible := True; 2) 更改 Excel 标题栏：ExcelID.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿：ExcelID.WorkBooks.Add; 4) 打开已存在的工作簿：ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 5) 设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate; 或 ExcelID.WorkSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值：ExcelID.Cells[1,4].Value := '第一行第四列'; 等等用代码操作电子表格

VB读取EXCEL源码Private Sub Command1_Click() Dim i As Integer, j As Integer Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = False '设置EXCEL不可见 Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 'xlsheet.Activate '激活工作表 Dim litem For i = 2 To 7 '行/记录条数 Set litem = ListView1.ListItems.Add() litem.Text = xlsheet.Cells(i, 1) litem.SubItems(1) = xlsheet.Cells(i, 2) litem.SubItems(2) = xlsheet.Cells(i, 3) litem.SubItems(3) = xlsheet.Cells(i, 4) 'MsgBox xlsheet.Cells(i, j) Next xlBook.Close (True) '关闭EXCEL工作簿 xlApp.Quit '关闭EXCEL Set xlApp = Nothing '释放EXCEL对象 End Sub

Sub 复制() 'sheet1中的代码复制到激活工作表中的工作表对象中 Dim wb As Workbook, vb1, vb2, str$ Application.ScreenUpdating = False For Each wb In Workbooks If wb.Name ThisWorkbook.Name Then wb.Close True Next Set wb = Workbooks.Open(ThisWorkbook.Path & "\测试.xlsm") Set vb1 = wb.VBProject.VBComponents("Sheet1") Set vb2 = ThisWorkbook.VBProject.VBComponents("Sheet1") str = vb2.CodeModule.Lines(1, vb2.CodeModule.CountOfLines) vb1.CodeModule.DeleteLines 1, vb1.CodeModule.CountOfLines vb1.CodeModule.AddFromString str Workbooks("动态高亮.xlsm").Close False Application.ScreenUpdating = True '复制完之后，关闭这个工作表 End Sub Sub 删除() '将激活工作表中的工作表对象中的代码删除 Dim wb As Workbook Application.ScreenUpdating = False For Each wb In Workbooks If wb.Name ThisWorkbook.Name Then wb.Close True Next Set wb = Workbooks.Open(ThisWorkbook.Path & "\测试.xlsm") With wb.VBProject.VBComponents("Sheet1") .CodeModule.DeleteLines 1, .CodeModule.CountOfLines End With wb.Sheets(1).Cells.FormatConditions.Delete Workbooks("动态高亮.xlsm").Close SaveChanges:=False Application.ScreenUpdating = False '删除之后，关闭这个工作表 End Sub

在VB以及VBA中自定义的xlapp或者myapp，在结束的时候虽用quit方法退出，但是系统进程中依然存在，那么如何解决呢？

进程/线程/DLL

15,471

社区成员

49,182

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章