这种不能直接导入的，需要使用这种方法导入：http://www.foxtable.com/webhelp/topics/2629.htm
txt第一行数据是多余的，需要去掉，然后剩下的数据，哪些数据是哪一列的内容要自己分析了
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
For i As Integer = 1 To rs.Length - 1
Output.Show(i & "---------------")
Dim cs() As String = rs(i).Split(vbtab)
For j As Integer = 0 To cs.Length - 1
Output.Show(cs(j))
Next
Next
End If
Tables("表A").ResumeRedraw
加好友 
发短信
Post By：2020/1/1 10:06:00 [只看该作者]
此主题相关图片如下：8.jpg
