excel如何用宏自动抓取数据？

工具／原料

机械革命S3 Pro

Windows10

Excel2019

1、点击视图

点击菜单栏上“视图－宏”，下拉选择录制宏。

2、输入宏名

在名字输入框内输入宏的名称。

3、录制步骤

在表格中B1单元格内输入公式“＝A1”。

4、执行宏

点击菜单栏上宏，打开对话框，点击执行。

5、抓取数据

单元格B2抓取到A2单元格内数据。

自动生成数据步骤:

首先，需要在excel中添加加载项--数据分析库，然后就可以进行数据自动生成了，以专业的术语叫做“随机数发生器”。依次点击：excel选项-加载项-用VBA也可以根据数据源批量填充模板生成新表一个简单情况的示例：示例里的代码：Sub根据数据源批量填充。

这个宏的作用是：把当前文件夹下每一个excel文件的每一行（共8行）复制到总表的每一个sheet工作表中去，即把一个文件里的那1张表的8行复制转换成另一个文件的8张表里的8行，主要用于汇总工作。

如何将excel表里的数据提取到word文档里的解决方法如下：

1、复制法。

即将原来的数据直接复制后，在word中进行粘贴，这样数据就直接导入到word文档中了。

2、邮件合并法。

在word中启用邮件合并，按向导的过程分别制作好需要插入的需要，数据源，对应关系，最后执行合并就可以了。

3、程序法。

在word中插入合并域（如果是有规律的表格，可以不用这一步），然后编写vba程序，从excel文件中读取数据，然后写入到word中指定的位置。

上面三个方法中，方法1简单快捷，但是每次都需要 *** 作，如果数据不是连续的块，需要复制粘贴多次，相对来说麻烦一点。

方法2，一次设置可以多次使用，但不够灵活。

方法3方便可以多次重复使用，但需要有一定的编程基础，可以根据工作的实际选择一个最适合的完成这个工作。

excel采集互联网信息

用EXCEL采集网页信息，其实并不难，需要开启宏功能，用VBA编写采集代码，就可以将信息采集到表格里了。

Function ReadWeb(strURL)

以下是关键代码：编写一个采集函数

 ' MsgBox strURL

  'Range("H2").Value = strURL

  t = Timer '开始计时

  tt = t

  nm = Left(Range("J3").Value, 2) &Range("J4").Value

  url2 = "https://**.com.cn/**.php?symbol=" &nm 

  Set objWeb = CreateObject("MSXML2.XMLHTTP") 'Microsoft.XMLHTTP

  objWeb.Open "Get", strURL, False, "", ""

  objWeb.send

  arrBytes = CStr(objWeb.responseBody) 

  mytime2 = mytime2 + Timer - tt '计时 

   

  strReturn = "" '以下将二进制数据流转换为中文文本

  For i = 1 To LenB(arrBytes)

      Chr1 = AscB(MidB(arrBytes, i, 1))

   

      If Chr1 <&H80 Then

          strReturn = strReturn &Chr(Chr1)

          Else

          Chr2 = AscB(MidB(arrBytes, i + 1, 1))

          strReturn = strReturn &Chr(CLng(Chr1) * &H100 + CInt(Chr2))

          i = i + 1

      End If

  Next i

     ReadWeb = strReturn

End Function

---