sd-jason

½Ð°Ý¦U¦ì¤j¤j¡G
¬°¤°»ò§Ú¶K¤W¥H«á¡A¥¦¤@ª½»¡§ä¤£¨ì¥¨¶°¡H
¦³¨S¦³ÀÉ®×¥i¥HÅý§Ú¬Ý¤@¤U...
·PÁÂ !

lalalada

¦^´_ 13# GBKEE
¦^´_ 14# HSIEN6001

     ·PÁ¨â¦ìªº»¡©ú!!

GBKEE

¦^´_ 10# lalalada
   

  .WebTables = "4,""table2"""

­×§ï9#¦p¤U

1. Option Explicit
   
2. Sub ­ÓªÑ¥æ©ö©ú²Ó¤U¸ü()
   
3.     Dim ªÑ²¼¥N¸¹ As String, N As Name, i As Integer, T As Date, A
   
4.     Do While ªÑ²¼¥N¸¹ = ""
   
5.         ªÑ²¼¥N¸¹ = InputBox("ªÑ²¼¥N¸¹", "¿é¤J¬d¸ß¤§ªÑ²¼¥N¸¹", "1101")
   
6.         If ªÑ²¼¥N¸¹ = "" Then End
   
7.     Loop
   
8.     T = Time
   
9.     With ActiveSheet
   
10.         .Cells.Clear
    
11.         DoEvents
    
12.         Application.ScreenUpdating = False
    
13.         Application.StatusBar = False
    
14.         With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=1", Destination:=Range("A1"))
    
15.             .WebFormatting = xlWebFormattingNone
    
16.             .WebTables = "4,""table2"""
    
17.             .Refresh BackgroundQuery:=False
    
18.             If Application.CountA(.ResultRange) = 0 Then
    
19.                 MsgBox "ªÑ²¼¥N¸¹:" & ªÑ²¼¥N¸¹ & " ¿ù»~ !!!"
    
20.                 [a1].Select
    
21.                 End
    
22.             End If
    
23.             ActiveSheet.Names(.Name).Delete
    
24.         End With
    
25.         i = 2
    
26.         Do
    
27.             .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Select
    
28.              With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=" & i, Destination:=Selection)
    
29.                 .WebFormatting = xlWebFormattingNone
    
30.                 .WebTables = "table2"
    
31.                 On Error Resume Next
    
32.                 Do
    
33.                      Err.Clear
    
34.                     .Refresh BackgroundQuery:=False
    
35.                 Loop Until Err.Number = 0
    
36.                 On Error GoTo 0
    
37.                 If Application.CountA(.ResultRange) = 0 Then GoTo OUT
    
38.                 .ResultRange(1).EntireRow.Delete
    
39.                 ActiveSheet.Names(.Name).Delete
    
40.                 i = i + 1
    
41.             End With
    
42.         Loop
    
43. OUT:
    
44.         .[a1].Select
    
45.         Application.ScreenUpdating = True
    
46.         .Columns.AutoFit
    
47.         A = CreateObject("WScript.Shell").popup("¦@¤U¸ü " & i & " ­¶¶O®É  " & Format(Time - T, "hh:mm¤ÀSS¬í"), 5, "_" & ªÑ²¼¥N¸¹, 48 + 0)
    
48.         Application.StatusBar = "ªÑ²¼¥N¸¹ [" & ªÑ²¼¥N¸¹ & "] ¦@¤U¸ü " & i & "­¶ ¶O®É " & Format(Time - T, "HH:MM:SS")
    
49.         For Each N In .Names
    
50.             N.Delete
    
51.         Next
    
52.      End With
    
53. End Sub

½Æ»s¥N½X

HSIEN6001

¦^´_ 10# lalalada

°Ñ¦Ò!°Ñ¦Ò!~~¦³»~½ÐªÈ¥¿§Ú!

§Úªº²z¸Ñ¬O
.RefreshStyle = xlOverwriteCells        '= xlOverwriteCells 'Âл\­ìÄæ¦ì   = xlInsertDeleteCells '´¡¤J·s¸ê®Æ,­ì¸ê®Æ¥k²¾


©Ò¥H§ì§¹¥þ­¶­±¤§«áªºÀ³¥Î
Option Explicit
Sub Ex()
    Dim QueryTable_Name As String
    With ActiveSheet
        With .QueryTables.Add(Connection:="URL;http://******", Destination:=Range("A1"))
            QueryTable_Name = .Name
            .RefreshStyle = xlOverwriteCells        '= xlOverwriteCells 'Âл\­ìÄæ¦ì   = xlInsertDeleteCells '´¡¤J·s¸ê®Æ,­ì¸ê®Æ¥k²¾
            .Refresh BackgroundQuery:=False
        End With
        .Names(QueryTable_Name).Delete   '§R°£:¬d¸ß¦b¤u§@ªí©Ò©w¸qªº½d³ò¦WºÙ
    End With

'³o¸Ì¥t¥~°Å¶K¥X¥h,ÅýÀɮצU¦Û¿W¥ß
Columns("¸ê®Æ½d³ò").Select
Selection.Cut      '°Å¤U¸ê®Æªº½d³ò
Workbooks.Add   '·s¼W¸ê®Æªí
Range("A1").Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs

End Sub

GBKEE

¦^´_ 11# lalalada
©Ò¥H¬O¥u¥i¥H¹î¬Ý«e¤@¤é ©Î ·í¤éªº¸ê®Æ
¦^´_ 12# lalalada

.ResultRange-> QueryTablet  ¬d¸ß¶Ç°e¨Óªº¸ê®Æ½d³ò  
.ResultRange(1).->.ResultRange.Cells(1)

vba ªº»¡©ú¤Î½d¨Ò
ResultRange ÄÝ©Ê ½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí«ü©w¬d¸ßªí©ÒÂл\ªº¤u§@ªí°Ï°ì¡C°ßŪ¡C
½d¨Ò
¥»½d¨Ò¹ï²Ä¤@±i¬d¸ßªí¤¤²Ä¤@Ä檺¸ê®Æ¶i¦æ¥[Á`¡A¨Ã¦b¸ê®Æ½d³ò¤U¤èÅã¥Ü²Ä¤@Äæ¸ê®ÆªºÁ`©M¡C
Set c1 = Sheets("sheet1").QueryTables(1).ResultRange.Columns(1)
c1.Name = "Column1"
c1.End(xlDown).Offset(2, 0).Formula = "=sum(Column1)"

lalalada

¹ê»Ú¤W¤£»Ý­n¿é¤J¤é´Á¤Þ¼Æ´N¥i¥H¸ü¤Jºô­¶~

¥t¥~·Q½Ð±Ð
.ResultRange(1).End(xlDown).Offset(2).CurrentRegion.Cut .ResultRange(1).End(xlToRight).Offset(, 1)
³o¨â¥y¬O¤°»ò·N«ä?

lalalada

¦^´_  GBKEE

yap ´N¬O³o­Ó
¥t¥~´£¨Ñ¤@¤p¬qµ{¦¡½X
¥i¥H§K¥h¤â°Ê¿é¤J¤é´Á
¤Ï¥¿¥L¤]¥u¦³¤@¤Ñªº¸ê®Æ¥i¥H ...
lalalada µoªí©ó 2012-8-1 13:56

¶W¹L¤T¤ÀÄÁ¤£¯à½s¿è...
§Úµo²{¤é´ÁÀH«K¥´§ì¨ìªºªF¦è³£¤@¼Ë!
©Ò¥H¤]¤£»Ý­n¯S§O«ü©w¤F@@

lalalada

¦^´_ 9# GBKEE

yap ´N¬O³o­Ó
¥t¥~´£¨Ñ¤@¤p¬qµ{¦¡½X
¥i¥H§K¥h¤â°Ê¿é¤J¤é´Á
¤Ï¥¿¥L¤]¥u¦³¤@¤Ñªº¸ê®Æ¥i¥H¤U¸ü
Sheets.Add
With ActiveSheet.QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=1101&FocusIndex=All_1", Destination:=Range("A1"))
        .PreserveFormatting = True
        .RefreshStyle = xlInsertDeleteCells
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "4,""table2"""
        .Refresh BackgroundQuery:=False
        End With
dataDate = Format(Cells(1, 2), "yyyymmdd")

GBKEE

¦^´_ 6# mannyhsu

1. Option Explicit
   
2. Sub ­ÓªÑ¥æ©ö©ú²Ó¤U¸ü()
   
3.     Dim ªÑ²¼¥N¸¹ As String, ¤é´Á As Variant, N As Name, i As Integer, T As Date, A
   
4.     Do While Not IsDate(¤é´Á)
   
5.         ¤é´Á = InputBox("¿é¤J¬d¸ß¤é´Á", "¤é´Á", Date)
   
6.         If ¤é´Á = "" Then End
   
7.     Loop
   
8.     Do While ªÑ²¼¥N¸¹ = ""
   
9.         ªÑ²¼¥N¸¹ = InputBox("ªÑ²¼¥N¸¹", "¿é¤J¬d¸ß¤§ªÑ²¼¥N¸¹", "1101")
   
10.         If ¤é´Á = "" Then End
    
11.     Loop
    
12.     ¤é´Á = Format(¤é´Á, "yyyymmdd")
    
13.     T = Time
    
14.     With ActiveSheet
    
15.         .Cells.Clear
    
16.         DoEvents
    
17.         Application.ScreenUpdating = False
    
18.         Application.StatusBar = False
    
19.         With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=1", Destination:=Range("A1"))
    
20.             .BackgroundQuery = True
    
21.              .WebTables = "6,7"
    
22.             .Refresh BackgroundQuery:=False
    
23.              .ResultRange(1).End(xlDown).Offset(2).CurrentRegion.Cut .ResultRange(1).End(xlToRight).Offset(, 1)
    
24.             If Application.CountA(.ResultRange) = 0 Then
    
25.                 MsgBox Format(¤é´Á, "0000/00/00") & " ¥ð¥«!!!  ©Î  ªÑ²¼¥N¸¹:" & ªÑ²¼¥N¸¹ & " ¿ù»~ !!!"
    
26.                 [A1].Select
    
27.                 End
    
28.             End If
    
29.             ActiveSheet.Names(.Name).Delete
    
30.         End With
    
31.         i = 2
    
32.         Do
    
33.             .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Select
    
34.             With .QueryTables.Add(Connection:="URL;http://bsr.twse.com.tw/bshtm/bsContent.aspx?strDate=" & ¤é´Á & "&StartNumber=" & ªÑ²¼¥N¸¹ & "&FocusIndex=" & i, Destination:=Selection)
    
35.                 .BackgroundQuery = True
    
36.                 .WebTables = "6,7"
    
37.                 On Error Resume Next
    
38.                 Do
    
39.                      Err.Clear
    
40.                 .Refresh BackgroundQuery:=False
    
41.                 Loop Until Err.Number = 0
    
42.                 On Error GoTo 0
    
43.                 If Application.CountA(.ResultRange) = 0 Then GoTo OUT
    
44.                 .ResultRange(1).End(xlDown).Offset(2).CurrentRegion.Cut .ResultRange(1).End(xlToRight).Offset(, 1)
    
45.                 .ResultRange(1).EntireRow.Delete
    
46.                 ActiveSheet.Names(.Name).Delete
    
47.                 i = i + 1
    
48.             End With
    
49.         Loop
    
50. OUT:
    
51.         .[A1].Select
    
52.         Application.ScreenUpdating = True
    
53.         With .UsedRange
    
54.             .WrapText = False
    
55.             .Interior.ColorIndex = xlNone
    
56.             .Font.Size = 12
    
57.             .Columns.AutoFit
    
58.             A = CreateObject("WScript.Shell").popup("¦@¤U¸ü " & i & " ­¶¶O®É  " & Format(Time - T, "hh:mm¤ÀSS¬í"), 5, ¤é´Á & "_" & ªÑ²¼¥N¸¹, 48 + 0)
    
59.             Application.StatusBar = ¤é´Á & " _ " & ªÑ²¼¥N¸¹ & " ¦@¤U¸ü " & i & "­¶ ¶O®É " & Format(Time - T, "HH:MM:SS")
    
60.         End With
    
61.         For Each N In .Names
    
62.             N.Delete
    
63.         Next
    
64.      End With
    
65. End Sub

½Æ»s¥N½X

lalalada

³á³á ¤£¦n·N«ä
¤§«e§Ú¥H¬°¦¨¥\¤F µ²ªG¶]§¹¤§«áµo²{¸ê®Æ¬O¿ùªº...
³o¬O§Ú¤§«e¼gªº:
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    With WinHttpReq
    .Open "POST", URL, False
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .Send (varBody)
           Set oStream = CreateObject("ADODB.Stream")
           oStream.Open
           oStream.Type = 1
           oStream.Write WinHttpReq.ResponseBody
           oStream.SaveToFile ("C:\AA\temp\" & CStr(code) & ".csv")
           oStream.Close
    End With
Application.Workbooks.Open ("C:\AA\temp\" & CStr(code) & ".csv")
Cells.Find(what:="sp_list").Activate
Page = Left(ActiveCell, a, b)
´N¦p¤§«e©Ò»¡ ¬O±Nºô­¶­ì©lÀɧì¤U¨Ó¦AŪ¨ú
µo²{«á´N¶}©l­×§ï µ¥¯uªº§Ë¦n¦Apo§¹¾ãª©
³o´X¤Ñ¥u¯àÄ~Äò¥ÎGª©¤j¤§«e¼gªº¤gªk·Ò¿û§ì¦³¿³½ìªºªÑ²¼ ʨ
¥Ø«e¥i¯à­n½Ð±Ð¥ÎPYTHONªº¨º¦ìÅo ¬Ý°_¨Ó¦n¹³¥i¥H§ì¦¨csvÀÉ(?)
¤£¹L¥L¦ü¥G±Mª`©ó¶}·sª©¦Ó¨S¦³­nPOµ{¦¡½Xªº·N«ä
©Ò¥H³Ìªñ¤]­n¶}©l¾Ç¤F~