VBA IE自动化 - 查找动态表的最后一行

时间:2016-05-02 18:38:37

标签: vba excel-vba internet-explorer excel

我正在研究一些代码,这些代码将从Excel获取信息并将信息传输到IE网站上的表格中。一直都很顺利。

我目前陷入困境,似乎无法找到任何可以提供帮助的信息。

网站上每位员工都有一张动态表格。点击"添加"按钮,创建一个空行,这是我想要传递信息的那一行。问题是创建的行最终是表中的最后一行。因此,在添加行时,它可以是数字1,数字35或其他任何内容。

有没有办法可以设置对动态IE表的最后一行的引用而不必知道数字,这样代码就可以适用于任何员工?

1 个答案:

答案 0 :(得分:0)

我认为你在谈论将列中的元素转换为数组。那是你要的吗?如果是这样,请尝试以下两个脚本中的一个。

Sub MakeArray()
   Dim arr As Variant

   With ActiveSheet
      arr = WorksheetFunction.Transpose(.Range(.[A1], .Cells(Rows.Count, "A").End(xlUp)))
   End With
End Sub


Sub MakeString()
   Dim s As String

   Const DELIMITER = ","

   With ActiveSheet
      s = Join(WorksheetFunction.Transpose(.Range(.[A1], .Cells(Rows.Count, "A").End(xlUp))), DELIMITER)
   End With
End Sub