用excel上網查音標又掛了

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2012-7-15 21:38 | 顯示全部帖子

回復 21# c_c_lai

只按一次而已
程序後處理,有下Kill 指令刪除檔案
但下載錯誤的頁面,無法完成所有動作.

出現錯誤的下載
<head>
<link rel='stylesheet' href='/ppp.css' type='text/css'>
</head>
<body>
<center>
<br><h4 align='center'><font color='red'>檔案不存在</font></h4>
<!- filename1 = t108sb27_20120715_18181771.csv' --><br>
<!- filename2 = t108sb27_20120715_18181771.csv' -->
<!- fromNew = -->

不ㄧ定在[市]or[櫃]出現錯誤的下載
跟回傳速度有關係?!

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2012-7-16 17:41 | 顯示全部帖子

回復 24# GBKEE
回復 21# c_c_lai

謝謝兩位大大指導
我會努力消化
~感恩~^__^~

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

14^#

發表於 2012-7-17 14:32 | 顯示全部帖子

回復 27# GBKEE

答案是--->第(1)個分割,對了嗎?!

很多語法都是先套用，對其理解度還不夠
新範例也很多還很陌生的,有助於我多瞭解意義
謝謝大大~^_^~

LBound(W) --->最小之長整數 'http://www.w3school.com.cn/vbscript/func_lbound.asp
UBound(W)--->最大之長整數 'http://msdn.microsoft.com/zh-cn/library/95b8f22f(v=vs.80).aspx

Chr(13) 歸位;回車　Chr(10) 換行　Chr(9) TAB键的空格　Chr(32) 空格　Chr(34) "　chr(0)则是系统控制符，表示空，也就是Null
Chr(255) 特殊空格範例'http://www.aspxhome.com/asp/startasp/20097/82213.htm
ASCII碼對照表 'http://big5.webasp.net/article/15/14718.htm

真的!!!!!!我有認真再消化 O_Q

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

15^#

發表於 2012-7-17 14:57 | 顯示全部帖子

回復 26# c_c_lai

這樣也可行
On Error Resume Next
Kill Apath & "櫃.csv"
.SaveToFile (Apath & "櫃.csv")

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2012-7-17 15:12 | 顯示全部帖子

本帖最後由 HSIEN6001 於 2012-7-17 17:09 編輯

回復 29# GBKEE

~索引值 ~
最小的索引值是----> 0 開始的長整數.

這#17

Sub Ex_陣列()
Dim A As String, W, xi As Integer, i As Integer
W = Array("A", "B", "C", "D")
For i = LBound(W) To UBound(W)
MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
Next
End Sub

複製代碼

這
LBound(W) ---> LBound 函数可以找到数组某一维的下限索引值。
UBound(W)---> UBound 函数可以找到数组某一维的上限索引值。
故For  i = LBound(W) To UBound(W) = 4 個索引值 ; 最小長整數為0  , 故 i  = "W(" &  i & ") = 0 To 3
W(0) = A , W(1) = B , W(2) = C , W(3) = D

而 : Split(字串, "分割字元")(1)---->指的是第(1)個索引值

兩者的() 無相關  ;是不同的應用
.....這樣的邏輯,對嗎?!

要打結了 O_Q

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

17^#

發表於 2012-7-17 18:35 | 顯示全部帖子

本帖最後由 HSIEN6001 於 2012-7-17 18:37 編輯

回復 32# GBKEE
大致上,有概念了~^^

回復 33# c_c_lai
用 "判斷式" 的邏輯去下指令 , 避免之後程序因On Error Resume Next
未出現偵錯的段落提示 ; 而產生Run出不完整的結果
是這樣的意思，我瞭解!

受益良多，謝謝兩位大大指導!