⑴ 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连接数据库提示“应用程序定义或对象定义错误”
它提示用程序的定义错误的话，应该就御昌渣是它本身程序的问题，所以导致你在它连接的过程中出现了这样的提镇悄示，你可以换一个数据连迅悉接。