馬上注冊(cè),結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號(hào)?立即注冊(cè)
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題8 X8 V5 t9 v) W4 T" M9 c
程序單詳見下面帖
& ~. \. X4 p5 f0 shttp://postp.net/viewthread.php?tid=2432&extra=page%3D1; P( E1 V5 v' q" t5 W- ^
補(bǔ)充說明/ f8 i% i+ D0 j) Z( i
有用戶反映用于9.1會(huì)是9.0出錯(cuò),下面是用于9.0的解決方法,環(huán)境不足,未能測(cè)試.4 T5 n3 E0 r$ w; s# Y( D
; n2 Z+ w8 a' L0 j* h3 B
找到下面的代碼.) B K$ q3 Z) r0 X5 k8 M8 u" Q9 D$ F
5 [+ V( L6 ]! {# K( l, C9 a sfileDir = "D:\nc\"
& u) v$ U2 k+ p" m% _' -- Prompt for a report name$ C4 d. D9 O- P* I6 H& l% Q
strReportName = AskString("請(qǐng)輸入報(bào)表文件名")
( W5 D3 T: U/ P4 c9 i$ W- H0 MIf Len(Trim(strReportName)) = 0 Then Exit Sub
' f" \, O; s+ w% ?- S+ }' -- Check for EXT) Z; G0 t# f3 Z9 t
If Len(strReportName) <= 5 Then
0 u" X `- F! G1 [7 `* u. H strReportName = strReportName & ".html"
8 J# d! j7 A6 @$ m( U0 @6 k$ ^Else& N! \' L* n, ?
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"; E5 ]! y) i4 L$ W
End If2 d0 A5 W8 w4 C8 o, @3 k
0 {' l) [' H& T5 q
改為9 Y2 Y1 S# L! X0 n. \
" Z5 |. @8 ?: U: P7 F/ _
游客,如果您要查看本帖隱藏內(nèi)容請(qǐng) 回復(fù) |