vbs把excel文件另存为html,WINCC中VBS如何实现另存为对话框将固定目录下的EXCEL文件默认按当前时间命名（之后可以自己随意命名）保存想要保存的路径中-工业支持中心-西门子中国...

在网上找了一段打开选择对话框的程序,程序如下

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim CDG,WSH,FilePath

Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")

CDG.MaxFileSize=260

CDG.InitDir="F:\" '设置默认目录

CDG.ShowOpen

FilePath=CDG.FileName ''获取选定文件的完整路径

Set CDG=Nothing '' 释放对象

Set WSH=CreateObject("Wscript.Shell")

WSH.Run "Cmd /C Start """" """ & FilePath & """",0 ''打开选定的文件

Set WSH=Nothing

运行这段程序没有问题，但是我做了改动想改为另存为对话框发现实现不了功能，改动程序如下

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)

Dim CDG,WSH,FSO,F,FilePath

Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")

CDG.MaxFileSize=260

CDG.InitDir="D:\" '设置默认目录

CDG.Filter="Excel2007 文件 (*.xlsx)"

CDG.FileName="D:\excel.xls" '需要保存的文件及文件路径 '设置默认文件名

CDG.CancelError = True

CDG.ShowSave

Set CDG=Nothing '' 释放对象

FileCopy "D:\excel.xls", CommonDialog1.FileName '将文件保存到想要保存的的文件夹下

'Set WSH=CreateObject("Wscript.Shell")

'WSH.Run "Cmd /C Start """" """ & FilePath & """",0 ''打开选定的文件

Set WSH=Nothing

Set F=Nothing

Set FSO=Nothing

Set CDG=Nothing

Set objFSO=Nothing

End Sub

程序执行到FileCopy "D:\excel.xls", CommonDialog1.FileName '将文件保存到想要保存的的文件夹下  这一步就不执行了   麻烦大神给看看哪里出了问题，如何改动，非常感谢

问题补充：

Set CDG=Nothing '''''''' 释放对象(对象被释放了还怎么复制，这段放到后面)

FileCopy "D:\excel.xls", CommonDialog1.FileName(CommonDialog1是什么？程序里没有定义，这里应该是CDG

按照上面的试过也不行

悬赏西币:16 | 解决时间：2019-07-18 09:03:21 | 提问者： 降 龙 - 学长&nbsp&nbsp第2级

问题ID：220203