假设你的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
啥也没有，n键也完不成
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024