1

我正在尝试创建一个在选择特定单元格后执行以下操作的订单跟踪宏：

  1. 打开订单跟踪网页，例如 FedEx 货运跟踪
  2. 将我的 Excel 电子表格中选定单元格的值输入到网页上的相应搜索框中
  3. 点击提交

我正在使用在另一个论坛上找到的示例代码在 Excel 2010 中工作。除了粘贴给定单元格的值之外，该代码完成了所有工作。我可以指定要输入的数值或特定的单元格值，但我需要一个通用宏，可以用于任何给定的单元格。

我尝试对活动单元格使用一些基本的复制粘贴功能。我设法选择并复制了活动单元格，但没有将其粘贴到搜索框中。

这是识别出问题部分的代码。

Dim IE As Object

Sub submitFeedback3()

    Application.ScreenUpdating = False

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "TrackingWebsite"

    Application.StatusBar = "Submitting"
    ' Wait while IE loading...
    While IE.Busy
        DoEvents
        ActiveCell.Select
        Selection.Copy
    Wend
    ' **********************************************************************
    delay 1
        IE.Document.getElementById("receipt").Click
    delay 1
        IE.Document.getElementById("receipt").Paste
    delay 2
        IE.Document.getElementById("submit").Click
    '**********************************************************************

End Sub

Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

当我尝试复制/粘贴代码时，我在 DoEvents 下使用了以下内容：

ActiveCell.Select
Selection.Copy
4

1 回答 1

1 
IE.Document.getElementById("appReceiptNum").Click 
delay 1
IE.Document.getElementById("appReceiptNum").Paste

为我工作，当然在不同的网站上。

如果它也对您有用，请确保投票并单击此答案旁边的复选标记！

于 2013-09-13T00:18:10.200 回答