Excel表格内容批量填写到网页并提交，用《网页自动操作通用工具》是如何实现的？

1、如下图所示，我们在TXT文本内有一些数据内容，想要把他们转到excel表格中。接下来我们先打开excel表格。

2、在表格上面的菜单工具栏中有一项数据选项，我们点击选择它，在数据选项下有一项是获取外部数据选项卡，如下图所示。

3、在获取外部数据选项卡下，其中就有一项是来自文本选项，我们点击选择，接下来就会蹦出来一个文本路径选择的对话框。

4、在对话框中我们点击选择我们要导入数据的文本，点击右下角的导入按钮，就会蹦出来一个文本导入的一个向导。

5、根据向导对话框指示，我们点击右下角的一个下一步按钮，即分隔符的选择，即数据分割为两个单元格的分隔符。

6、在这里是想要把前面的人名和后面的产品名字分割为两个单元格，故分隔符就选择为文本中显示的即空格，如下图所示，左下角还有一个数据预览，如果没问题就点击下一步。

7、在最后一步中，可以根据你自己的数据来进行数据格式的选择，这个根据实际情况来进行选择操作就可以了，设置完成就点击右下角的完成按钮。

8、最后再选择一下数据放置的位置。完成效果图。

代码如下：

Dim wb As Workbook, sh As Worksheet, pT As String, wb2 As Workbook, t

t = Timer

'检测是否有无关工作簿被打开

If WorkbooksCount > 1 Then

MsgBox "关闭打开的其他工作簿"

Exit Sub

End If

'指定文件所在文件夹

With ApplicationFileDialog(msoFileDialogFolderPicker)

  Show

  If SelectedItemsCount = 0 Then Exit Sub    '如果按了取消或X关闭了对话框，则直接退出

  pT = SelectedItems(1)

End With

ApplicationScreenUpdating = False  '关闭屏幕刷新

ApplicationDisplayAlerts = False  '关闭对话框

'创建一个新工作表，名为Newxls

Set wb = WorkbooksAdd

shJS = wbWorksheetsCount

fn = Dir(pT & "\xls")

  While fn <> ""

    If fn = wbName Then GoTo gg

    i = i + 1

      If i > shJS Then

        Set sh = wbWorksheetsAdd(After:=wbWorksheets(wbWorksheetsCount))

      End If

      Set wb2 = WorkbooksOpen(fn, ReadOnly = True)

      wb2Worksheets(1)CellsCopy wbWorksheets(i)Cells

      wbWorksheets(i)Name = Left(fn, Len(fn) - 4)

      wb2Close

gg:

    fn = Dir

Wend

wbSaveAs pT & "\newxls"

wbClose

ApplicationScreenUpdating = True   '打开屏幕刷新

ApplicationDisplayAlerts = True    '打开对话框

MsgBox "共用时" & Timer - t & "秒。生成新文件newxls"

End Sub

1、首先，在软件中打开要录入数据的网页，手工录入网页表单中的填写项目。

2、然后点击菜单》系统》新建配置文件，建立一个填表任务的配置文件。

3、点击软件左下角+号（新建规则）按钮，将分析当前网页中要填写的内容，生成一条填表规则。

4、处理好填写的信息后，点参数面板中的数据文件生成按钮，生成一个excel文件，把自己的数据按列粘贴到这个文件中，然后点ctrl+s保存。

5、进入点击设置面板，点击右下角“获取控件”按钮，再用鼠标右键点击网页上的“提交”按钮。

6、设置完成，点击软件左下角运行按钮，就能看到程序自动读取excel的数据，把记录逐条录入到网页并提交。