中国DOS联盟

通过excel里面录制宏的方式，看到另存的VBA代码如下：
ActiveWorkbook.SaveAs Filename:="B:\data2007-11-18.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

想在VBS里面也操作excel做另存的操作，但是不知道怎么带入这些参数。

做了下列尝试，都以失败告终，在google、VBScript参考.chm和excel VBA的help中查找，也没有弄明白。
1，objExcel.ActiveWorkbook.SaveAs Filename="B:\data2007-11-18.xls" , FileFormat=xlExcel8, Password="", WriteResPassword="", ReadOnlyRecommended=False , CreateBackup=False
2，objExcel.ActiveWorkbook.SaveCopyAs "B:\data2007-11-18.xls"
3，objExcel.ActiveWorkbook.SaveAs "B:\data2007-11-18.xls"
4，objExcel.ActiveWorkbook.SaveAs( "B:\data2007-11-18.xls" , xlExcel8, "", "", False , False)

特此向各位请教一下，谁知道怎么弄啊？

我只是想要把一个csv文件，另存成真正的excel文件。


我的VBS文件如下：

set ws=createobject("wscript.shell") 

path=ws.currentdirectory



Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open(WScript.Arguments(0))



objExcel.Cells.Select

objExcel.Selection.Columns.AutoFit

''ActiveWorkbook.SaveAs Filename:="B:\data2007-11-18.xls", FileFormat:= _

''        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

''        , CreateBackup:=False



objExcel.ActiveWorkbook.SaveCopyAs "B:\data2007-11-18.xls"



objExcel.Quit

我自己顶一下

我自己顶一下 ...

提示:
1 vbs不支持特定的参数如 fun a:=1
2 调用函数要使用超过 2 个参数的时候,如果加括号,就必须有 = ,或者用 call, 或者不加括号也可以,比如:
call func(1,2)
a = func(1,2)
func 1,2
3 如果是过程(sub)则不支持=的方式.

Last edited by sonicandy on 2007-11-20 at 09:35 PM ]

还是没有搞定，郁闷。

有没有大侠能再指教一下啊。

I like js