|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題/ \# X! o, @- i( t- f
程序單詳見下面帖
0 G: x* j% i% J: B: {/ Xhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1- i" N2 ~, ], t
補充說明
5 `: ? s' W" K1 v& S+ W" @4 \" g有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.. @! ?0 {- [3 |
7 ~2 X; N5 Y" @$ L- R" @找到下面的代碼.% ? s- v2 u# b2 ?
- E$ n& j6 ~7 O/ X" N( N sfileDir = "D:\nc\"
- r! ]0 s+ C0 @# h; P2 U' -- Prompt for a report name) n$ C; z0 e2 {7 d( c/ R4 v
strReportName = AskString("請輸入報表文件名")
1 E( X( z* \4 ?* o, V/ S# WIf Len(Trim(strReportName)) = 0 Then Exit Sub- F6 j5 ^6 d' A3 r5 C
' -- Check for EXT
% Q( r- e7 _7 A! L6 I# WIf Len(strReportName) <= 5 Then
2 B' K' y2 Y6 X& m8 _ strReportName = strReportName & ".html"
$ |9 W0 z( g, W; x2 I' N6 qElse
; r' {' K2 M: T y5 k8 T If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
) A+ j/ G+ y* P) cEnd If! H% s6 }5 m$ |2 V3 O8 ~' n
: T' D3 | P" K3 i. _" I改為- u% x# d! o- F
& E! D/ _0 V; u; U0 @6 ^& I5 T |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
