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

自动生成数据步骤:

首先，需要在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提取文件夹中的所有文件名尺雀携称的方法主要有以下两个：\x0d\x0a1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入\x0d\x0adir>1.txt\x0d\x0a保存退出\x0d\x0a将刚才的.TXT（wenjian.txt）更名为.bat文件陵伏（wenjian.bat）\x0d\x0a双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件\x0d\x0a打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！\x0d\x0a2、VBA（2003版）\x0d\x0a在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码\x0d\x0aSub Test()\x0d\x0aDim i As Integer\x0d\x0aDim strPath As String\x0d\x0astrPath = ThisWorkbook.Path\x0d\x0aWith Application.FileSearch\x0d\x0a .LookIn = strPath\x0d\x0a .SearchSubFolders = True\x0d\x0a .Filename = "*.*"\x0d\x0a If .Execute >0 Then\x0d\x0a For i = 1 To .FoundFiles.Count\x0d\x0a Range("A" &i) = .FoundFiles(i)\x0d\x0a Next i\x0d\x0a End If\x0d\x0aEnd With\x0d\x0aEnd Sub\x0d\x0a回到Excel表岁衡格中，工具——宏——宏——选择Sheet1.Test——执行\x0d\x0a\x0d\x0a方法一简单的 *** 作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

写了一小部分，可以获取文件夹下所悔运哪有文件悄滑名称，路径，大小，创建日期，不知道能否对你有帮助。

1.添加VBA代码，选择新碧码插入的模块后，插入以下代码

Sub getpath()

Range("A2:C1000").ClearContents '清空A2：C1000列

On Error Resume Next

Dim shell As Variant

Set shell = CreateObject("Shell.Application")

Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址

Set shell = Nothing

If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序

Exit Sub

Else

gg = filePath.Items.Item.Path

End If

Set obj = CreateObject("Scripting.FileSystemObject") '定义变量

Set fld = obj.getfolder(gg)'获取路径

For Each ff In fld.Files '遍历文件夹里文件

m = m + 1

Cells(m + 1, 1) = ff.Name

Cells(m + 1, 2) = ff.Path

Cells(m + 1, 3) = ff.Size

Cells(m + 1, 4) = ff.DateCreated

Next

End Sub

2.运行宏（alt+F8），宏的名称为getpath

---