必入这样的话怎么写?'错误处理
On Error Resume Next
'设置标准对话框
With comDlg
.DialogTitle = "保存文本文件"
.Filter = "文本文件(*.dwt)|*.dwt|所有文件(*.*)|*.*"
.InitDir = "C:\"
.DefaultExt = "dwt"
.ShowSave
End With
doc1.SaveAs???
?
On Error Resume Next
'设置标准对话框
With comDlg
.DialogTitle = "保存文本文件"
.Filter = "文本文件(*.dwt)|*.dwt|所有文件(*.*)|*.*"
.InitDir = "C:\"
.DefaultExt = "dwt"
.ShowSave
End With
doc1.SaveAs???
?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货