Question

关于VBA的，能不能用宏创建一个EXCEL工作表，跪求源代码？详细见问题补充。

名为“销售台账”的EXCEL工作薄，上面有名称、销售日期、数量的条件，怎样根据此数据库创建一个名为“业绩汇总”的工作薄，每个工作表中都是相同日期内销售的产品名称、数量，有几天就在“业绩汇总”内创建几个工作表，并以时间命名工作表。谢谢！！！

Answer 1

Sub 业绩此拿悉汇总()
Dim wkb As Workbook
Dim sht As Worksheet
Dim d As Integer
Set wkb = Workbooks.Add
d = Day(Now)
For i = 1 To d
Set sht = wkb.Sheets.Add(Before:=Sheets(i))
sht.Name = i
Next i
wkb.SaveAs ThisWorkbook.Path & "森乎敏激\业绩汇总.xls"
End Sub

追问

勉强可以，谢谢

Answer 2

Workbooks.Add ‘ 创蚂扮雀建工作簿
ActiveWorkbook.SaveAs Filename:= _
"C:\"缺答 & "业绩闷早汇总" & Date & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False ’另存工作簿 在"c:/业绩汇总日期.xls"

Answer 3

数据透视表应该能搞的定吧。