|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
, K6 B$ o* j t- a/ U/ Y程序單詳見下面帖
w; ~. z5 y/ _# E0 m! h3 H" Nhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1' b8 U) u5 p2 P2 o
補充說明
# v( m% u$ c# Z$ C" x有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.
3 C" X+ v0 l/ V
y" P/ a7 @1 j2 p' K# ?找到下面的代碼.$ b' Y3 N; o$ t* e: T
& p$ ~0 i' I4 V2 X% x1 z# U: c+ ]! }8 |
sfileDir = "D:\nc\"
4 G1 u" N% Q9 F4 F2 z8 U4 @7 J' -- Prompt for a report name. F2 a l8 A8 n% Q7 e& K
strReportName = AskString("請輸入報表文件名")
) A' r$ o, b# L+ z8 P2 B. }If Len(Trim(strReportName)) = 0 Then Exit Sub
4 r8 S3 S1 U% h6 }4 e0 d& n' -- Check for EXT
3 i, D1 ^- s6 @5 {If Len(strReportName) <= 5 Then
" f: R `8 b; a& ` strReportName = strReportName & ".html". L$ G6 [% J+ H, q
Else4 D1 i) Y- e. V' p
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
5 R, l% r! G! S; v6 w1 M0 ?% R% d8 k% iEnd If; o& v+ @: k m# J) D
3 D9 K0 P. E- s
改為" L4 l) L+ c; Y8 x9 x' P
" T0 n2 L+ H, {8 |. {7 L
|
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
