提取數據 - 使用VBA

使用VBA，我需要從網頁中提取數據http://emops.tse.com.tw/t21/sii/t21sc03_2011_9_e.htm 提取數據 - 使用VBA

我能夠獲取使用下面的代碼中的所有數據：

With ActiveSheet.QueryTables.Add(Connection:="URL;http://emops.tse.com.tw/t21/sii/t21sc03_2012_2_e.htm", Destination:=Range("$A$1")) 
     .Name = "67083361_zpid" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
End With

但問題是我不希望整個頁面的數據。 我想從行業名稱是Electron的表中獲取數據（這是本例中的最後一個表格）

對於同樣的任何伎倆請好嗎？

來源

2012-12-18 Tejas

看到確切的表如果這有幫助？ http://stackoverflow.com/questions/8798260/html-parsing-of-cricinfo-scorecards/8846791#8846791 –

你可能想標記你的一些問題解決了，你的問題似乎被回答，但你還沒有確認他們 - 如果你不承認解決方案，人們不願意幫忙 – SWa

因爲某種原因，他們決定把它全部作爲* one *表格，最簡單的方法是取得這個批次，然後在A：A中找到「Industry：Electron」並刪除所有內容在它上面 –

變化：

.WebSelectionType = xlEntirePage to .WebSelectionType = xlSpecifiedTables

地址：

.WebTables = "2" below .WebFormatting = xlWebFormattingNone

「你將不得不使用試驗和錯誤與「2」找到你想要搶

來源

2014-04-30 15:29:21

提取數據 - 使用VBA

回答

相關問題