VBA提示输入不带分隔符的DAT，添加新工作表，然后导入DAT

Sub ImportDAT()
    Dim filePath As String
    Dim newSheet As Worksheet
    
    ' 提示用户输入DAT文件路径
    filePath = InputBox("请输入不带分隔符的DAT文件路径：")
    
    ' 添加新的工作表
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    
    ' 导入DAT文件数据到新的工作表
    With newSheet.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=newSheet.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ""
        .TextFileColumnDataTypes = Array(1) ' 根据需要设置列的数据类型
        .Refresh BackgroundQuery:=False
    End With
End Sub