ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý¦p¦ó¥Î MSXML2.XMLHTTP ®» »OÆWÃÒ¨é¥æ©ö©Ò ­ÓªÑ¤ë¦¨¥æ¸ê°T

½Ð°Ý¦p¦ó¥Î MSXML2.XMLHTTP ®» »OÆWÃÒ¨é¥æ©ö©Ò ­ÓªÑ¤ë¦¨¥æ¸ê°T

½Ð°Ý¦p¦ó¥Î MSXML2.XMLHTTP ®»

»OÆWÃÒ¨é¥æ©ö©Ò ­ÓªÑ¤ë¦¨¥æ¸ê°T
http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAYMAIN.php

ªº¸ê®Æ

ÁÂÁÂ

¨Ò¦p¡G
http://social.msdn.microsoft.com/Forums/en-US/bd0ee306-7bb5-4ce4-8341-edd9475f84ad/excel-2007-use-vba-to-download-save-csv-from-url?forum=isvvba

¦^´_ 1# wufonna
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex¤U¸üCSV()
  3.     Dim xml As Object
  4.     Dim stream
  5.     Dim URL As String     '¥Øªººô§}
  6.     Set xml = CreateObject("Microsoft.XMLHTTP") '¥Î¨Ó¨ú±oºô­¶¸ê®Æ
  7.     Set stream = CreateObject("ADODB.stream")   'ADODB.stream   '¥Î¨ÓÀx¦s¤G¶i¦ìÀÉ®×
  8.     URL = "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201408/201408_F3_1_8_2485.php&type=csv"
  9.     xml.Open "get", URL, 0
  10.     xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  11.     xml.send
  12.     With stream
  13.         .Open
  14.         .Type = 1
  15.         .write xml.ResponseBody
  16.         'SaveToFile:ÀɮצWºÙ¤w¦s¦b®É·|¦³¿ù»~,¶·¥ý§R°£¤w¦s¦bªºÀɮצWºÙ
  17.         If Dir("D:\2485.CSV") <> "" Then Kill "D:\2485.CSV"
  18.         .SaveToFile ("D:\2485.CSV")
  19.         .Close
  20.     End With
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ÁÂÁÂ G ¤j
   ¦A½Ð°Ý xml.ResponseBody ¥i¥Hª½±µ¶K¦b¤u§@ªí¶Ü
  §ä¤F«Ü¤[³£§ä¤U¨ì ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-2 05:50 ½s¿è

¦^´_ 3# wufonna
´«¤@­Ó¤è¦¡
  1. Option Explicit
  2. Sub Ex_­ÓªÑ¤ë¦¨¥æ¸ê°T()
  3.     Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
  4.     With CreateObject("InternetExplorer.Application")
  5.        ' .Visible = True
  6.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201408/201408_F3_1_8_2485.php&type=list"
  7.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  8.         Ep .document.getElementsByTagName("table")(1).outerHTML
  9.         .Quit        'Ãö³¬ºô­¶
  10.     End With
  11. End Sub
  12. Sub Ep(S As String)
  13.     Dim D As New DataObject
  14.     'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
  15.     '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
  16.     With D
  17.         .SetText S
  18.         .PutInClipboard
  19.         With ActiveSheet
  20.             .UsedRange.Clear
  21.             .Range("a1").Select
  22.             .PasteSpecial Format:="Unicode ¤å¦r"
  23.         End With
  24.     End With
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


ÁÂÁÂ G ¤j
§Ú­n°µ­ÓªÑ¦¨¥æ¶q¦³µL¼É¶q¡Aµ{¦¡¥i­n¬ã¨s¤@¬q®É¶¡¡A¦A½Ð±Ð G ¤j
«D±`·P¿E

TOP

¦^´_ 4# GBKEE

G ¤j ±z¦n
§Ú·Q±N¤u§@ªí1ªº­ÓªÑ§ä¥X¥X¶qªÑ ©ñ¦A¤u§@ªí2¤¤
¬O§_¥Î¤Ó¦h¸ê·½¤F ¥X¤F¦p¤U¹Ïªº¿ù»~

¬°¤°»ò set CreateObject("InternetExplorer.Application") = Nothing ¤£¥i¥Î

½Ð±Ð G ¤j¦p¦ó­×§ï
ÁÂÁÂ
  1. Option Explicit
  2. Sub Index()
  3. Dim i As Integer, I2 As Integer
  4. Dim x, y, XX, YY, ZZ
  5. Dim k
  6. Const AA As Integer = 5
  7. ¤u§@ªí3.Activate
  8. '¤u§@ªí3.Select
  9. If Int(Split(Date, "/")(2)) < 6 Then '¬O¤£¹L6¤Ñ¹Bºâ¡A¤£¹L¥[¤W¤ë¥÷
  10. Application.ScreenUpdating = False
  11. With ¤u§@ªí1
  12.     k = 2
  13.     For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
  14.         I2 = .Cells(i, 1).Value
  15.         Debug.Print I2

  16.         Call Ex_2(Split(Date, "/")(0) & Format((Split(Date, "/")(1) - 1), "00"), Split(Date, "/")(0) & Format((Split(Date, "/")(1)), "00"), I2)
  17.    
  18.     y = ¤u§@ªí3.Range("J" & ¤u§@ªí3.Rows.Count).End(xlUp).Row - 3 - 1 ' ³o¤ë¥÷­n¥Îªº¥­§¡¼Æ
  19.     x = AA - y
  20.     YY = ¤u§@ªí3.Range("J" & ¤u§@ªí3.Rows.Count).End(xlUp).Row - y
  21.     XX = ¤u§@ªí3.Range("A" & ¤u§@ªí3.Rows.Count).End(xlUp).Row - x + 1
  22.     ZZ = (WorksheetFunction.Sum(¤u§@ªí3.Cells(YY, 11).Resize(y)) + WorksheetFunction.Sum(¤u§@ªí3.Cells(XX, 2).Resize(x))) / AA
  23.     On Error Resume Next

  24.     If ¤u§@ªí3.Cells(¤u§@ªí3.Range("J" & ¤u§@ªí3.Rows.Count).End(xlUp).Row, 11) > ZZ * 5 Then
  25.         ¤u§@ªí2.Cells(k, 1).Resize(, 2).Value = .Cells(i, 1).Resize(, 2).Value
  26.            k = k + 1
  27.         Debug.Print k
  28.     End If
  29.    
  30.    
  31.     Next
  32. End With
  33. Application.ScreenUpdating = True

  34. Else
  35. With ¤u§@ªí1
  36. ''''''''¥¼´ú¸Õ
  37.     For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
  38.    
  39. Call Ex_1(Split(Date, "/")(0) & Format((Split(Date, "/")(1)), "00"), I2)

  40.     Next
  41. '''''''¥¼´ú¸Õ
  42. End With

  43. End If

  44. End Sub


  45. Sub Ex_1(SS As String, MM As Integer)
  46.     Dim i As Integer, S As Integer, k As Integer, A As Object, II, j
  47. '    ¤u§@ªí3.Select
  48.     With CreateObject("InternetExplorer.Application")
  49.        ' .Visible = True
  50.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS & "/" & SS & "_F3_1_8_" & MM & ".php&type=list"
  51.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  52.         Ep .document.getElementsByTagName("table")(1).outerHTML
  53.         On Error Resume Next
  54.         .Quit        'Ãö³¬ºô­¶
  55.     End With
  56.    

  57. End Sub
  58. Sub Ex_2(SS As String, SS2 As String, MM As Integer)
  59.     Dim i As Integer, S As Integer, k As Integer, A As Object, II, j
  60. '    ¤u§@ªí3.Select
  61.     With CreateObject("InternetExplorer.Application")
  62.        ' .Visible = True
  63.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS & "/" & SS & "_F3_1_8_" & MM & ".php&type=list"
  64.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  65.         Ep .document.getElementsByTagName("table")(1).outerHTML
  66.         On Error Resume Next
  67.         .Quit        'Ãö³¬ºô­¶
  68.     End With
  69.         With CreateObject("InternetExplorer.Application")
  70.        ' .Visible = True
  71.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS2 & "/" & SS2 & "_F3_1_8_" & MM & ".php&type=list"
  72.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  73.         Ep2 .document.getElementsByTagName("table")(1).outerHTML
  74.         On Error Resume Next
  75.         .Quit        'Ãö³¬ºô­¶
  76.     End With


  77. End Sub

  78. Sub Ep(S As String)
  79.     Dim D As New DataObject
  80.     'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
  81.     '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
  82.     With D
  83.         .SetText S
  84.         .PutInClipboard
  85.         With ActiveSheet
  86.             .UsedRange.Clear
  87.             .Range("a1").Select
  88.             .PasteSpecial Format:="Unicode ¤å¦r"
  89.         End With
  90.     End With
  91. End Sub
  92. Sub Ep2(S As String)
  93.     Dim D As New DataObject
  94.     'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
  95.     '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
  96.     With D
  97.         .SetText S
  98.         .PutInClipboard
  99.         With ActiveSheet
  100. '            .UsedRange.Clear
  101.             .Range("j1").Select
  102.             .PasteSpecial Format:="Unicode ¤å¦r"
  103.         End With
  104.     End With
  105. End Sub
½Æ»s¥N½X
2014-10-03_232338.jpg

§ä¥X¶qªÑ.rar (38.48 KB)

TOP

¦^´_ 6# wufonna
Set  CreateObject("InternetExplorer.Application")=Nothing
¤£¬OÅܼƬO¤@­Ó¹ê»Úªºª«¥ó.
Nothing ÃöÁä¦r¬O¥Î¨Ó±N¤@­Óª«¥óÅܼƱq¤@­Ó¹ê»Úªºª«¥óùؤÀÂ÷¶}¨Ó¡C¨Ï¥Î Set ³¯­z¦¡¥i«ü©w Nothing µ¹ª«¥óÅܼơC

­×§ï¬Ý¬Ý
  1. Option Explicit
  2. Dim IE As Object  '«Å§i¬°³o¼Ò²Õªº¨p¥ÎÅܼÆ(³o¼Ò²Õ¤¤ªºµ{§Ç¥i©I¥sªºÅܼÆ)
  3. Sub Index()
  4. Dim i As Integer, I2 As Integer
  5. Dim x, y, XX, YY, ZZ
  6. Dim k
  7. Set IE = CreateObject("InternetExplorer.Application")
  8. Const AA As Integer = 5
  9. ¤u§@ªí3.Activate
  10. '¤u§@ªí3.Select
  11. With ¤u§@ªí1
  12. ''''''''¥¼´ú¸Õ
  13.     For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row   
  14. Call Ex_1(Split(Date, "/")(0) & Format((Split(Date, "/")(1)), "00"), I2)
  15.     Next
  16. '''''''¥¼´ú¸Õ
  17. End With
  18. End If
  19. IE.Quit  '¦bSub Index() µ{¦¡µ²§ô«eÃö³¬ºô­¶
  20. End Sub
  21. Sub Ex_1(SS As String, MM As Integer)
  22.     Dim i As Integer, S As Integer, k As Integer, A As Object, II, j
  23. '    ¤u§@ªí3.Select
  24.     With IE
  25.        ' .Visible = True
  26.        On Error Resume Next
  27.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS & "/" & SS & "_F3_1_8_" & MM & ".php&type=list"
  28.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  29.         Ep .document.getElementsByTagName("table")(1).outerHTML
  30.        ' .Quit        'Ãö³¬ºô­¶
  31.     End With
  32. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ wufonna ©ó 2014-10-4 11:39 ½s¿è

¦^´_ 7# GBKEE
G ¤j¤j ±z¦n
§Ú§ï¤Fµ{¦¡ °õ¦æ¤F¦p¤U¿ù»~
½Ð°Ý¦p¦ó§ï¶i ÁÂÁÂ
  1. Option Explicit
  2. Dim IE As Object  '«Å§i¬°³o¼Ò²Õªº¨p¥ÎÅܼÆ(³o¼Ò²Õ¤¤ªºµ{§Ç¥i©I¥sªºÅܼÆ)
  3. Sub Index()
  4. Dim i As Integer, I2 As Integer
  5. Dim x, y, XX, YY, ZZ
  6. Dim k
  7. Set IE = CreateObject("InternetExplorer.Application")
  8. Const AA As Integer = 5
  9. ¤u§@ªí3.Activate
  10. '¤u§@ªí3.Select
  11. If Int(Split(Date, "/")(2)) < 6 Then '¬O¤£¹L6¤Ñ¹Bºâ¡A¤£¹L¥[¤W¤ë¥÷
  12. Application.ScreenUpdating = False
  13. With ¤u§@ªí1
  14.     k = 2
  15.     For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
  16.         I2 = .Cells(i, 1).Value
  17.         Debug.Print I2

  18.         Call Ex_2(Split(Date, "/")(0) & Format((Split(Date, "/")(1) - 1), "00"), Split(Date, "/")(0) & Format((Split(Date, "/")(1)), "00"), I2)
  19.    
  20.     y = ¤u§@ªí3.Range("J" & ¤u§@ªí3.Rows.Count).End(xlUp).Row - 3 - 1 ' ³o¤ë¥÷­n¥Îªº¥­§¡¼Æ
  21.     x = AA - y
  22.     YY = ¤u§@ªí3.Range("J" & ¤u§@ªí3.Rows.Count).End(xlUp).Row - y
  23.     XX = ¤u§@ªí3.Range("A" & ¤u§@ªí3.Rows.Count).End(xlUp).Row - x + 1
  24.     ZZ = (WorksheetFunction.Sum(¤u§@ªí3.Cells(YY, 11).Resize(y)) + WorksheetFunction.Sum(¤u§@ªí3.Cells(XX, 2).Resize(x))) / AA
  25.     On Error Resume Next

  26.     If ¤u§@ªí3.Cells(¤u§@ªí3.Range("J" & ¤u§@ªí3.Rows.Count).End(xlUp).Row, 11) > ZZ * 5 Then
  27.         ¤u§@ªí2.Cells(k, 1).Resize(, 2).Value = .Cells(i, 1).Resize(, 2).Value
  28.            k = k + 1
  29.         Debug.Print k
  30.     End If
  31.    
  32.    
  33.     Next
  34. End With
  35. Application.ScreenUpdating = True

  36. Else
  37. With ¤u§@ªí1
  38. ''''''''¥¼´ú¸Õ
  39.     For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
  40.    
  41. Call Ex_1(Split(Date, "/")(0) & Format((Split(Date, "/")(1)), "00"), I2)

  42.     Next
  43. '''''''¥¼´ú¸Õ
  44. End With

  45. End If
  46. IE.Quit  '¦bSub Index() µ{¦¡µ²§ô«eÃö³¬ºô­¶
  47. End Sub


  48. Sub Ex_1(SS As String, MM As Integer)
  49.     Dim i As Integer, S As Integer, k As Integer, A As Object, II, j
  50. '    ¤u§@ªí3.Select
  51.     With IE
  52.        ' .Visible = True
  53.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS & "/" & SS & "_F3_1_8_" & MM & ".php&type=list"
  54.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  55.         Ep .document.getElementsByTagName("table")(1).outerHTML
  56.         On Error Resume Next
  57.         .Quit        'Ãö³¬ºô­¶
  58.     End With
  59.    

  60. End Sub
  61. Sub Ex_2(SS As String, SS2 As String, MM As Integer)
  62.     Dim i As Integer, S As Integer, k As Integer, A As Object, II, j
  63. '    ¤u§@ªí3.Select
  64.     With IE
  65.        ' .Visible = True
  66.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS & "/" & SS & "_F3_1_8_" & MM & ".php&type=list"
  67.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  68.         Ep .document.getElementsByTagName("table")(1).outerHTML
  69.        ' On Error Resume Next
  70.         .Quit        'Ãö³¬ºô­¶
  71.     End With
  72.         With IE
  73.        ' .Visible = True
  74.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report" & SS2 & "/" & SS2 & "_F3_1_8_" & MM & ".php&type=list"
  75.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  76.         Ep2 .document.getElementsByTagName("table")(1).outerHTML
  77.        ' On Error Resume Next
  78.         .Quit        'Ãö³¬ºô­¶
  79.     End With


  80. End Sub

  81. Sub Ep(S As String)
  82.     Dim D As New DataObject
  83.     'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
  84.     '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
  85.     With D
  86.         .SetText S
  87.         .PutInClipboard
  88.         With ActiveSheet
  89.             .UsedRange.Clear
  90.             .Range("a1").Select
  91.             .PasteSpecial Format:="Unicode ¤å¦r"
  92.         End With
  93.     End With
  94. End Sub
  95. Sub Ep2(S As String)
  96.     Dim D As New DataObject
  97.     'DataObject ª«¥ó ¦b¶i¦æÂà´«°Ê§@®É¡A°µ¬°®æ¦¡¤Æ¤å¦r¸ê®Æªº¼È¦s°Ï°ì¡C¨ä¤]¥i¥H¼È¦s©MÀx¦s¦b DataObject ªº¤å¦r¤ù¬q¬ÛÃöªº®æ¦¡¡C
  98.     '«Å§i Dim D As New DataObject '¶·¦b¤u¨ã-> ³]©w¤Þ¥Î¶µ¥Ø¥[¤J ·s¼W¤Þ¥Î Microsoft Forms 2.0 Object Library ,©Î©ó±M®× ¥[¤J¤@ªí³æ§Y¥i
  99.     With D
  100.         .SetText S
  101.         .PutInClipboard
  102.         With ActiveSheet
  103. '            .UsedRange.Clear
  104.             .Range("j1").Select
  105.             .PasteSpecial Format:="Unicode ¤å¦r"
  106.         End With
  107.     End With
  108. End Sub
½Æ»s¥N½X
2014-10-04_113012.jpg
2014-10-04_113929.jpg

§ä¥X¶qªÑ2.rar (43.88 KB)

TOP

¦^´_ 7# GBKEE
ÁÂÁÂ G ¤j¤j
µ{¦¡¦p¹Ïªº¿ù»~
§Úµù¸Ñ¤F°Æµ{¦¡ªº
  '    .Quit        'Ãö³¬ºô­¶
¥Dµ{¦¡¥[  Set IE = Nothing
´N¥i¤F
«D±`·PÁÂ G ¤j¤j
§Ú¦A§ï¬Ý¬Ý ¤£À´¦A½Ð±Ð ¤j¤j
^_^
2014-10-04_115007.jpg

§ä¥X¶qªÑ3.rar (44.65 KB)

TOP

¦^´_ 9# wufonna


IE.Quit  '¦bSub Index() µ{¦¡µ²§ô«eÃö³¬ºô­¶
¨S¦³IE.Quit ,Ãö³¬ExcelÀ³¥Îµ{¦¡«áIEÁÙ¬O¶}±Òªº,¦]IE.Visible = False (ª«¥ó¨S¦³Åã¥Ü.)
Set IE = Nothing,ÄÀ©ñ¤FÅܼƩҵ²¦Xªºª«¥ó,ExcelÀ³¥Îµ{¦¡¤¤,¥i´î¤Ö¦û¥Îªºªº°O¾ÐÅé
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD