(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料

strainny wrote:
(1)一個是PasteSpecial的錯誤 (2)一個是很低的機率下sheets("tmp").cells(1,1)內容會出現兩個方框

strainny wrote:
再回到Table.innerhtml看,我就看不懂了吃驚
(另外請教一下 為何不是抓取Table.innerText的資料不知)

mike484 wrote:
請教程式抓到空白，有辦法抓到內容嗎?還是我少打了那些 用F12 是可以看到回應

snare wrote:
少打了非常多，invest...(恕刪)

strainny wrote:
目前第一筆都可以下載成功,
不過不知道為何在第2筆資料後 卻抓不到資料了

    Set Table = Nothing    
    Set HTMLsourcecode = Nothing    
    Set GetXml = Nothing    
      
  
    Next z

    Set Table = Nothing
    Set HTMLsourcecode = Nothing
    Set GetXml = Nothing

strainny wrote:
另外第一筆下載的格式,也會與原網站格式不符,
在想是不是儲存格的切割方式不對,

Dylan67 wrote:
1. 我想自定義1個圖表事件，單擊指定圖表時，能Msgbox圖表名稱

'存檔後重開，程式碼才會生效
'放在thisworkbook
Option Explicit
Private Sub Workbook_Open()
  Call Main
End Sub

'放在module1
Option Explicit
Dim Collect As New Collection

Sub Main()
    
    Dim i As Integer
    
    For i = 1 To ActiveWorkbook.Sheets.Count
        Call Get_all_Chart(ActiveWorkbook.Sheets(i))
    Next i
    
End Sub

Private Sub Get_all_Chart(sheet As Object)
    
    Dim C_N As ChartName, c As ChartObject
    
    For Each c In sheet.ChartObjects
        Set C_N = New ChartName
        Set C_N.Get_Chart = c.Chart
        Collect.Add C_N
    Next
    
End Sub


'放在物件類別模組，名稱=>ChartName
Option Explicit
Public WithEvents Get_Chart As Chart

Private Sub Get_Chart_Activate()
    
    Range("a1") = Get_Chart.Name 'debug
    
    'If Get_Chart.Name = "指定圖表名稱" Then
    '    MsgBox Get_Chart.Name
    'End If
    
End Sub

Dylan67 wrote:
2. 我想把篩選器中的內容提取出來，可是網路上的教學都是重新對表格提取不重複值，