2016-10-27 24 views
0

Excel VBA /マクロで新しくなったWebページの特定のテーブル部分をExcelで抽出しますか?

ページ全体ではなく、特定の部分を取得する必要があります。 ベローズコードは完全なページで動作しますが、ページのすべての部分は必要ありません。 「当社のその他の情報は、」私が話していますということですページの下部にあるよう

Sub GrabOutStandingTable() 

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "URL;http://dsebd.org/displayCompany.php?name=ABBANK", Destination:=Range(_ 
    "$A$1")) 
    .CommandType = 0 
    .Name = "displayCompany.php?name=ABBANK" 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .WebSelectionType = xlSpecifiedTables 
    .WebFormatting = xlWebFormattingNone 
    .WebTables = """company""" 
    .WebPreFormattedTextToColumns = True 
    .WebConsecutiveDelimitersAsOne = True 
    .WebSingleBlockTextImport = False 
    .WebDisableDateRecognition = False 
    .WebDisableRedirections = False 
    .Refresh BackgroundQuery:=False 
End With 
Sheets.Add After:=ActiveSheet 
End Sub 

テーブル部分が向かいました。マクロはこの部分を抽出する必要があります。

答えて

0

古いデータ>ウェブからは、ウェブサイトの構造上の理由からこれが処理されません。必要なデータは、他のテーブルに深くネストされ、いくつかのテーブルで構成されています。

代わりに電源クエリを使用することをお勧めします(VBAは必要ありません)。ここではXL2013でPower Queryを使用する方法を示します。 Excelのリボンを使用し、POWER QUERYタブを見つけます。

  1. 使用メニューオプション:Webダイアログが表示さからWeb
  2. から電源QUERY>。あなたのURLを入力してください。
  3. OKをクリックします。
  4. 必要なデータは、表30にあります。検索してクリックし、[ロード]をクリックします。

私たちはすでにXL2016(オフィス365)を持っていれば、Power Queryを既に持っています。私たちがXL2010またはXL2013を持っていれば、https://www.microsoft.com/en-us/download/details.aspx?id=39379&CorrelationId=1441491e-917e-43de-8d6a-21f98287c3c2

+0

他の方法でダウンロードできます。私は手動で行うと、300 +ページを参照して、同じ構造化データ(テーブル)を300 +企業プロフィール 手順も自動化する必要があります。 url "name = ABBANK"これはリンクの唯一の変数です。文字列 "ABBANK"を別のものに変更するだけです。それは別の会社のプロフィールをロードする必要があります 実際に私は300 +会社のプロファイルから同じ構造化データを収集する必要があります。それで、どうすればいい? – user176705

+0

別のことは、今までPowerQueryツールをインストールできません。それはInternetExplorer 9以上が必要です、私のwin7システムは "EIE11_EN-US_WOL_WIN7.EXE"をサポートしていません:( – user176705

+0

あなたが必要としているものを正確に持っています。 –

関連する問題