在VBA中用OpenText将分隔的TXT转换成XLS？
在VBA中用OpenText将分隔的TXT转换成XLS？
提问于 2017-05-10 17:44:54
我想把分隔的txt转换成xls文件。我想出了两行非常简单的命令，我认为它们应该可以工作，但实际上没有。有人能告诉我我犯了什么错误吗？
如果这行得通，我会用dir循环3000个txt文件...
谢谢!
博斯科
Sub ConvertDelimitedTXTtoXLS()
Dim wb As Workbooks
wb.OpenText Filename:="C:\Users\boscotsin\Desktop\test0.txt", DataType:=xlDelimited, Tab:=True
wb.SaveAs Filename:="C:\Users\boscotsin\Desktop\success.xls"
End Sub回答 2
Stack Overflow用户
发布于 2017-05-10 22:08:10
Sub delimitedTXTtoXLS()
Dim wb As Workbook
Workbooks.OpenText filename:="C:\Users\boscotsin\Desktop\test0.txt", origin:=xlMSDOS, DataType:=xlDelimited, Tab:=True
Set wb = ActiveWorkbook
wb.SaveAs filename:="C:\Users\boscotsin\Desktop\success.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
wb.Close SaveChanges:=True
End SubStack Overflow用户
发布于 2017-05-11 20:49:42
' Excel8
Sub delimitedTXTtoXLS2()
Dim wb As Workbook
Workbooks.OpenText FileName:="C:\Users\boscotsin\Desktop\test0.txt", origin:=xlMSDOS, DataType:=xlDelimited ', Comma:=True
Set wb = ActiveWorkbook
wb.SaveAs FileName:="C:\Users\boscotsin\Desktop\success.xlsx", FileFormat:=56, CreateBackup:=False
wb.Close SaveChanges:=True
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43888843
复制相关文章
相似问题
腾讯云开发者
