利用commondialog可以进行文件的打开与存储.
commondialog.showsave表示存储,
并可设置存储类型,
.DialogTitle = "生成Excel"
.FileName = "*.xls"
.Filter = "(Excel)*.xls|*.xls"
对于保存操作中的取消按键的操作如下:
On Error GoTo cancelError:
Me.CommonDialog1.cancelError = True'将取消设定为一个错误,并对其进行捕捉.
CommonDialog1.Flags = cdlOFNOverwritePrompt '当文件有重名时,进行重新命名,还是进行覆盖的选择.
Me.CommonDialog1.ShowSave
Exit Sub
cancelError:
If Err = 32755 Then
MsgBox "cancel"
End If
menu菜单分隔线的添加.
caption 填: -
name命名随便.