Microsoft Access 掲示板

Microsoft Access 掲示板

エクセルへの出力 / 3

4 コメント
views
4 フォロー
3
hiroton 2023/07/14 (金) 12:06:31 5534d@f966d

やり直す≒繰り返す動きをさせるのでループ処理を組みます

    Dim 成功 As Boolean
    
    On Error Resume Next
    Do Until 成功
        .activeworkbook.SaveAs strsavebookpath
        
        If Err <> 0 Then
            On Error GoTo -1
            MsgBox "ファイルが保存できませんでした。現在使用中でないか確認してください"
        Else
            成功 = ture
        End If
    Loop
    On Error GoTo 0

※これだけだと「保存できない」限り無限ループになることには注意が必要です

通報 ...