[已解决]工作薄里的工作表如何能实现每月保存的指定位置？

htcaiwuke

工作薄里的工作表如何能实现每月保存的指定位置？

例如：我有一个工作簿里面有5个工作表，其中一个工作表我每个月保存一次，如何能实现每个月都保存在一个指定的文件夹里，并且每个月保存的名字不一样。如：1月就保存为1月XX表；2月就保存为2月XX表。用VBA实现。

请高手帮忙！

[此贴子已经被作者于2010-3-22 8:35:21编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2010-3-22 09:14

假设把工作表名为sheet2另存到D:\

 
Sub Macro1()

    Dim mypath As String

    '''''''''''这部分，因你的情况不具体，所以需修改
    
    mypath = "d:\"
    mypath = mypath & Month(Date) & "月XX表.xls"
    Sheets("Sheet2").Copy
    
    '''''''''''''''''''''''''''''''''''''''''''''''
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=mypath, FileFormat:=xlExcel8
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
    
End Sub

[em09]

跳转到最佳答案楼层

LDPSCB

学习学习

fjmxwrs

从哪里来的数据？

bbwsj

需要用VBA编程

htcaiwuke

顶一下，期待结果。

爱疯

假设把工作表名为sheet2另存到D:\

 
Sub Macro1()

    Dim mypath As String

    '''''''''''这部分，因你的情况不具体，所以需修改
    
    mypath = "d:\"
    mypath = mypath & Month(Date) & "月XX表.xls"
    Sheets("Sheet2").Copy
    
    '''''''''''''''''''''''''''''''''''''''''''''''
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=mypath, FileFormat:=xlExcel8
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
    
End Sub

[em09]