如何根据所选单元格@VBA插入一组单元格中的特定数据

Question

我在编码方面真的很业余，这是我第一次尝试，我想创建一个宏，根据所选单元格(例如x A1(将打开，即从B列和C列插入登录信息并进入站点。经过一些搜索，我已经完成了大部分，但我无法指定我想使用的行。 我需要宏分别从登录名和密码的列中获取信息，具体取决于我选择的单元格(例如，我选择 A1 宏从 B1 和 C1 插入数据，或者我选择 A2 它来自 B2、C2 等(。 这是我到目前为止设法编写的代码

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub Test()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "my site"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
HTMLDoc.all.UserName.Value = Range("A1")
HTMLDoc.all.Password.Value = Range("B1")
Application.SendKeys (ENTER)
End Sub

谢谢你的时间。

Answer 1

你可以这样做：

With Selection.Cells(1).EntireRow
HTMLDoc.all.UserName.Value = .Cells(2).value
HTMLDoc.all.Password.Value = .Cells(3).value
End With

Selection.Cells(1)是管理用户可能选择了多个单元格的情况。 不过，在继续之前检查一下可能更安全：如果Selection.Cells.Count > 1您可以弹出一个消息框并退出。

例如：

If TypeName(Selection) <> "Range" Then 
Msgbox "Select a cell first!"
Exit Sub
End if
If Selection.Rows.Count > 1 then
MsgBox "Select a single row!"
Exit sub
End If