Question

如何用VBS将TXT的内容写入到excel里？

我这里有个文本文件，格式类似如下：
123 4555 6756
5653 652 12454
......
......
请问怎么用VBS以空格做分割写入到excel里面？
结果：
A列 B列 C列
123 4555 6756
5653 652 12454
没分，求高手帮忙。

Answer 1

设文件为F:\Data.txt,保存到F:\Data.xls,如果F:\Data.xls存在，则覆盖，请注意！

TxtUrl = "F:\Data.txt"

XlsUrl = "F:\Data.xls"

Set xls = CreateObject("Excel.Application")

xls.Visible = True

xls.DisplayAlerts = False

Set xlTxt = xls.Workbooks.Open(TxtUrl)

Set xlsheet = xlTxt.Worksheets(1)

xlsheet.Range("A:A").TextToColumns xlsheet.Range("A1"), 1, , , , , True, , True, "，"

xlTxt.SaveAs XlsUrl,56

xlTxt.Close

xls.DisplayAlerts = True

if xls.Workbooks.Count = 0 then

xls.Quit

end if

追问

xlTxt.SaveAs XlsUrl,56这行有错误啊？提示方法无效。