2022-04-22一个类别做一个工作簿(Book)，在工作簿内以月份分为多个工作表(Sheet)

这几天的主要工作是导出商品数据并汇总。

工作要求：

将某一大类商品的销售数据从数据库中按月导出，做成Excel表。

Excel格式：

一个类别做一个工作簿(Book)，在工作簿内以月份分为多个工作表(Sheet)。

工作过程：

整理好一个分类后，考虑是否可通过office的VBA实现。

1 打开一个空白工作簿

2 启动工作簿里的宏：vba

3.复制VBA的代码，之后运行

4.选择要合并的工作簿，即可

代码：

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)

tempwb.Close SaveChanges:=False

i = i + 1

Next vrtSelectedItem

End If

End With

Set fd = Nothing

End Sub