Board logo

标题: [求助]VBS中的参数问题 [打印本页]

作者: honghunter     时间: 2007-11-19 13:16    标题: [求助]VBS中的参数问题

通过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

作者: honghunter     时间: 2007-11-19 14:41
我自己顶一下
作者: honghunter     时间: 2007-11-20 01:13
我自己顶一下 ...
作者: sonicandy     时间: 2007-11-20 21:33
提示:
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 ]
作者: honghunter     时间: 2007-11-21 15:29
还是没有搞定,郁闷。

有没有大侠能再指教一下啊。
作者: huahua0919     时间: 2007-11-21 16:40
I  like js