如何根据单元格中的输入从网络中提取数据

因此，我期望做的是根据另一个单元格中的信息从网站中提取数据。举例来说，我想从airnav.com获取有关某些机场的信息，例如控制塔频率。为了找到频率，你去机场然后输入机场代码（例如：华盛顿兰顿机场的“KRNT”）。如何根据单元格中的输入从网络中提取数据

示例：A1单元将“KRNT”放入其中，然后将机场频率自动拉入单元格B2中。

那么，我将如何获得excel来查看单元格并搜索该特定机场代码的信息并将其拉入另一个单元格？我假设这是可能的，但我不完全确定。

请注意，我非常精通excel，但绝不是高级用户。

来源

2016-11-17 abite

更新：

广东话你只需要2张。

将一列A作为输入单元，并在第2页A栏中填写不同的机场代码，B列为拉取外部Web数据的公式。

然后，在片材1放置这个公式塔A的输入匹配片1和2以及在列B片2片1的B列导入数据的B列..

表1 - 柱A（输入栏）柱B（下面代替式）
表2 - 柱A（机场代码）柱B（数据拉出用于所述机场）

=VLOOKUP(Sheet1!A2,Sheet2!A:B,2)

来源

2016-11-17 05:57:01

我明白如何做到这一点，但我想知道是否有办法让excel查看一个单元格并使用它来搜索正确的数据。因此，如果我决定更改初始单元格中的数据，则会自动更改第二个单元格中的数据。 – abite

@abite查看更新 –

我可以，但这将涉及手动从千万机场提取数据。哪种失败了自动化的目的：P我很感激你的帮助！ – abite

这是做你想做的。
它不会变得漂亮，但这就是excel在“从网上获取”时的工作原理。

您需要打开VBA编辑器并在项目窗口中点击Sheet1。
然后粘贴下面的代码。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Target.Worksheet.Range("A1")) Is Nothing Then 

------------------------------------ 

     With ActiveSheet.QueryTables.Add(Connection:= _ 
      "URL;http://airnav.com/airport/" & Range("A1").Value, Destination:=Range("$B$1")) ' <--- This line must be as I wrote it. 
      .FieldNames = True 
      .RowNumbers = False 
      .FillAdjacentFormulas = False 
      .PreserveFormatting = False 
      .RefreshOnFileOpen = False 
      .BackgroundQuery = True 
      .RefreshStyle = xlOverwriteCells '<--- And this one. 
      .SavePassword = False 
      .SaveData = True 
      .AdjustColumnWidth = True 
      .RefreshPeriod = 0 
      .WebSelectionType = xlSpecifiedTables 
      .WebFormatting = xlWebFormattingNone 
      .WebTables = "6,7,8,9,32,33,34,35,36,37" 
      .WebPreFormattedTextToColumns = True 
      .WebConsecutiveDelimitersAsOne = True 
      .WebSingleBlockTextImport = False 
      .WebDisableDateRecognition = False 
      .WebDisableRedirections = False 
      .Refresh BackgroundQuery:=False 
     End With 
----------------------------------   
    End If 
End Sub

将该文件另存为宏活动工作簿，然后在A1中输入机场并按Enter键。

就像我说的......这不是漂亮...

我已上载这里的文件：https://expirebox.com/download/dfbae2fbc4410bbaf64d068443ac84bf.html
我从来没有使用本网站之前，不知道它是如何工作的。

来源

2016-11-17 06:55:16 Andreas

这真是太棒了！有没有偶然的方式来指定它所抽取的信息？我意识到这可能会变得复杂，但我希望只是拉动网页的某些部分，如控制塔频率和一个或两个其他部分...... – abite

是的......但老实说，我认为你可以做得比我更好。我不知道你需要什么。 Excel工具栏中有开发人员选项卡吗？如果没有，谷歌如何启用它。然后记录你“从网上获取”的宏，并将该代码复制粘贴到我上面的代码中。请注意，有两行代码需要保持我写的方式。我将在上面的答案中标记它们。 – Andreas

太棒了，非常感谢你:) – abite

如何根据单元格中的输入从网络中提取数据

回答

相关问题