[求助][讨论]请问是否可以这样自动复制？

secowu

本按钮目的：是从当前目录下的名称包含有当前系统日期格式"YYYY-MM报表"的XLS文件中复制二个工作表过来，其中一个工作的名字是当前日期为＝day(now())-1的。





1.如何使程序自动判断当前的路径，并能够找到需要复制的报表来源2.如何让复制的工作表是外部名称的表，即真正想要的表3.谢谢



Private Sub CommandButton1_Click()

Dim a, L As Integer

Dim mypath As String

Dim myfile As String

a = Day(Now()) - 1 '定义出需要复制的工作表名

L = Format(Now(), YYYY - MM) '求出系统当前的日期格式，为下面的寻找报表名字作准备

mypath = current.path ''获得当前文件存放的位置

myfile = L报表.xls '将变量传递给文件名，以作复制时用



   

    Workbooks.Open Filename:=myfile

    Sheets(Array(a, "黄小姐")).Select

    Sheets(a).Activate

    Sheets(Array(a, "黄小姐")).Copy Before:=Workbooks("\新建报表.xls").Sheets(1)

    Windows(myfile).Activate

    ActiveWindow.Close

    ActiveWorkbook.Save

End Sub





详细请看附件文件

secowu

mypath＝thisworkbook.path 这样应该对了吧