VB将excel导入access
运行到下面这句的时候说activex部件不能创建对象，什么意思啊？网上查了好多也不管用Set excel_app = CreateObject("Excel.Application ")
，还有啊，高手们这个excel导入access数据库的源码能不能提供啊？网上找了好多也都运行不下去，高位高手多多指教啊 --------------------编程问答-------------------- 你确定你正确安装了excel? --------------------编程问答--------------------
对啊
--------------------编程问答-------------------- Private Sub Command1_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\f1.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
cn.Execute "Insert Into [;database=" & App.Path & "\XLDDATE.mdb;pwd=zhang123].[Models_parts]([ModelsdrawingNo],[Name],[Parameters],[Quantity]) Select [ModelsdrawingNo],[Name],[Parameters],[Quantity] From [Sheet2$]"
cn.Close
Set cn = Nothing
End Sub
--------------------编程问答-------------------- 工程--》引用--》 Microsoft ActiveX Date Objects 2.7 Library --------------------编程问答-------------------- 我也碰到类似的情况，程序跟上面的差不多，当运行时，会出现适时错误‘424’，“要求对象”，怎么回事啊？请高手指点一下啊，在此先谢过了 --------------------编程问答-------------------- 工程->引用-> Microsoft ActiveX Date Objects 2.7 Library --------------------编程问答-------------------- 先加载EXECL的库文件,就行了. --------------------编程问答-------------------- Excel的库引用了吗
工程--引用--浏览--"D:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE"
我的机器就是这样子的 --------------------编程问答-------------------- 得在vb的工程引用里添加EXCEL引用。
这样才能使用的。 --------------------编程问答-------------------- http://download.csdn.net/source/2341786
补充：VB , 数据库(包含打印，安装，报表)
