Question

求VBA代码:后台将一个TXT文本文件以CSV文件格式导入到Excel表中

如题
后台实现,一键完成
谢谢!

Answer 1

• 假设你的txt文件名为 "你的CSV.txt" 分隔符为逗号

Sub Button1_Click()
    '关闭更新
    Application.ScreenUpdating = False
    pa = ThisWorkbook.Path & "\"
    '导入txt 设置分割符为逗号
    Set sh = Sheets.Add(, Sheets(Sheets.Count))
    Set wb = Workbooks.Open(pa & "你的CSV.txt", , , 6, , , , , ",")
    wb.Sheets(1).Cells.Copy sh.Cells
    wb.Close
End Sub

Answer 2

啥也没有，n键也完不成