如何转换EXCEL VBA和SHELL生成出来的文件

lovercissi

小弟新来的,请教各位大侠
例如：
某台UNIX主机上已经通过SHELL获取到了想要的信息
more  aaa.txt
aaa   bbbb   cccc
ddd   eeee   ffffff

如何将“aaa   bbbb   cccc
            ddd   eeee   ffffff”通过EXCEL的宏 输出到SHEET中？

slash001

用WHS就可以，也可以用Perl或者Python都有现成模块

1. 
   
2. textFile = "d:\aaa.txt"
   
3. excelFile = "d:\aaa.xls"
   
4. 
   
5. Set fs = CreateObject("Scripting.FileSystemObject")
   
6. Set f = fs.OpenTextFile(textFile, 1)
   
7. Set objExcel = CreateObject("Excel.Application")
   
8. Set oWB = objExcel.Workbooks.Add
   
9. Set oSheet = oWB.ActiveSheet
   
10. 
    
11. j = 1
    
12. 
    
13. While not f.AtEndOfStream
    
14.         r = f.ReadLine
    
15.         data = Split(r, " ", -1)
    
16. 
    
17.         for i = 0 to UBound(data)
    
18.                 oSheet.Cells(j, i + 1).value = data(i)
    
19.         next
    
20.         j = j + 1
    
21. Wend
    
22. 
    
23. f.Close
    
24. objExcel.ActiveWorkbook.SaveAs(excelFile)
    
25. objExcel.quit
    

复制代码

将上边代码保存为txt2xls.vbs, 执行
D:\>cscript txt2xls.vbs

Win2000下测试通过

[ 本帖最后由 slash001 于 2006-3-17 17:09 编辑 ]

lovercissi

请问WHS是什么？
可以把你的代码写入EXCEL宏里面？

doni

在excel中直接打开这个文本文件就可以了

lovercissi

各位老师我顺便再问下：
我的电脑是windows操作系统   文件是    d:\aa.xls  这个没有问题    地址 192.168.1.100
对方电脑文件是UNIX操作系统   文件是  \usr\dd.txt  地址192.168.1.200  口令root/root
把dd.txt拷贝到aa.xls
这个VBS该怎么写？最好不要打开文件

bobkey

要求太高了吧

lovercissi

还可以咯～～各位前辈 指点下迷径吧

lovercissi

如何每次执行这个VBS都要问我是否替换 可以不让它提示自动替换 有点FTP里面的prompt off这样取消互动的命令？