三个月报表如何合并成季度报表?

2017-11-08 15:04 来源:会计学堂
1430
作为一名会计人士,我们市场需要用到Excel,对此,本篇文章为您讲述Excel的妙用,三个月报表合并成季度报表,欢迎您的阅读,精彩内容不容错过。

三个月报表如何合并成季度报表?

:三个月报表合并成季度报表,Excel将可以帮我们完成这一工作任务,如下:

1、从实验仪器拷贝的大量零散文件需要整合(先用仪器或自带软件转换为excel可读格式)

2、工作过程中将大家的独立工作簿,合并为一个工作簿上交(用下一个代码更合适)

3、需要把工作簿中所有的工作表都要合并进来

Sub 合并工作薄()

Dim FilesToOpen

Dim x As Integer

On Error GoTo ErrHandler

Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _

(FileFilter:=“MicroSoft Excel文件(*.xlsx), *.xlsx”, _

MultiSelect:=True, Title:=“要合并的文件”) ‘选择要合并的文件,上一行两个.xlsx可以改为目标文件扩展名

If TypeName(FilesToOpen) = “Boolean” Then

MsgBox “没有选中文件”

GoTo ExitHandler

End If ’防止未选中文件

x = 1

While x 《= UBound(FilesToOpen)

Workbooks.Open Filename:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

x = x + 1

Wend ‘循环移动工作表

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

ErrHandler:

MsgBox Err.Description ’描述出现问题

Resume ExitHandler

End Sub

对于三个月报表合并成季度报表的方法,相信您看完本篇文章应该也有所了解了。如果你想系统的学习会计专业的知识点,会计学堂更是不容错过,精彩内容等待您的阅读。

相关文章
    相关问题