私はResumeの意味が分かっていなかった - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

Resumeステートメントの意味が分かっていなかった

Resumeステートメントの意味

久しぶりに『Excel VBA本格入門』（大村あつし著）を読み返していたら、

「Resumeステートメント」を引数なしで使うと、エラーの原因となったステートメントに制御が戻ります。

とあった。

( ﾟдﾟ)ﾎﾟｶｰﾝ

え？？？　そうだったの？？？

知らんかった……。

てっきり「Resume Next」で一つなんだと思っていたよ……。

あー、恥ずかし。

体系的に学んでいないと、こういう初歩的なところでつまづいているんだよなあ。

ということは、エラーが出た後、GoToでエラー処理ブロックに飛んだ後、リトライできるってことか。

……というわけで、やってみた。

PDF変換クラスを改良する

このとき作成したDocPDFConverterクラスの、WordドキュメントをPDFに変換して保存するメソッドなんだが、

同名のPDFが開いている状態で実行するとエラーが出る

という欠陥があった。

こいつをResumeステートメントを活用して改良してみよう。

コードの改良

リスト１

Public Sub convertDocToPDF(ByRef doc As Word.Document, _
                           ByVal tgtFolderName As String, _
                           Optional ByVal addStr As String = "")
  Set objDoc_ = doc
  objPath_ = doc.Path
  objFileName_ = doc.Name
  Dim nameStr As String
  nameStr = Left(objDoc_.Name, InStrRev(objDoc_.Name, ".") - 1)
  objDoc_.Range(1, 1).Select
  objDoc_.ExportAsFixedFormat _
    OutPutFileName:=objPath_ & "\" & tgtFolderName & "\" & addStr & nameStr & ".pdf", _
    ExportFormat:=wdExportFormatPDF    '……(*)'
  DoEvents
End Sub

(*)のところでPDFファイルを生成するわけだが、引数OutPutFileNameに渡すファイルフルパスと同じフルパスを持ったPDFファイルが開いている状態で実行するとエラーが出る。

そこで、(*)のところを次のリスト２のように書き換える。

リスト２

  On Error GoTo ErrorCatch    '……(1)'
  objDoc_.ExportAsFixedFormat _
    OutPutFileName:=objPath_ & "\" & tgtFolderName & "\" & addStr & nameStr & ".pdf", _
    ExportFormat:=wdExportFormatPDF    '……(*)'
  DoEvents
  Exit Sub    '……(2)'
ErrorCatch:
  nameStr = nameStr & "_"    '……(3)'
  Resume    '……(4)'

まず、エラーが発生源である(*)の手前のところで、(1)のように