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
'