vb 读TXT数据，存入EXCEL

来源：百度知道 编辑：UC知道 时间：2024/05/18 01:33:23
如何自动生成个EXCEL文件让我保存啊，我现在是必须在路径下先有这个文件然后才能进行写入数据，程序如下，
Set eworkbook = app.Workbooks.Open("c:\CACLS_format_sample.xls")

Set fs= server.CreateObjet("scripting.filesystemobject")
'--设置存放路径和文件名
filename ="c:\testfile.xls"
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename ,true)
myfile.WriteLine("This is a test.")
myfile.close