VB读取excel，提示不能创建对象..

Posted 2023-05-05

Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

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
Set xlApp = CreateObject("Excel.Application") 这行出错，
问题清楚了，office的问题，G的系统不能用，要装office完整版..

参考技术A 单看代码是没什么问题的，你检查下excel有没有安装正确，手动打开一个excel表试下：
也可以尝试这样： Set xlApp = New Excel.Application 参考技术B 1、安装office
2、没有引用
“工程”菜单----》“引用”，选取项目中的“Microsoft Excel 11.0 object library”项本回答被提问者采纳 参考技术C 试试：

Option Explicit

Dim xlApp As object

Dim xlBook as object

Dim xlsheet As object

C#里使用NPOI创建EXCEL文件的简单方法

C#里使用NPOI创建EXCEL文件的简单方法

在前面使用ExcelDataReader库时，它只能读取EXCEL文件，而不能创建和写入EXCEL文件。

对于一些客户要求生成EXCEL文件时，就不能满足这个需求了。

比如使用CSV文件时，如果修改一下数据，再保存数据时，EXCEL就会提示一个格式不对的窗口，并且不能手动关闭。

这是EXCEL软件为了自己的利益，强制干这些事情，不愿意提供一个关闭的选项。

这样让客户保存数据，就非要多点击一次鼠标，导致客户严重不满意，强烈要求我们修改软件的格式。

这时候我们就只能使用EXCEL的文件格式，而不能使用CSV的格式了。

另外一种情况，也是需要使用EXCEL的格式。比如需要把数据某些列显示为红色，或者表格有一些格式要求。或者需要有图表。

因此，如果没有上述的情况下，使用CSV是更加方便，文件体积更加短小，软件之间进行数据交互最方便，这是CSV作为首选的方式。

如果避免不了上述的情况，就需要使用EXCEL的格式了。

使用EXCEL一般来说，也有两种方式，一种是使用EXCLE软件自己带的COM组件的方式，这种方式需要安装OFFICE软件，这样方式就比较麻烦了，

需要每一台使用的电脑都安装OFFICE，这样软件成本就会急剧上升，导致产品竞争力下降。这种方式也会导致一种情况，就是当用户正