MSプロジェクトマクロVBA
Excelから値を読み取るMS Projectでマクロを作成します。マクロは、Excelワークシート列内の特定の文字列の出現をカウントする必要があります。私は次のコードを使用します: Set objXL = CreateObject("Excel.Application") Set objWB = objXL.Workbooks.Open("D:\VBA\Design\" + FileName + ".xls") Set ObjWS = objWB.Worksheets(1) ObjWS.Activate Dim lastRow As Integer lastRow = ObjWS.Range("A" & ObjWS.Rows.Count).End(xlUp).row Dim iVal As Double iVal = WorksheetFunction.CountIf(ObjWS.Range("A1:A" & lastRow), "Resource:" & "*") 問題:初めてコードを実行すると、 実行時エラー13型の不一致 どこiValで宣言されています。ただし、実行を停止して再度開始すると、このエラーは表示されません。 試した解決策:戻り値の型の値をInteger、Longなどに変更します。しかし、それでもエラーは続きます。 誰かが問題を追跡して解決策を見つけるのを手伝ってもらえますか?