Menulis makro di MS Project yang membaca nilai dari Excel. Makro harus menghitung terjadinya string tertentu di kolom lembar kerja Excel. Saya menggunakan kode berikut:
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:" & "*")
Masalah: Ketika saya menjalankan kode untuk pertama kalinya saya dapatkan
Jalankan kesalahan waktu 13 Ketik ketidakcocokan
dimana iVal
dinyatakan. Tetapi setelah menghentikan eksekusi dan memulai kembali kesalahan ini tidak muncul.
Solusi yang sudah dicoba: Mengubah nilai tipe pengembalian ke Integer, Long, dll. Namun kesalahan tetap ada.
Adakah yang bisa membantu saya melacak masalah ini dan menemukan solusinya?