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

1、

下载信息  [文件大小：312.0 KB  下载次数：4]

点击浏览该文件:excel作为数据源_合并.table

2、

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

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

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

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读取，你要用二维数组读取，会快一些。