|
honghunter
中级用户
积分 321
发帖 135
注册 2007-2-4
状态 离线
|
『楼 主』:
[求助]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
|
探讨批量下载与智能化的下载 |
|
 2007-11-19 13:16 |
|
|
honghunter
中级用户
积分 321
发帖 135
注册 2007-2-4
状态 离线
|
|
|
2007-11-19 14:41 |
|
|
honghunter
中级用户
积分 321
发帖 135
注册 2007-2-4
状态 离线
|
|
|
2007-11-20 01:13 |
|
|
sonicandy
中级用户
积分 273
发帖 91
注册 2007-5-7
状态 离线
|
『第
4 楼』:
提示:
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 ]
|
|
|
2007-11-20 21:33 |
|
|
honghunter
中级用户
积分 321
发帖 135
注册 2007-2-4
状态 离线
|
|
|
2007-11-21 15:29 |
|
|
huahua0919
银牌会员
积分 1608
发帖 780
注册 2007-10-7
状态 离线
|
|
|
2007-11-21 16:40 |
|
|
