Question

怎么把excel表中的数据自动输入到网页中

Answer 1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim j As Integer
Dim ex As Object
Dim wb As Object
Dim sh As Object
Dim objDoc
Dim endi As Integer
Dim k As Integer
Private i As Integer
Private si As String
Private Sub Form_Load()
WebBrowser1.Width = Screen.Width
WebBrowser1.Height = Screen.Height - 500
i = 1
Set ex = CreateObject("Excel.Application")

Set wb = ex.Workbooks.Open(App.Path & "\1.xls")
Set sh = wb.Sheets(4)
If sh.Cells(1, 1) <> 4 Then
wb.Close True
ex.Quit
Set sh = Nothing
Set wb = Nothing
Set ex = Nothing
Unload Me
End
Else:

Set sh = wb.Sheets(1)
endi = sh.UsedRange.Rows.Count
WebBrowser1.Navigate "http://148.36.20.220:86/"
End If
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = "http://148.36.20.220:86/" Then

If i > endi Then

wb.Close True
ex.Quit
Set sh = Nothing
Set wb = Nothing

Set ex = Nothing
Unload Me
End
Else:
WebBrowser1.Document.Forms(0).TextBox1.Value = sh.Cells(i, 1)
WebBrowser1.Document.Forms(0).TextBox2.Value = sh.Cells(i, 2)
j = (Int(Rnd * 10) + 3) * 1000
Sleep j
DoEvents
WebBrowser1.Document.Forms(0).Button1.Click
i = i + 1
End If
End If

If WebBrowser1.LocationURL = "http://148.36.20.220:86/qd.aspx" Then
Dim s As Variant
s = pDisp.Document.documentElement.outerHTML

Answer 2

用按键精灵2014操作。