Office中国论坛/Access中国论坛

标题: [求助][讨论]请问是否可以这样自动复制？ [打印本页]

作者: secowu 时间: 2005-6-23 20:17
标题: [求助][讨论]请问是否可以这样自动复制？
本按钮目的：是从当前目录下的名称包含有当前系统日期格式"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

详细请看附件文件[attach]11434[/attach]

作者: secowu 时间: 2005-6-23 23:28
mypath＝thisworkbook.path 这样应该对了吧

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)