运行时错误2147417848（斑竹woaishuijia请进）

157787698

在程序执行到下面代码时出现此问题：
M1.Create pathmdi12
5 h4 L0 u& C* N3 _. p; ZM2.Create pathmdi11

提示如下：

0 x  N1 T. v$ \& h5 ^6 S* T
) u9 ?, c, y3 [但是在程序第一遍执行时可以正常运行，第二遍即出现此问题

我的电脑上是office2003，不会出现此问题；但是一旦拿到装office2007的电脑就会出现这个问题

请问是怎么回事？如何解决？
: V) s7 Z( C* F
不知道斑竹woaishuijia是否遇到过此问题？或者其他朋友是否遇到过此问题？如果有解决方案，请不吝赐教，不胜感激

woaishuijia

没用过office2007，猜想可能是 2007 版 Office Document Imaging 与 2003 版不同。建议到 MSDN 网站查看一下 office2007 的 VBA 参考。如果原因是这样的话，就需要在程序中加入识别版本并区别对待的内容。
& k2 x! }; C; R& o9 Q5 a8 D另外，引用的对象是否正确？
还有，M1、M2 、M3 这些变量用过之后，是否有用 M1.Close 和 Set M1 = Nothing 语句关闭进程？
3 w* J. e* K8 ]. {' e5 \5 v* Z附件是《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，以前从 MSDN 下载的。

157787698

谢谢斑竹
. S3 w$ p& V3 [$ ?
. L& x, R& ^1 V引用的对象应该是正确的

( I8 W: i6 P: Q* T4 @! _& ?, X因为对象是在前一段程序中生成的，而且第一次运行时可以正确执行并输出期望的结果，但第二次就会出现偏移，plottofile方法输出的图形相对于图纸发生偏移，目前没有找到原因，第三次运行时会出现本贴所说的错误提示

为了切断其他可能的联系，我重建了个按钮，输入如下程序：
public aa as long
) C2 h5 O* X+ O5 GPrivate Sub CommandButton9_Click()
( K7 V) t9 x" H* P- @: rDim M1 As MODI.Document, M2 As MODI.Document  '合并
# E3 g( p, L: c& t  Z( vDim bb, path As String
1 f5 u% O' g  E0 M( X) p* |% \% ^  s  paa = aa + 100
; P: k6 p4 z* _" l  i& M8 B9 Jbb = Str(aa)
/ i% B  _6 i4 ~! v+ Lpath = "d:\我的图纸\" & bb & ".mdi"
$ ^( ^; Y6 B( p' o3 xSet M1 = New MODI.Document
    Set M2 = New MODI.Document
% P% l7 t* i5 G, ]6 p    M1.Create "d:\我的图纸\1111.mdi"
2 L  i- U3 y9 A9 \5 C    M2.Create "d:\我的图纸\2222.mdi"
    M1.Images.Add M2.Images(0), Nothing
    M1.SaveAs path
    M1.Close
    M2.Close
3 R- n; |+ z1 Q5 s6 O* M7 rEnd Sub
: f: _$ k5 Z5 t6 q# l8 K! C! t此程序在office 2003下正常运行，而在office2007也可以运行，但是仍然会不定时的出错，相同的错误提示

woaishuijia

在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

157787698

原帖由 woaishuijia 于 2009-11-12 20:04 发表 http://www.3dportal.cn/discuz/images/common/back.gif
8 `6 }" e2 N. c) C, Q在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

5 F! I3 g$ ?1 k& O* R
试过了，没用
2 {9 k1 P9 c. ~  w0 V0 ^
7 ^# {0 `, ^( l: n0 I6 H
+ R# R: s) R7 r测试发现：有时候程序会死在  M1.Create "d:\我的图纸\1111.mdi"  这一句，一直在这里运行，不再向下执行，但如果暂停然后再运行，则出现致命错误

另外，我去MSDN网站看了一下，只有《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，没有适用于office2007的版本
7 T$ ?& _  G2 V, b$ g/ U
& ]8 m  \/ e# W" ~. C. y[ 本帖最后由 157787698 于 2009-11-13 08:47 编辑 ]

157787698

还有另外一个问题：
为什么plottofile方法打出来的图纸会出现偏移？我在程序中直接给点的坐标，不需要用户自己去选择，也就是不能使用getpoint方法
: w( l0 w  q3 r! c4 J# a
3 s7 ?( l/ o1 Q0 S不知道斑竹有没有遇到过这种问题？