|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题+ c6 C% k) g1 M. c
程序单详见下面帖0 {* c3 d( h# U W( T9 Q* f5 q( F
http://postp.net/viewthread.php?tid=2432&extra=page%3D1* Q6 r% X+ i5 K3 N9 P: P2 c! z
补充说明
. S; b y6 X, I9 ~有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
- o7 q: B7 X3 x/ {( q0 S1 P- c! C$ B3 |/ e6 v1 S
找到下面的代码.' C R- u8 f% M8 t0 B
9 d- w+ {/ A* [- ~
sfileDir = "D:\nc\"
/ j- P0 A0 e' D+ g- H1 v" W' -- Prompt for a report name5 c2 R7 |5 a8 Y( ~/ q
strReportName = AskString("请输入报表文件名") ( n5 \% b& R8 I
If Len(Trim(strReportName)) = 0 Then Exit Sub
! P( c( [, g8 K. K, z' -- Check for EXT {5 s- W+ G0 @
If Len(strReportName) <= 5 Then9 A% V7 u$ }+ x: S; ^# k9 _$ ?" d
strReportName = strReportName & ".html"
5 }6 c/ |5 V, @! {; Z- r8 MElse3 n; x8 t7 m$ s, z6 Y
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"5 C# u- U. O/ A
End If e: S, b6 i: A C& q; Z3 {8 _
+ _# T0 K8 m ~( a/ o+ g改为0 i5 l/ c. J2 R/ a
' e; b7 |: w. t0 W d |
|