Vba excel宏打开txt文件浏览

Sub OpenAndBrowseTxtFile()
    Dim filePath As String
    Dim fileContent As String
    
    ' 选择要打开的txt文件
    filePath = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    
    ' 检查是否选择了文件
    If filePath <> "False" Then
        ' 打开文件并读取内容
        Open filePath For Input As #1
        fileContent = Input$(LOF(1), 1)
        Close #1
        
        ' 在新的工作表中显示文件内容
        Dim newSheet As Worksheet
        Set newSheet = ThisWorkbook.Sheets.Add
        newSheet.Name = "TxtFileContent"
        newSheet.Range("A1").Value = fileContent
    End If
End Sub