|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
1 ^) j) {5 c2 Y! Z$ a5 O+ E程序單詳見下面帖+ p l2 m$ Q. S7 y2 y
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
; t# p. V4 l2 Z6 _: V補充說明1 y5 l2 n7 A5 j) f$ @
有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.
' j1 ^9 v) A. g3 w( T5 i5 N% R) x; X
找到下面的代碼.
( o9 v; l$ s; e; |% |; ]1 J9 J2 C8 o4 t# y+ @
sfileDir = "D:\nc\" 0 `8 Z' N) y# a/ Y3 C4 e3 [
' -- Prompt for a report name
0 O/ }" h4 V6 [6 v6 Q" q7 DstrReportName = AskString("請輸入報表文件名")
+ w' c8 ^) |8 N$ t0 P1 IIf Len(Trim(strReportName)) = 0 Then Exit Sub# F4 Q. p4 ~2 R1 [, g# z
' -- Check for EXT$ e$ K# U) h2 n# C
If Len(strReportName) <= 5 Then) @! Q/ e+ O1 |0 P% [, k1 K9 `
strReportName = strReportName & ".html"
, |5 P7 A# m2 R: r4 n" yElse
Q/ W4 ?3 H: W& M: g If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"3 m4 f! K$ U* @ l1 p% [! o; C
End If+ T7 { U) |- z! L
4 c8 ~. F9 t2 r1 f
改為
5 _9 m5 s9 o$ h! p; y$ t8 J Y4 t4 m% R
|
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2024-12-3 10:46:17
非常感謝