vba把网页数据导入到Excel中

Admin | 2012-11-21 10:07:36 | 被阅次数 | 11544

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　以下的VBA代码，其功能是将网页导入到Excel里面，下面是相关的代码。

　　MyPath = "D:\MyPage.html"
　　Workbooks.Add
　　With ActiveSheet.QueryTables.Add(Connection:="FINDER;" & MyPath, Destination:=Range("A1"))
　　        .Name = "Top"
　　        .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 = "1"
     　　   .WebPreFormattedTextToColumns = True
     　　   .WebConsecutiveDelimitersAsOne = True
    　　    .WebSingleBlockTextImport = False
     　　   .WebDisableDateRecognition = False
     　　   .WebDisableRedirections = False
     　　   .Refresh BackgroundQuery:=False
   　　 End With

　　下面的代码是导入指定位置的网页数据

　　   With ActiveSheet.QueryTables.Add(Connection:= _
　　        "FINDER;file:///E:/MyPage.htm", Destination:=Range("A1"))
　　        .Name = "Top"
　　        .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