Public Sub DebugPrintFile(デバッグファイル名 As String, varData As Variant) Dim lngFileNum As Long Dim strLogFile As String strLogFile = デバッグファイル名 lngFileNum = FreeFile() Open strLogFile For Append As #lngFileNum Print #lngFileNum, varData Close #lngFileNum Debug.Print varData End Sub

デバッグ表示

基本は Debug.Print で確認すれば十分ですが、表示領域が限られているので、量が多い場合はファイルに書き出したほうが分かりやすい場合があります。

Public Sub DebugPrintFile(デバッグファイル名 As String, varData As Variant)
   Dim lngFileNum As Long
   Dim strLogFile As String
   strLogFile = デバッグファイル名
   lngFileNum = FreeFile()
   Open strLogFile For Append As #lngFileNum
   Print #lngFileNum, varData
   Close #lngFileNum
   Debug.Print varData
 End Sub

開発Tips

Posted by sysvba