代码之家 › 专栏 › 技术社区 › Bernoulli Lizard

从VB.NET在Excel中打开一个.txt文件

delimited tabs excel vb.net

Bernoulli Lizard · 技术社区 · 12 年前

如何从VB.NET代码在Excel中打开以制表符分隔的.txt文件?

这个问题在很多论坛上都被问过,但我在任何地方都找不到真正解决这个问题的答案。

Dim fileName As String = "file.txt"
Dim filePath As String = System.Reflection.Assembly.GetExecutingAssembly().Location
Dim fullFilePath As String = filePath.Substring(0, filePath.LastIndexOf("\"c)) & "\" & fileName

Public Sub OpenFileInExcel()

    Process.Start("excel.exe", fullFilePath)

End Sub

2 回复 | 直到 9 年前

Idle_Mind 12 年前

只需使用Process.Start()并将“excel.exe”作为第一个参数,将文件名作为第二个参数:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim TabDelimitedFileName As String = "C:\Users\Mike\Documents\somefile.txt"
    If System.IO.File.Exists(TabDelimitedFileName) Then
        Process.Start("excel.exe", Chr(34) & TabDelimitedFileName & Chr(34))
    Else
        MessageBox.Show(TabDelimitedFileName, "File Not Found")
    End If
End Sub

David A Stumpf 6 年前

您可以使用Excel COM对象打开文件并自动调整列:

   Dim X As New Microsoft.Office.Interop.Excel.Application()
            X.Workbooks.Open(FileNm)
            Dim W As Microsoft.Office.Interop.Excel.Worksheet = X.ActiveSheet
            Dim R As Microsoft.Office.Interop.Excel.Range = W.Range(W.Cells(1, 1), W.Cells(65000, 250))
            R.Columns.AutoFit()
            X.Visible = True

推荐文章