Question

如何用VBS实现将记事本内容写入EXCEL中

我有一个记事本文件具体多少行不定，每行内容长度也不定。现想将其写入到EXCEL中。用VBS如何实现?求源码！如：
678，yt567,uniform,中国Hguy,678
Yu345,bnh,世纪公园
不好意思，前面说得不清楚，我的EXCEL文件是已经有固定格式的，我要将文本内容填到里面，不能改变EXCEL文档的格式。

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

 请给出Excel的格式，并说明，要不怎么知道怎么填？