怎样把一个电子表格中的数据进行筛选后分别放在不同的子表中?
发布网友
发布时间：2022-05-18 16:39
我来回答
共1个回答
热心网友
时间：2023-10-20 02:03
1 把 电子表格 导出为 DBF 2 利用forpro 的“COPY TO 1.xlsfor LEFT(时段,10)="2011-06-01"TYPE xls”命令 生成电子表格3 利用下面的EXCEL VBA 将同一个目录下的所有电子表格复制到一个电子表格的多个子表中功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In .SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem) '复制工作表 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "") '关闭被合并工作簿 tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = NothingEnd Sub
