首先，你需要在VBA环境中打开控件工具箱。这可以通过右键点击工具栏，然后选择“控件工具箱”来实现。接着，在工具箱中寻找“其他控件”选项，点击进入。在弹出的对话框中，浏览并选择“Microsoft Common Dialog Control Version 6.0”。安装完成后，这个控件就会出现在你的控件工具箱中。之后，你可以在VBA...
End Sub 注意，你里面有些cells里的L用的是1，所以错误 了
你这个的 arr1(x) = Mid(TextBox.Text, x, 1)'提示424错误要求对象 你整个程序中并没有TextBox名称的控件，所以肯定会出错，还有你的数组只声明了，并没有给定范围并且你 TextBox2.Text = arr2(x)'提示下表越界 这句在for循环外，此时 x 的值已经是 txt1len+1的值了，而你数组arr2()...
为啥有运行时错误,就是新写函数逻辑有问题.为啥是新函数有问题,因为还没用过他们,这些函数还没经过考验.所以,新写函数一定要经过考验才能加以使用,否则容易出毛病.1,前面那个压位函数,忘记了如(!j)中 0;.找了大半天.就这么一句,你没写,就一直崩溃.主要还是边角情况下,一不注意,就漏了.2,要去掉常,由于无序...
看你这nApp是workbook 你先这么改下看看对不对 dim nApp Set nApp = GetObject(folderPath & fileName)如果不对 你做下面这步 告诉我filepath的值是什么 dim nApp debug.print filepath Set nApp = GetObject(filePath)
一般情况下点出来的提示性错误,看停留在哪一行.个人感觉这句代码可能会有点问题.你可以检查一下:FilePath = ThisWorkbook.Path & "\1.0.docm" 这个似乎并不是EXCEL的文档.所以后面的操作就会出错了.Set Table = Sheets("封皮").UsedRange()你需要先将WORD文档中的表格对象获取.再进行操作吧.
= False '就是这一句，Image1事先未定义，可能引发错误"要求对象"，删除试试 On Error Resume Next If Target.Row >= 7 Then Image1.Picture = LoadPicture(Sheets("¿â´æ²éѯ").Range("AI" + CStr(Target.Row)).Value)End If End Sub ...
应该是你的表格没有这个cEmployeeInfo对象。这个对象应该是一个自定义对象，或者是某个程序写的一个.dll文件里面的对象。。所以你必须先找到这个对象，对其进行引用，才可以运行。。由于你的这个对象是自定义的，所以我们也不知道这个是什么东西，无法帮你写。
= False '就是这一句，Image1事先未定义，可能引发错误"要求对象"，删除试试 On Error Resume Next If Target.Row >= 7 Then Image1.Picture = LoadPicture(Sheets("¿â´æ²éѯ").Range("AI"+ CStr(Target.Row)).Value)End If End Sub ...