|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區(qū)
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
: \9 F& n$ r4 w$ u程序單詳見下面帖
' x0 L3 g' F7 @( }) _- fhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
* I6 [! c _! U" S# Z/ R補充說明
a2 A) _% U, U& ]有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環(huán)境不足,未能測試.
4 }5 x4 M6 G6 d/ w" V; b+ }# S1 X0 W: f2 ^% S( Z) `! g* k3 t
找到下面的代碼.% Y( X% j% @6 F, d: n g0 ^1 N+ f
- i* R$ T& O3 B6 l5 L' {
sfileDir = "D:\nc\"
5 E) O( \: p, p- {( Y: A; _6 n- E' -- Prompt for a report name
) w! R" G) s. Z, L& M' [strReportName = AskString("請輸入報表文件名") : T. s: h( C2 a/ N6 e+ _ n- u
If Len(Trim(strReportName)) = 0 Then Exit Sub
! V0 u S( w- X9 k. e7 U: {' -- Check for EXT. M0 ~( B v7 S( j8 D/ U. `
If Len(strReportName) <= 5 Then. _* P8 h6 F) n
strReportName = strReportName & ".html". M& M% T. ~$ y3 f3 ?! R9 `/ L' j% h
Else2 x- x' t5 g% R' _
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"6 u/ C# \/ u$ b: Y
End If
7 o8 a o: L8 m! X: x* U8 N: ?! e3 L: d
改為; l: N( ]% n9 ?% p
$ Z i1 w4 c( b* ?
|
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發(fā)表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發(fā)表于 2011-6-12 10:15:22
