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などに変更します。しかし、それでもエラーは続きます。
誰かが問題を追跡して解決策を見つけるのを手伝ってもらえますか?
質問を編集して、完全なコードを含めてください。
—
DavidPostill