在网上找了一段打开选择对话框的程序,程序如下
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
按照上面的试过也不行
最佳答案
你这段代码真是有意思，第一段的openFile我改成WSH.CreateObject在一个VBS文件里面执行失败，但是放到Wincc里面就成功了，之前我也是碰到这个现象就放弃comdlg这个ocx了，没想到wincc居然可以执行ok。后面你改的save代码有点问题，我在wincc里面改了一下，基本ok，但有个不太爽的地方：save的对话框里面必须输入完整的文件名（带扩展名），我改的save代码如下：
''---------------------------------------------------------------------------------------------------
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim CDG,FSO,F,FilePath
Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")
FilePath = "C:\excel.xls"
CDG.MaxFileSize=260
CDG.InitDir="C:\" ''设置默认目录
CDG.Filter="Excel2007 文件 (*.xlsx)"
CDG.FileName=FilePath ''需要保存的文件及文件路径 ''设置默认文件名
CDG.CancelError = True
CDG.ShowSave
Set FSO=Createobject("Scripting.FileSystemObject")
Set F=FSO.GetFile(FilePath)
F.copy CDG.FileName ''将文件保存到想要保存的的文件夹下
Set CDG=Nothing '''' 释放对象
Set F=Nothing
Set FSO=Nothing
Set CDG=Nothing
End Sub
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc355058.html
微信扫一扫 
支付宝扫一扫 