vb与excle联动的程序时，按网上实例写 却AcitveX控件不能创建对象 怎么办？

发布网友 发布时间：2022-04-26 13:35

我来回答

共2个回答

热心网友 时间：2022-04-26 15:04

用vb直接打开excel，提取及保存数据，然后发送给下位机就可以了。
首先在form中定义全局变量
Public xlApp As Excel.Application '定义EXCEL类
Public xlBook As Excel.Workbook '定义工件簿类
Public xlsheet As Excel.Worksheet '定义工作表类

If Dir("D:\目录\excel.bz") = "" Then '判断EXCEL是否打开

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见

Set xlBook = xlApp.Workbooks.Open("D:\目录\2.xls") '打开EXCEL工作簿
'xlApp.Workbooks.Add

Set xlsheet = xlBook.Worksheets("sheet1") '打开EXCEL工作表中的第一个sheet
xlsheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏（此目的是在excel的宏打开中创建一个标志文件，excel.bz，每次vb打开excel时会检测这个标志，获得控制权）
xlsheet.Cells(1, 1)=“成功啦”

在excel中添加一个模块，添加宏命令
Sub auto_open()
Open "d:\目录\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\目录\excel.bz" '删除标志文件
End Sub

我最近就在做一个这样的项目，有什么疑问你可以问我哦。多少能帮你点忙

保存文件
xlBook.Save '保存工作表
关闭工作表

If Dir("D:\L波段测试台\excel.bz") <> "" Then '判断EXCEL是否打开

xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (False) '关闭EXCEL工作簿（含保存）
xlApp.Quit '关闭EXCEL
' Set xlApp = Nothing '释放EXCEL对象
end if

热心网友 时间：2022-04-26 16:22

在VB工程里，菜单“工程”-->"引用"-->"Microsoft Excel 14.0 Object Library" (14.0是版本号,不一样没关系),把它勾选上试试看.