level 13
vs2013中添加excel引用(2013版office),在安装了2013Excel的电脑上进行读写操作完全正常。但是到了安装了03或07Excel的电脑上却无法创建对象。于是在安装03或07版Excel的电脑上引用低版本的Excel,编译能通过,但仍然创建不了对象。难道VB2013不支持2013版以前的Excel?
2015年10月10日 08点10分
1
level 9
并不是的 应该是语句有问题吧
我给你一些我的一些示例
用openFileDialog1打开电子表格,然后读取数据。(还有建立电子表格写数据的,这里不贴了)
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "excel文件(*.xlsx)|*.xlsx|旧版excel文件(*.xls)|*.xls|所有类型 (*.*)|*.*"
openFileDialog1.RestoreDirectory = True
Dim excel_App As Object = New Object
Dim excel_Book As Object = New Object
Dim excel_sheet As Object = New Object
excel_App = CreateObject("Excel.Application")
excel_App.Visible = False
If openFileDialog1.ShowDialog() = True Then
Try
excel_Book = excel_App.Workbooks.open(openFileDialog1.FileName)
excel_sheet = excel_Book.Worksheets("sheet1")
For i = 1 To 283
fr(i) = excel_sheet.Cells(i + 1, 1).value
Next
MsgBox("ok")
Catch Ex As Exception
MessageBox.Show("读取文件失败: " & Ex.Message)
Finally
If (excel_App IsNot Nothing) Then
excel_App.quit()
excel_App = Nothing
excel_Book = Nothing
excel_sheet = Nothing
End If
End Try
End If
2015年10月13日 11点10分
2
请问你这样写要不要添加引用? 原来的问题解决了,把引用生成本地DLL就行了。
2015年10月13日 23点10分
@xxgyongheng 这样写不用添加引用。任何机器都能跑,不会受到excel版本限制。
2015年10月14日 00点10分