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

点击浏览该文件:表格.txt

公司有很多这样的表格，需要把它快速转换为Excel，大家有没有什么好办法

参考代码，细节自行调整

\'\'\'
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").ResumeRedraw
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 = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split("┃")
        For j As Integer = 1 To cs.length-1
            \'Dim dr As DataRow = DataTables("表A").Addnew()
            \'dr("第一列") = cs(0)
            \'dr("第二列") = cs(1)
            \'dr("第三列") = cs(2)
            \'dr("第四列") = cs(3)
            output.show(cs(j))
        Next
        output.show("------------")
    Next
End If
Tables("表A").ResumeRedraw