分太少了!
VB代码:
Private Sub mnuCountSave_Click()
On Error GoTo Err
dlgFilename.ShowSave
Cell1.SaveFile dlgFilename.FileName, 1
Exit Sub
Err:
If Err.Number = 32755 Then
Else
' MsgBox "ErrNumber:" & Err.Number & "Err:" & Err.Description, vbExclamation, "警告"
End If
End Sub