用vb引用excel表,在Set xlapp = CreateObject("Excel.Application")这一句出现错误2147024156(800702e4)

在别人的电脑上可以运行

第1个回答  2017-03-29
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")

是这样写的吗?本回答被网友采纳

用vb引用excel表,在Set xlapp = CreateObject("Excel.Application")这一...
Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.WorkSheet Set xlApp = CreateObject("Excel.Application")是这样写的吗?

Set xlApp = CreateObject("Excel.Application") 这一步导入excle时出 ...
从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),或者其他版本的,然后选择"确定"。表示在工程中要引用EXCEL类型库。

Set xlApp = CreateObject("Excel.Application")报错,请大神帮忙
Set xlApp = CreateObject("Excel.Application") ‘这句报错 提示 active x 部件不能创建对象 本机没有安装Excel

VB中运行到这句出错: Dim workbook As Workbook = New Workbook(strPh...
4)ElseMsgBox"已经是第一行!"EndIfEndSubPrivateSubForm_Load()'先在工程中引用MicrosoftExcel11.0ObjectLibraryDimRAsString,iAsIntegerDimsSource,sDestinationAsStringSetmxlApp=NewExcel.ApplicationSetmxlApp=CreateObject("Excel.Application")R="c:\\1.xls"H=1mxlApp.Visible=FalseSetmxlBook=mxlApp...

关于vbs调有excel宏的问题
Set objXLApp = CreateObject("Excel.Application")'注意以下的“e\/data_test.xls”的位置需要修改为包含宏的那个excel的实际位置 '位置需要设置为绝对路径 Set objXLBook = objXLApp.Workbooks.Open("f:\/abc.xlsm")'doChangeExcel即为excel中的宏方法的名称 objXLApp.Run "abc"'objXLBook.Saved ...

Dim xlApp As excel.Application用户定义类型未定义
应该这样吧 Dim xlApp As Object Set xlApp = CreateObject("Excel.Application")

怎样在Word中用VBA操作表格?
用CreateObject函数创建一个EXCEL对象,然后就可以用操作EXCELVBA一样操作EXCEL表格了。创建对象的代码格式如下:SetxlApp=CreateObject(\\"Excel.Application\\")其实很简单我们只要用Excel同样的方法找到Word的“开发工具”选项卡进入VBA编辑器然后插入一个模块并写下几行代码即可 ...

Dim xlApp As New Excel.Application 这句活显示用户定义类型未定义_百 ...
Dim xlApp As New Excel.Application 要引用Micrsoft Excel 14.0bject Library这个才对 也可以用后期绑定的方式CreateObject(“excel.Application”)

Set xlbook2 = xlapp.Workbooks.Open(tarFile)这句报错,求大神...
xlbook2每次用完后要先关闭退出,然后才能再次Set xlbook2,否则就会出错!

vb提示用户定义类型未定义
你的VB工程要引用“Microsoft Excel xx.x Object Library”才行。或者不引用,而改成下面这样也行:Dim objXLApp As Object 下面那个objWorkBook也要改为:Dim objWorkBook As Object Set objWorkBook = CreateObject("Excel.WorkBook")

相似回答