[已解决]关于数据的导出的问题

mick456

问题已在“数据库”工作薄里的进行了描述，请朋友们看看我想要效果可以实现吗？谢谢朋友们

最佳答案

月排行榜 / 总排行榜

QLZ0602

2014-11-10 12:52

不是很明白，可QQ联系695982239

跳转到最佳答案楼层

QLZ0602

不是很明白，可QQ联系695982239

mick456

难道的我的问题没有表述清楚吗

mick456

感谢2楼的QLZ0602，在QQ里解决我的问题
Sub Macro1()
  Dim m
   Application.DisplayAlerts = False
  
    Sheets("付款花名册").Select
    Workbooks.Open Filename:=ActiveWorkbook.Path & "\付款花名册汇总表.xls"
    m = Sheets.Count
    Workbooks("数据库.xls").Activate
    Sheets("付款花名册").Copy After:=Workbooks("付款花名册汇总表.xls").Sheets(m)
    Sheets("付款花名册").Name = "第" & Sheets.Count & "期"
    ActiveSheet.Shapes("Button 1").Select
    Selection.Cut
    Workbooks("付款花名册汇总表.xls").Close True
   
    Application.DisplayAlerts = True
End Sub