模拟手工录入

MCXY

excel中有大量的数据，读取到网页中一个个录入，网页中只能选中一行，复制完成一行后，当程序发送完TAB键，会跳到地址栏，而不是一下行。下一行好你只能鼠标来选中，以下代码（来自张立良老师）不能实现，请求帮助，我的QQ：1065886598，邮箱：gogozb@163.com。
Sub x()
  Dim H As Integer, L As Integer
  H = Selection.Rows.Count
  L = Selection.Columns.Count


  If MsgBox("当前选择区域，共" + CStr(H) + "行，" + CStr(L) + "列。" + vbCrLf + vbCrLf + "(必须确保当前选定区域与待录入行列数完全一致！！！）" + "确定现在录入选定区域的数据吗？", vbQuestion + vbYesNo, "提示") = vbNo Then Exit Sub
  AppActivate "Windows Internet Explorer"   '后面这个字符串非常关键！！！
  Application.Wait 5
  Dim R As Range
  For Each R In Selection
      SendKeys CStr(R.Value)
      SendKeys "{TAB}"
  Next R
  SendKeys "{NUMLOCK}"
End Sub

neckya

具体分折网页，然后填空吧