xqzz.net
当前位置:首页 >> VBA提示自动化错误,求高手解答。。。 >>

VBA提示自动化错误,求高手解答。。。

连接字符串有问题,正确的格式如下:1 用机器名的连接Provider=SQLOLEDB;Data Source=machineName;Initial Catalog=dbname;User ID=sa;Password=pass;2 用ip地址的连接Provider=SQLOLEDB; Data Source=xx.xx.xx.xx,1433; Network

vba工程里面,工具,引用,micrsoft .rune time.试试

Office软件有问题,安装完整的office软件即可再看看别人怎么说的.

Subfda()OnErrorResumeNextDimshAsWorksheetSetsh=Worksheets(CStr(Sheets("主界面").Range("c3")))IfshIsNothingThenErr.ClearWorksheets.Add,Worksheets(Worksheets.Count)Worksheets(Worksheets.Count).Name=Sheets("主界面

什么意思?是看不了文档里的内容还是只出现这个东西但能看见内容?如果是第一种:可能是创建这份文件的版本不是你当前使用的版本问题.又或者是中毒导致某个文件组错误.你试着打开平时常用的或是以前用的文档看看.如果问题还存在,建议杀毒重装.第二种:纯坑爹,重装就ok

有2个原因 第一:程序方面的错误,这个没什么好说的吧,捉“虫”即可 第二:也就是本文标题提到的错误实际上是由于ms jet引擎没有对临时目录的写入权限,导致数据库创建失败.

有2个原因 第一:程序方面的错误,这个没什么好说的吧,捉“虫”即可 第二:也就是本文标题提到的错误实际上是由于MS Jet引擎没有对临时目录的写入权限,导致数据库创建失败.

蓝色选中的代表另一个函数,系统里没有这个函数,所以报没有定义,你要编写一个同名的函数放到这个工作簿中才能编译成功,我不知道它原代码里函数的作用,所以更多的就帮不到你了,找到原代码吧!

如果你只是使用,可以试试看我的附件,指定文件夹后,程序扫描文件夹下的所有文件,你删除无需汇总的部分,然后点另外一个按钮合并所有文件的所有表,最后另存为文件.

看你的程序好像接了两个程序,但从代码来看,你的程序没接好 在VB中,不能像VBA中直接用ThisDrawing 调用CAD的方法 Dim AcadApp as Object Set AcadApp = GetObject(, "AutoCad.Application") 代码后面中的ThisDrawing 需要改成 AcadApp.ActiveDocument 同样,你的TrackingDictionary也需要更改,实际按你引用程序的方法!另外提一点习惯的问题;你的程序变量整得太复杂了,本身dim XXX 要方便写,看;你的整得好长,以前我有朋友有因为太长而出错过,所以这个习惯建议你整短点;只是个人意见,供参考!

网站首页 | 网站地图
All rights reserved Powered by www.xqzz.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com