在VBA(Visual Basic for Applications)中,“对象变量或With块变量未设置”错误通常表示你试图使用一个尚未被正确初始化或赋值的对象变量。以下是针对这个问题的详细解答: 1. 解释“对象变量或With块变量未设置”错误的含义 这个错误意味着你的代码中有一个对象变量,它在使用之前没有被赋予一个有效的对象引用。在VBA...
vba 对象变量或with块未设置是设置错误造成的，解决方法为：1、首先打开excle软件，在菜单中选择“开发工具”-》“Visual Basic”,进入VBA的编程界面。2、选择一个对象，这里选择sheet1，新建一个子过程setobgjs。3、首先是声明对象变量，通过Dim来声明，和普通变量的声明很类似，只不过是数据类型变为了O...
三个截图的问题其实只有一个，就是在这个语句上边的变量（红线框位置）是一个区域的对象，find方法是要查找他的值rng2.value(或者rng2.text)，不是查找对象本身，所以所有运行都是查找不到想要的位置的区域对象的。RNG3就只能为空了。加上.value或者.text就可以了。
因为你的变量i下标超出了，这样试试：Private Sub CommandButton1_Click()Dim ie As Object, i As Integer, j As Integer, h As IntegerSet ie = CreateObject("InternetExplorer.Application")ie.navigate "http://money.finance.sina.com.cn/corp/go.php/vFD_FinancialGuideLine/stockid/600600/d...
通过控件工具箱插入的控件，引用形式如下：ActiveSheet.OLEObjects("TextBox" & i).Object.Text
看不懂你代码的用途，循环对某些行进行复制没有意义，后面的复制后前面复制就失去意义。单就出错来分析，是jd1变量的某些值在A列并不存在，Range("A:A").Find(jd1)这个搜索结果为Nothing，不存在的单元格怎么能取得它的行号呢，不出错才怪。建议在出错这句前先用IF进行判断，当搜索到单元格后再...
vba中对象变量或with块变量未设置是什么意思?具体代码如下: Submain()SetswApp=Application.SldWorksSetPart=swApp.ActiveDocboolstatus=Part.AddComponent("C:\Users\acer\Desktop\终\机架01.SLDPRT",0.06174330400551,0.03662016651361,0.399... Sub main()Set swApp = Application.SldWorksSet Part = swApp.Active...
rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)改 SET rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)
checkbox(i).checkbox.Value 最后一个循环体是不是多了个checkbox 感觉你这最后一个循环的n=n+1完全可以写到前两个循环里去
执行这个函数，呃，你 mrc 这个变量到底是什么，值得看到这个函数回来，没有看到，如果没有记录集类型，当然会是错误的