GBKEE

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
17. Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>  ")(1), InStr(VBA.Split(.responseText, "KK</span>  ")(1), "]"))
§R°£ªÅ®æ­×§ï¦p¤U:
Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>")(1), InStr(VBA.Split(.responseText, "KK</span>")(1), "]"))

GBKEE

¦^´_ 11# HSIEN6001

1. Option Explicit
   
2. Sub Ex() 'Split¦b¦r¦ê¤¤¥H«ü©wªº¦r¤¸§@¤À³Î¶Ç¦^¤@ºû°}¦C
   
3.     Dim A As String, W, xi As Integer, i As Integer
   
4.     A = "1ABCD2ABCD3ABCD4ABCD"
   
5.     For xi = 2 To 6
   
6.         W = Split(A, Mid(A, xi, 1))
   
7.         For i = 0 To UBound(W)
   
8.             Debug.Print W(i)     '¦b§Y®É¹Bºâµøµ¡¥i¨£
   
9.         Next
   
10.         MsgBox Join(W, ",")
    
11.     Next
    
12. End Sub

½Æ»s¥N½X

¦^´_ 12# c_c_lai
¨Ï¥Î VBA.Split »P ¨ç¼Æ¤§ Split ¹ê°ÈÀ³¥Î¤W¨ì©³¦³¦ó®t²§  ¤@¼Ëªº«áªÌ¥u¬O¬Ù²¤ªº¼gªk

GBKEE

¦^´_ 16# c_c_lai
(For i = 0 To 4)                   <---   ¥¿½TÀ³¬° For i = 0 To 3
' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,5,1)) -> 'D'  ³o¸Ì¨Ã¨S¦³®M¤J i  ³oÅܼÆ
¥i¥H¶Ç¤W§A©Ò»¡ªº¿ù»~ µ{¦¡½X

¦^´_ 17# HSIEN6001

1. Sub Ex()
   
2.     Dim strURL As String, x As String
   
3.     strURL = "http://mops.twse.com.tw/mops/web/ajax_t108sb27?step=1&firstin=ture&off=1&TYPEK=sii&co_id_1=&co_id_2=&year=" & _
   
4.                 Year(Date) - 1911 & "&month=&b_date=&e_date=&type=1&rulesubmit2=%20%E6%90%9C%E5%B0%8B%20"
   
5.         With CreateObject("Microsoft.XMLHTTP")
   
6.             .Open "GET", strURL, 1
   
7.            .send
   
8.             Do While .ReadyState <> 4
   
9.             Loop
   
10.              x = Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))
    
11.            MsgBox x
    
12.         End With
    
13. End Sub
    
14. Sub Ex_Split() 'Split(¦r¦ê,¤À³Î¦r¤¸)(1)--->³o­Ó(1)¬O?·N«ä
    
15.     Dim A As String, W, xi As Integer, i As Integer
    
16.     A = "1ABCD2ABCD3ABCD4ABCD"
    
17.     W = Split(A, "B")
    
18.     For i = 0 To UBound(W)
    
19.         MsgBox "W(" & i & ")  -> " & W(i)
    
20.     Next
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 23# c_c_lai
§ä¤£¥X§Aªº¿ù»~

1. Option Explicit
   
2. Sub Ex() 'Split¦b¦r¦ê¤¤¥H«ü©wªº¦r¤¸§@¤À³Î¶Ç¦^¤@ºû°}¦C
   
3.     Dim A As String, W, xi As Integer, i As Integer
   
4.     A = "1ABCD2ABCD3ABCD4ABCD"
   
5.    ' (For 5 to 6)
   
6.     For i = 0 To 4       '   <---   ¥¿½TÀ³¬° For i = 0 To 3
   
7.         W = Split("1ABCD2ABCD3ABCD4ABCD", Mid(A, 5, i)) ' '-> 'D'
   
8.     MsgBox "¤À³Î¦r¦ê """ & Mid(A, 5, i) & """°}¦C¤W­­ºû«× " & UBound(W) & " ³Ì«á¤@ºû¦r¦ê: " & W(UBound(W)) '-> 1ABC,2ABC,3ABC,4ABC)
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

¦^´_ 20# HSIEN6001
Split(¦r¦ê,¤À³Î¦r¤¸)(1)--->³o­Ó(1)¬O?·N«ä
18#¦³¥Ü½dªºµ{¦¡

1. Sub Ex_Split() 'Split(¦r¦ê,¤À³Î¦r¤¸)(1)--->³o­Ó(1)¬O?·N«ä
   
2.     Dim A As String, W, xi As Integer, i As Integer
   
3.     A = "1ABCD2ABCD3ABCD4ABCD"
   
4.     W = Split(A, "B")
   
5.     For i = 0 To UBound(W)
   
6.         MsgBox "W(" & i & ")  -> " & W(i)
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

À£ÁYÀɤº¦³¨â­Ó¤U¸ü,¤@­Ó¬ONG,¤@­ÓOK
21#c_c_lai  ¤£¬O»¡
²Ä¤@¦¸¤@©w¬O OK ªº¡A¦]¬°¦b D:\ ¤º ¥«.csv¡BÂd.csv ¨Ã¤£¦s¦b¡A«ö²Ä¤G¦¸®É¡A
©p¤S¦A¦¸¨Ï¥Î .SaveToFile (Apath & "¥«.csv") ¥H¤Î .SaveToFile (Apath & "Âd.csv")
©Ò¥H´N·|¥X¿ù¤F¡C

1. Sub Ex()
   
2. Dim xml As New XMLHTTP
   
3. Dim stream As New ADODB.stream
   
4. Dim strURL As String
   
5. Dim x As String, y As String
   
6. Dim Apath As String, ApathFile As String
   
7. Apath = "D:\"
   
8. If Dir(Apath & "¥«.csv") <> "" Then Kill Apath & "¥«.csv"       '¥[¤W¦³«h§R°£ªº§PÂ_
   
9. If Dir(Apath & "Âd.csv") <> "" Then Kill Apath & "Âd.csv"

½Æ»s¥N½X

GBKEE

¦^´_ 25# HSIEN6001
§Ú·|§V¤O®ø¤Æ

1. Option Explicit
   
2. Sub Ex_°}¦C() 'Split(¦r¦ê,¤À³Î¦r¤¸)(1)--->³o­Ó(1)¬O?·N«ä
   
3.     Dim A As String, W, xi As Integer, i As Integer
   
4.     'A = "1ABCD2ABCD3ABCD4ABCD"
   
5.     'W = Split(A, "B")
   
6.     W = Array("A", "B", "C", "D")
   
7.     For i = LBound(W) To UBound(W)
   
8.         MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ")  -> " & W(i)
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 28# HSIEN6001
²Ä(¯Á¤Þ­È)­Ó¤À³Î   
LBound(W) ---> LBound ¨ç数¥i¥H§ä¨ì数组¬Y¤@维ªº¤U­­¯Á¤Þ­È¡C
UBound(W)---> UBound ¨ç数¥i¥H§ä¨ì数组¬Y¤@维ªº¤W­­¯Á¤Þ­È¡C

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim A(4 To 7), x As Integer
   
4.     For x = LBound(A) To UBound(A)
   
5.         A(x) = String(x, "A")
   
6.     Next
   
7.     MsgBox "LBound(A) =>¤U­­¯Á¤Þ­È" & LBound(A) & Chr(10) & _
   
8.     "UBound(A) =>¤W­­¯Á¤Þ­È" & UBound(A) & Chr(10) & Join(A, "---")
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 31# HSIEN6001
³Ì¤pªº¯Á¤Þ­È¬O----> 0 ¶}©lªºªø¾ã¼Æ.  ³o¤£¤@©w
¨Ò  Dim A(4 To 7)  ->   ³Ì¤pªº¯Á¤Þ­È¬O 4 , ³Ì¤jªº¯Á¤Þ­È¬O7   
Option Base  0 ©Î 1   ¥i«ü©w³Ì¤pªº¯Á¤Þ­È¬° 0 ©Î 1

1. Option Explicit
   
2. Option Base 1
   
3. 'Option Base ³¯­z¦¡ ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­¡C»yªk Option Base {0 | 1}
   
4. Sub Ex_°}¦C()
   
5. Dim A As String, W, xi As Integer, i As Integer
   
6. W = Array("A", "B", "C", "D")
   
7. MsgBox LBound(W)
   
8. For i = LBound(W) To UBound(W)
   
9. MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
   
10. Next
    
11. End Sub

½Æ»s¥N½X