excel每天从当天的表中提取数据到一个新表

来源:百度知道 编辑:UC知道 时间:2024/05/30 05:24:46
每天产生15~20份新表,第二天要从这些表中提取一些数据汇总到一个新表,请问有没有一个宏可以自动从这些表中提取固定位置的数据到新表中?

当然可以,可是何为固定位置的数据,题目说得太笼统,没法具体定制,你可以参考一下下面的,这个宏可以手动选择源数据的文件夹和汇总数据的存放目录,然后把源数据表的所有数据合并在一个表里

你新建个文件,插入个模块,粘贴如下代码,然后保存好.
执行后在一个新表格中有全部数据

Sub 合并数据()

'获取本文件名

Dim wb As Workbook
Set wb = ActiveWorkbook

Dim obFile As String
obFile = wb.Name
Set wb = Nothing

'选择文件夹

Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Dim myfd

selectFolder:

MsgBox "请选择工作表目录"
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

myfd = vrtSelectedItem
Next vrtSelectedItem

Else

MsgBox "请选择一个存储文件夹"
GoTo selectFolder
End If
End With
ChDir myfd

'