[求助]还是excel建立链接问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If Connections.Contains("AllExcelImport")=True Then Connections.Delete("AllExcelImport")

If Vars("gBigBuyFile").Contains(".xlsx")=True OrElse Vars("gBigBuyFile").Contains(".XLSX")=True Then

Connections.Add("AllExcelImport","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Vars("gBigBuyFile") & ";Extended Properties=""EXCEL 12.0;HDR=NO;IMEX=1"";")

'老版本 Connections.Add("AllExcelImport","Provider=Microsoft.JET.OLEDB.12.0;Data Source=" & Vars("gBigBuyFile") & ";Extended Properties=""EXCEL 12.0;HDR=NO;IMEX=1"";")

ElseIf Vars("gBigBuyFile").Contains(".xls")=True OrElse Vars("gBigBuyFile").Contains(".XLS")=True Then

Connections.Add("AllExcelImport","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Vars("gBigBuyFile") & ";Extended Properties=""EXCEL 8.0;HDR=NO;IMEX=1"";")

Output.Show(Vars("gBigBuyFile"))

'老版本 Connections.Add("AllExcelImport","Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Vars("gBigBuyFile") & ";Extended Properties=""EXCEL 8.0;HDR=NO;IMEX=1"";")

End If

For Each CN As Connection In ConnectionS

Output.Show( Cn.NAME)

运行结果

C:\Users\handstion\Desktop\Table.xls

项目数据

中途提醒"AllExcelImport"建立失败

打开C:\Users\handstion\Desktop\Table.xls文件时出现

此主题相关图片如下：无标题1.png

[此贴子已经被作者于2017/10/19 20:55:07编辑过]

发布的程序,在另外一台机子运行,也是excel报错

代码是

Dim App As New MSExcel.Application

try

Dim Wbook As MSExcel.Workbook = App.WorkBooks.Open(inFileName)

Dim TmpSheet As MSExcel.WorkSheet = Wbook.WorkSheets(SheetName)'"RU1805分笔")

Dim Rg As MSExcel.Range = tmpsheet.cells(1,1)

Dim N As Integer = tmpsheet.Range("a65536").End(-4162).Row - 1

app.quit

Catch ex As Exception

OutputInfo( True,"【Fun期货交易导入】导入失败!!!" )

app.quit

End try

错误窗口是:

此主题相关图片如下：无标题.png

第二个问题解决了,第一个仍然不行,我把excel文件传来,望老师帮助一下,我怀疑是excel文件问题,这个文件是用其它直接生成的,我也有xls格式excel文件,是手工做的,也能导入

下载信息 [文件大小：下载次数： ]
点击浏览该文件:table.xls

可是发布后,在另外一台机子,却能正常运行;如果用我上面第二种方法,它就能导入,但速度太慢

[此贴子已经被作者于2017/10/19 21:25:42编辑过]

谢谢,我有逐行读取现存的,只是感觉比建立连接慢,所以才一个心思搞,

主题：[求助]还是excel建立链接问题