用vba将txt导入excel

发布网友发布时间：2022-05-13 00:57

共2个回答

热心网友时间：2023-08-20 19:20

直接打开，粘贴数据即可，代码如下：

Sub xx()
    Dim wb As Workbook
    Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\1.txt", Format:=6, delimiter:=" ")  '打开1.txt
    Sheet1.[a1:b4] = WorksheetFunction.Transpose(wb.Sheets(1).[a1:d2].Value)  '粘贴数据
    wb.Close False  '关闭1.txt
End Sub

热心网友时间：2023-08-20 19:20

不用vba 也可以，直接把文本复制到 excel 中，然后用分列功能就可以了追问恩，谢谢。只是用vba方便一些，我还编制了其他宏命令，一起调用可以更方便一些

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com