討論區快速選單
知識庫快速選單
討論區最近新進100則主題 掌握Salesforce雲端管理秘訣
[ 回上頁 ] [ 討論區發言規則 ]
如何才能讓我的程式自動建立檔案?
更改我的閱讀文章字型大小
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/9 下午 04:46:56
這是我所寫的副程式....但是我不會讓它自動產生檔案名稱..
 strFilePath As String
strFilePath = "d:\VBA\UMC\DAL02A.XML"
========================================

Public Function ToXML() As Boolean

Dim sbin As Excel.Worksheet
Set sbin = Worksheets("Sheet1")

Dim fs As Scripting.FileSystemObject
Set fs = New Scripting.FileSystemObject

Dim strFilePath As String
strFilePath = "d:\VBA\UMC\DAL02A.XML"

Dim file As Scripting.TextStream
Set file = fs.CreateTextFile(strFilePath, True)

Dim strOutputText As String
Dim intRow As Integer
Dim intCol As Integer
Dim strRow1 As String

file.Write "<?xml version=""1.0""?>" & vbCrLf
file.Write "<TANGO_CP_FORMAT>" & vbCrLf
file.Write "<VERSION>1.3</VERSION>" & vbCrLf
file.Write "<HEADER>" & vbCrLf

intRow = 3
intCol = 3
strRow1 = sbin.Cells(intCol, intRow).Value

strOutputText = "<BINDEFNAME>" & sbin.Cells(intCol + 3, intRow + 3).Value & "</BINDEFNAME>" & vbCrLf
file.Write strOutputText

strOutputText = "<PRODUCT_ID>" & sbin.Cells(intCol, intRow + 5).Value & "</PRODUCT_ID>" & vbCrLf
file.Write strOutputText

file.Write "<PRODUCT_TYPE>LOGIC</PRODUCT_TYPE>" & vbCrLf

strOutputText = "<PRODUCT_NAME>" & sbin.Cells(intCol, intRow + 5).Value & "</PRODUCT_NAME>" & vbCrLf
file.Write strOutputText

strOutputText = "<GROSS_DIE>" & sbin.Cells(intCol + 1, intRow).Value & "</GROSS_DIE>" & vbCrLf
file.Write strOutputText

strOutputText = "<VENDOR_ID>" & sbin.Cells(intCol + 1, intRow + 2).Value & "</VENDOR_ID>" & vbCrLf
file.Write strOutputText

strOutputText = "<VENDOR_PRODUCT>" & sbin.Cells(intCol, intRow + 5).Value & "</VENDOR_PRODUCT>" & vbCrLf
file.Write strOutputText

strOutputText = "<USAGE>" & sbin.Cells(intCol + 1, intRow + 5).Value & "</USAGE>" & vbCrLf
file.Write strOutputText

strOutputText = "<OP_NAME>" & sbin.Cells(intCol + 3, intRow).Value & "</OP_NAME>" & vbCrLf
file.Write strOutputText

strOutputText = "<FAB_ID>" & sbin.Cells(intCol, intRow).Value & "</FAB_ID>" & vbCrLf
file.Write strOutputText

file.Write "</HEADER>" & vbCrLf
file.Write "<BINDEFINITION>" & vbCrLf

intCol = 10
strRow1 = sbin.Cells(intCol, 1).Value

Do Until strRow1 = ""
    
    strOutputText = "<BIN>" & sbin.Cells(intCol, 1).Value & "|" & _
     sbin.Cells(intCol, 2).Value & "|" & sbin.Cells(intCol, 3).Value & "|" & _
     sbin.Cells(intCol, 4).Value & "|" & sbin.Cells(intCol, 5).Value & "|" & _
     sbin.Cells(intCol, 6).Value & "|" & sbin.Cells(intCol, 7).Value & "|" & _
     sbin.Cells(intCol, 8).Value & "|" & sbin.Cells(intCol, 9).Value & "|" & _
     sbin.Cells(intCol, 10).Value & "|" & "</BIN>" & vbCrLf
    
    file.Write strOutputText
    
    intCol = intCol + 1
    strRow1 = sbin.Cells(intCol, 1).Value
    
Loop

file.Write "</BINDEFINITION>" & vbCrLf
file.Write "</TANGO_CP_FORMAT>"

file.Close

ToXML = True

End Function

=================================
請告知....解決方法..謝謝
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/9 下午 04:49:08
你想產生什麼檔案? @@
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/9 下午 05:22:43
就是這一行
 strFilePath As String
(strFilePath = "d:\VBA\UMC\DAL02A.XML")

但我每次都要自己來更改檔名
作者 : jhj65570(小字字)
[ 貼文 114 | 人氣 4599 | 評價 250 | 評價/貼文 2.19 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人livetdodau註記此篇回應為很有道理 2004/8/9 下午 06:34:07
你是不是要做:
1. 檢查檔案是否存在
2. 不存在則開檔寫入;存在則自動變換下一個序列名稱

若我猜想的沒錯,您可先:
1. 偵查檔案是否存在
2. 編列檔案名稱格式 ABC001~ABC999 諸如此類,再依需求去自動更改檔名
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/10 下午 12:35:49
嗯.但這要怎麼去下呢.我才剛接觸程式不久..還不太會..翻了好多書.還是翻不到...
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/10 下午 12:48:56
commondialog物件....

因為人在外面,沒書沒筆記沒軟體...
先找一下吧!或是看有沒有網友們能幫忙回答一下。
沒有的話,明天進辦公室後再貼上來....
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/10 下午 11:50:31
謝謝你了....我會努力學習的.
作者 : jackon(風)
[ 貼文 83 | 人氣 4338 | 評價 190 | 評價/貼文 2.29 | 送出評價 6 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/11 上午 06:03:35
Randomize(Timer)
TempName = AppPath & Int(Rnd() * 100) & ".txt"

亂數產生檔名~
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/11 上午 11:01:00
strDirect = "d:\VBA\UMC\"
strFileName = "DAL"
strNo = "00000"
strFileExt = ".XML"
strFile = strFileName + strNo + strFileExt
strFilePath = strDirect + strFile
'檢查檔案是否存在,若有增加序號
while Dir(strFilePath) = strFile
    iNo = val(strNo)
    iNo = iNo + 1
    strNo = format(iNo, "00000")
    strFile = strFileName + strNo + strFileExt
    strFilePath = strDirect + strFile
End while

strFilePath = strDirect + strFile ' 就以這個新檔名來建立
作者 : bluetulip(BlueTulip) Visual Basic優秀好手貼文超過1000則人氣指數超過10000點
[ 貼文 1127 | 人氣 28366 | 評價 4070 | 評價/貼文 3.61 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/11 上午 11:04:53
to 風
人家要的不是自動產生亂數檔,是自訂檔名吧?
再說你那方法如果產生已有的檔名時會出問題的。

to Livet
不曉得你找到commondialog了沒,這是一個要新增的物件。
能讓你開啟存檔視窗。然後就能在詢問視窗裡設定你要的檔名。
相關的設定很多書都會有,或討論區找一下應該就差不多囉 ^^
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/11 上午 11:11:01
若檔案數超過99999,要注意程式的判斷及格式.
另外避免過多的重複檢查,可在程式結束時,把檔案序號存起來,
下次執行時,就以這個序號繼續寫檔.
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/11 下午 12:35:52
那我再請問問題.如果說遇到一樣的.要直接覆蓋..這樣是不是就不用加
While Dir(strFilePath) = strFile
    iNo = Val(strNo)
    iNo = iNo + 1
    strNo = Format(iNo, "00000")
    strFile = strFileName + strNo + strFileExt
    strFilePath = STRDIRECT + strFile
End while
這一段了,還是需要再另加不同的
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/11 下午 01:51:16
不加那一段,就跟你原來設計的一樣,只會存同一個檔名;
或者用commondialog出現對話盒,詢問你要的儲存檔名.
若想要自動產生檔名,卻又想檢查是否要覆蓋,可在加個判斷
IF Dir(strFilePath) = strFile

While Dir(strFilePath) = strFile
    IF MsgBox("","檔案已存在,要覆蓋嗎?",OKCancel) = VbOK THEN exit while
    iNo = Val(strNo)
    iNo = iNo + 1
    strNo = Format(iNo, "00000")
    strFile = strFileName + strNo + strFileExt
    strFilePath = STRDIRECT + strFile
End while
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/12 上午 09:56:33
這裡可以附加檔案嗎???
可以的話我想把整個上傳上來.
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/13 下午 03:30:55
http://tw.f1.pg.briefcase.yahoo.com/bc/52113344/lst?.dir=/

這是我放程式的地方.請各位高手進入看看..謝謝..中間有一段是.
是要隨著Bin definition name的名字來做檔名.而這個名字是每一項產品都會隨著改變。
請高手們幫幫忙。謝謝。
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/13 下午 03:42:22
跨謀......公事包是空的. ^^ll
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/16 上午 11:05:35
我可以寄到你的-mail嗎?
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/16 上午 11:18:33
可以啊,我的Mail
rong66@mail.apol.com.tw
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/16 下午 03:00:11
請問.你有收到嗎??
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 上午 09:20:47
請問您有收到信嗎??
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人livetdodau註記此篇回應為最佳解答 2004/8/17 下午 01:17:25
收到了,也稍加修改,寄出去ㄌ.
VBA 有些我不熟,只能先做這樣.
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 01:19:11
嗯.我收看看.
真是謝謝你了.
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 01:31:28
對不起了.我沒收到...可不可 以請您寄到這個信箱給我...
dodolivet@pchome.com.tw
謝謝
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 01:33:46
因為是webmail,可能慢一點,家裡的也寄
我再寄一個上面的
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 03:17:52

我收到了.我也做了一些小更改.真是謝謝你了.
但中間還是有一個我試不出來.
(2.我RUN 跟 DEBUG 都沒有雙引號的出現 "" )-->還是會出現"BIN0"-->雙引號
不知這邊要做那裡更改

謝謝
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 03:34:58
前面幫我解決問題的大大們非常的謝謝....我會努力的用心來寫...真的很謝謝你們
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人livetdodau註記此篇回應為很有道理 2004/8/17 下午 05:14:15
寫入檔案的LOOP
Do Until strRow1 = ""
    strOutputText = "<BIN>" & sbin.Cells(intCol, 1).Value & "|" & _
     sbin.Cells(intCol, 2).Value & "|" & sbin.Cells(intCol, 3).Value & "|" & _
     sbin.Cells(intCol, 4).Value & "|" & sbin.Cells(intCol, 5).Value & "|" & _
     sbin.Cells(intCol, 6).Value & "|" & sbin.Cells(intCol, 7).Value & "|" & _
     sbin.Cells(intCol, 8).Value & "|" & sbin.Cells(intCol, 9).Value & "|" & _
     sbin.Cells(intCol, 10).Value & "|" & "</BIN>" & vbCrLf
    
    file.Write strOutputText ----->設中斷點,看一下寫入時的字串是甚麼
    intCol = intCol + 1
    strRow1 = sbin.Cells(intCol, 1).Value
Loop

若會出現雙引號,應該所有同一欄位都會出現,只出現"BIN0"和"Pass"是很奇怪.
我存寫了5個檔都一樣....沒有雙引號
<BIN>0|0|0|BIN0|0|0|X|0|0|0|</BIN>
<BIN>1|1|1|Pass|1|1|X|0|0|0|</BIN>
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 05:28:33
我懂了.那再請問
如果說其中有幾還是有雙引號的.
EX "BIN0"
     "PASS"
     "BIN1"
如何在.XML裡沒有雙引號出現..
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 05:31:59
對了..另外一個檔案.先不要管可不可以覆選..
單選的話.要怎麼下.才可以讓它跳到該去的地方.??
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 06:10:31
我再寄修正過的檔給你,pchome的被退件,寄另外兩個信箱.
你再試試看.
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/17 下午 11:07:09
....沒收到耶.....
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/18 下午 02:38:08
我早上用另一個MAIL寄出,有收到嗎?
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/19 下午 01:13:14
有收到了..謝謝您....
作者 : livetdodau(Livet)
[ 貼文 23 | 人氣 4298 | 評價 0 | 評價/貼文 0 | 送出評價 7 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/8/19 下午 02:26:49
原來是要下到位置去哦.這樣我了解了.
可是公司的老大又出了一個問題了.他說如果用VB的程式來寫.可以寫的出來嗎?然後選.他只會出來那個頁面....>"<
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人livetdodau註記此篇回應為最佳解答 2004/8/19 下午 02:47:12
當然可以,不過我希望你自己先做做看,多翻點書,或是網上找範例,畢竟這是你的工作.
若還有其他問題,重新開個主題吧.
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.2189941