作者:乔山办公网日期:
返回目录:excel表格制作
新建一个汇百总表,将汇总表与度其他问excel文件放在同一文件夹答中,在汇总表版中写权宏:
Sub 汇总()
a = Dir(ThisWorkbook.Path & "\*.xls")
On Error Resume Next
For i = 1 To 100
If a <> ThisWorkbook.Name Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & a
Workbooks(a).Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Workbooks(a).Close savechanges:=False
End If
a = Dir
Next i
End Sub
模块上百右键菜单——导出文件
新Excel文件中,打开VBA编辑器,导入文件,找到刚导出的文件导入即可。
如果需要度执行这样检查的文件不是特别多的话,还是逐一导入模块比较合适;如果特别多的话,可以考虑专门制作一个模板文件(.xlt),在其中加上你问的宏,然后你答的这些文件就使用这个专门的模板,其他文件不会受影响的。
Excel的强大优势还在于它提版供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言,功能强大,简便易用。VBA是它的一个子权集,可以广泛地应用于Microsoft公司开发的各种软件中,例如Word、Excel、Access等。