サンプル:Excel VBA F8キーでステップ実行しながら動作確認して下さい。事前に 参照設定(AFormAutの追加版) が必要です。 変数の宣言 Integer は Long でご使用ください。 001 Option Explicit 002 003 Sub AFormApp_Test_01() 004 On Error GoTo Err_AFormApp_Test_01 005 006 Dim i As Integer 007 Dim iPageNum As Integer 008 Dim bRet1 As Boolean 009 Dim bRet2 As Boolean 010 Dim bEnd As Boolean 011 Dim sFilePath_new As String 012 Dim objAFormApp As AFORMAUTLib.AFormApp 013 Di