|
|
馬上注冊，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
2 ^% x, L) I" ^0 c1 t+ h程序單詳見下面帖7 k" k, A6 x6 w D
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
4 j) L+ {- s/ a I; M補(bǔ)充說明( B: F% Y9 t6 O( n/ `) v9 `0 ^9 V% f
有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環(huán)境不足,未能測試.
# }7 j3 n& x+ v0 P
7 M! l+ i4 q: t' T: d% `找到下面的代碼.
- h( A9 o, c" H3 T# m5 X
: e0 I- L3 y' d' b7 d" C% r1 j) P sfileDir = "D:\nc\"
5 T! S, o5 z$ t! H/ T* Z' -- Prompt for a report name4 S* ~+ i G# h# l2 P+ S+ s2 U
strReportName = AskString("請輸入報表文件名") ( o9 w; A: x* v. `9 A
If Len(Trim(strReportName)) = 0 Then Exit Sub9 o( X* e) @2 ?( }
' -- Check for EXT
$ ] T9 w) _$ U: u6 u$ ]' gIf Len(strReportName) <= 5 Then" @) j2 A) D' z, ]+ m4 Z- l, i8 T
strReportName = strReportName & ".html"# W* T, o& u, g
Else$ O# t7 l7 A( V4 m1 F6 d
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
% K6 L6 u% k! [2 U# kEnd If' [' Q8 t/ A& ?2 i% w' n d4 K
! n" i4 o: A3 E改為
$ y# l7 u& R! A4 t1 x) Z) }/ `# S) [( W: `
|
|
/2 
|Archiver|手機(jī)版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網(wǎng)安備32059002001368號 )
IP卡
狗仔卡
發(fā)表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發(fā)表于 2011-6-12 10:15:22
