0

ご挨拶 - まだこのサイトを見ている人のためのクリスマス パズル...これは機能しますが、プロセスをキャンセルすることにした場合 (つまり、ファイルを保存せず、この段階でプロセスを停止します)、ファイルは保存されませんが、次のマルコ (filltolastrow2) はまだアクティブになっていますが、これを止めるにはどうすればよいですか?

Public Sub SaveaCopyIncomeSheet()
    Dim file_name As Variant
    file_name = Application.GetSaveAsFilename("Overdue Report - Draft", filefilter:="Excel Files(*.xls),*.xls")
    If file_name <> False Then
       ActiveWorkbook.SaveAs Filename:=file_name
        MsgBox "File Saved!"
    End If
    filltolastrow2
End Sub 
4

2 に答える 2

2

あなたはおそらく欲しい

If file_name <> False Then
   ActiveWorkbook.SaveAs Filename:=file_name
   MsgBox "File Saved!"
   filltolastrow2
End If
于 2009-12-30T12:25:18.053 に答える
0

別:

Public Sub SaveaCopyIncomeSheet()
    Dim file_name As Variant
    file_name = Application.GetSaveAsFilename("Overdue Report - Draft", filefilter:="Excel Files(*.xls),*.xls")

    If file_name = False Then GoTo E_NoFileName

    ActiveWorkbook.SaveAs Filename:=file_name
    MsgBox "File Saved!"
    filltolastrow2

Exit Sub
E_NoFileName:
    MsgBox "File Not Saved"
End Sub
于 2009-12-30T12:35:40.290 に答える