Excel VBA(エクセル マクロ) 外部データの取り込みのマクロ化　Webデータ(ホームページファイル)の取得。 Excelツールで外部データの取り込みがある。 VBAでマクロ化して、Excelにファイル名を変更して読み込むようにする。

QueryTablesを使う

　　With Sheets("取り込みデータ").QueryTables.Add(Connection:="URL;" & url, Destination:=Sheets("取り込みデータ").Range("A1"))
　　　　.Name = "test"
　　　　.FieldNames = True
　　　　.RowNumbers = False
　　　　.Refresh BackgroundQuery:=False
　　　　.RefreshPeriod = 0
　　　　.RefreshOnFileOpen = False
　　　　.PreserveFormatting = True
　　　　.AdjustColumnWidth = True
　　　　.FillAdjacentFormulas = False
　　　　.RefreshStyle = xlInsertEntireRows
　　　　.SavePassword = False
　　　　.SaveData = True
　　　　.WebSelectionType = xlAllTables
　　　　.WebFormatting = xlWebFormattingNone
　　　　.WebPreFormattedTextToColumns = True
　　　　.WebConsecutiveDelimitersAsOne = True
　　　　.WebSingleBlockTextImport = False
　　　　.WebDisableDateRecognition = False
　　　　.WebDisableRedirections = True
　　　　.Refresh
　　　　.Parent.Names(.Name).Delete
　　　　.Delete
　　End With

ネタ元