[求助]还是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

1、

下载信息 [文件大小：312.0 KB 下载次数：4]
点击浏览该文件:excel作为数据源_合并.table

2、

把 000208D5 的注册表的选项删除，类似

http://www.cnblogs.com/bile/p/3520439.html

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

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

你这个文件，实际上是txt，而不是excel，它只是改成xls后缀名而已。

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

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

txt可以这样合并

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt;*.xls"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName,encoding.default)
    Dim rs() As String = strs.Split(chr(10))
    For i As Integer = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split(chr(9))
        If cs.Length = 24 Then
            output.show(cs(0) & " " & cs(1))
            'Dim dr As DataRow = DataTables("表A").Addnew()

        End If
    Next
End If
Tables("表A").ResumeRedraw

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

7楼的代码也不慢。

如果你用vba读取，你要用二维数组读取，会快一些。

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