VBA 将工作表上的跟踪号链接到网站

Question

我没有接受过正式的 VBA 培训。我使用宏记录器并使用来自互联网的输入（主要是 *）来编辑代码，以完成我的项目。我生成了一份每日交货报告，其中有一列用于跟踪每批货物的编号。我在承运人网站上手动粘贴跟踪号，单击跟踪，然后从网页复制链接，返回电子表格并创建指向结果的超链接。我为该列上的所有跟踪号执行这些操作，以便报告的收件人只需单击链接并被带到 Internet 上的跟踪信息。我想通过 VBA 自动执行此任务。我从互联网上复制了下面的代码，但我不知道从哪里开始。非常感谢您的帮助，因为这将为我节省大量时间。提前致谢！

Sub Get_Link_Tracking()
    Dim internet As Object
    Dim internetdata As Object
    Dim div_result As Object
    Dim header_links As Object
    Dim link As Object
    Dim URL As String

Set internet = CreateObject("InternetExplorer.Application")
    internet.Visible = True

URL = "https://www.purolator.com/en/shipping/tracker"
    internet.Navigate URL

'Loop through cells in column A, copy tracking number, paste on purolator website and search, create hyperlink from tracking no.

End Sub

Answer 1

只需将 URL 更改为您已经（手动）输入跟踪编号并单击跟踪时显示的 URL

是这样的

https://www.purolator.com/en/shipping/tracker?pins=202100754321

202100754321 应该是跟踪号

以下是针对此更改修改您的程序 - 已更改单行 - 应该很容易让您从工作表中获取多个跟踪号码到此程序中

Sub Get_Link_Tracking()
    Dim internet As Object
    Dim internetdata As Object
    Dim div_result As Object
    Dim header_links As Object
    Dim link As Object
    Dim URL As String

    Set internet = CreateObject("InternetExplorer.Application")
    internet.Visible = True
    
    URL = "https://www.purolator.com/en/shipping/tracker?pins=202100754321"
    internet.Navigate URL

'Loop through cells in column A, copy tracking number, paste on purolator website and search, create hyperlink from tracking no.

End Sub

所以使用它作为 URL（或直接作为超链接）