⑴ Vba 應用程序定義或對象定義錯誤
代碼沒問題
Set RegExp = CreateObject("vbscript.regexp")
是不是你沒有許可權 或者系統慶悄虧禁用vbs腳本 再譽神或運櫻者 你系統缺失wscript.exe文件
⑵ VBA應用程序定義或對象定義錯誤
當你有一行，只有 A 列 有數據時，a.Offset(0, -1)＝A1，而cells(i,2)=B1 range(B2,A1)就會出現錯誤，只有保證你 B列都有數據時，你上面的代碼才可以運消扮卜行
還有你缺閉上面
Set a = Sheet1.Cells(i, 255).End(xlToLeft) 是最左邊的有值數，所以你下面這個代碼永遠都不可能拿穗運行到，沒有必要存在
Do Until a.Value <> ""
Set a = a.Offset(0, -1)
Loop
⑶ excel vba應用程序定義或對象定義錯誤
錯誤出現在sheet1
sheet1不是vba（excel）內置對象，想訪問工作簿中的工作表，應用sheets對象，訪問方法為
sheets(index\sheetname)
比如需要訪問名稱為Sheet1的工作表，應該用sheets(「Sheet1")，也可用sheets(1）
所以，那一句應該改為
Sheets(1).Range(Cells(i, m), Cells(i, a)).Copy Sheets(2).Range(Cells(e, 1), Cells(e, 9))
⑷ EXCEL提示應用程序定義或對象定義錯誤
語法沒有錯誤，只是在
Cells(l, 2) = i & "," & j & "," & k
這一句中，cells（1，2），寫成了cells（L，2），數字1和小寫字母L有時很難分辨。
改成數字1就可以運行了。
⑸ vba 應用程序定義或對象定義錯誤
這一句有問題：
Set Rng = Sheets(3).Range(Cells(1 + i, 1), Cells(3 + i, 4))
在你的語句里，Range()的母對象是Sheets(3)，而Cells()的母對象是當前活動工作表，當Sheets(3)不是活動表裡，Cells()和Range()的母對象交叉混亂了，在VBA里是非法的。
即前後單元遲塵格區域的母對象必須一致，可以在後行頃面碼帶禪的Cells()前面都加一個Sheets(3).
⑹ vba報錯應用程序定義或者對象定義出錯
軟體版本：Office2007 方法如下： 在VBA中如果使用了系統不認可的對象表示方模閉核法等，例如下面的Range表示方法，系統就不認態桐可： 這樣，在運行程序時，就會提示錯誤： 將代碼中的錯誤更正，用正確的表示方法來使旦掘用對象或應用程序，就不會出錯了：
⑺ Excel 的vba里，報錯，顯示應用程序定義或對象定義錯誤，我是想遍歷然後正則識別匹配一些內容出來
兩處戚液錯誤。
你說的那句報錯，是因為reg.Pattern=""裡面的正則規則的編寫有誤判叢。
還有一處就是掘仔櫻.end(999).row，這里的999是什麼意思？！
.end(xlToLeft)同.end(1)，表示向左
.end(xlToRight)同.end(2)，表示向右
.end(xlUp)同.end(3)，表示向上
.end(xlDown)同.end(4)，表示向下
⑻ 運行VBA提示錯誤：應用程序定義或對象定義錯誤
在你的代碼中 i 沒有定大棗義。
看下面這一段
If n Mod 2 = 0 Then
i = 1 + WorksheetFunction.RoundUp(n / 2, 0) + WorksheetFunction.RoundDown((m - 1) / 5, 0) * 4
j = m Mod 5
If j = 0 Then
j = 5
End If
End If
Sheets("sheet5").Cells(m, n) = Sheets("sheet1").Cells(i, j)
循環中斗碼第一次運行此段代碼時，當 m mod 2 不等於0時 ，程序並沒有給 i任何值，滾銷拆也就是說這時 i 還是一個 空值時
接下來來運行 Sheets("sheet5").Cells(m, n) = Sheets("sheet1").Cells(i, j)
就會出現錯誤
困為 i 沒有值。
⑼ VBA連接資料庫提示「應用程序定義或對象定義錯誤」
它提示用程序的定義錯誤的話，應該就御昌渣是它本身程序的問題，所以導致你在它連接的過程中出現了這樣的提鎮悄示，你可以換一個數據連迅悉接。