将数据从一个excel工作簿复制到另一个

Question

我正在尝试编写一个代码，该代码使用从我的输入工作簿中获取数据的按钮单击，然后将其粘贴到我的输出工作簿中。我无法弄清楚的问题是，我的输入工作簿名称按日期更改，但它们都处于相同的命名约定。我想要代码拉取最新的日期输入文件，然后将其粘贴到输出工作簿中。我不知道从哪里开始..任何帮助都很感激。

谢谢

Answer 1

我同意肯：你问一个单一的问题太多。另外，“从我的输入工作簿获取数据，然后将其粘贴到我的输出工作簿”可能意味着什么。但是，这是我用来解决您的第一部分需求的功能。这些参数是文件夹名称和文件模板。它返回与模板匹配的文件夹中最新文件的名称。

Function NewestFileName(ByVal Path As String, ByVal FileTemplate As String) As String 

    ' * Finds, and returns the name of, the newest file in folder Path with a name 
    ' that matches FileTemplate. Returns "" if no matching file is found. 

    ' * Path   Folder in which to search for files 
    ' * FileTemplate File name specification of the file required. For example: 
    '      MyFile*.xls 

    ' 25Jul11 Copied from RiskRegisterControl V43.xls. 
    ' 22Nov11 Name changed from NewestFile to NewestFileName to match NextFileName. 
    ' 20Apr12 Minor improvements 

    Dim FileDateCrnt    As Date 
    Dim FileDateNewest   As Date 
    Dim FileNameCrnt    As String 
    Dim FileNameNewest   As String 

    If Right(Path, 1) <> "\" Then 
    Path = Path & "\" 
    End If 

    FileNameCrnt = Dir$(Path & FileTemplate) 
    If FileNameCrnt = "" Then 
    NewestFileName = "" 
    Exit Function 
    End If 

    FileNameNewest = FileNameCrnt 
    FileDateNewest = FileDateTime(Path & FileNameCrnt) 
    Do While True 
    FileNameCrnt = Dir$ 
    If FileNameCrnt = "" Then Exit Do 
    FileDateCrnt = FileDateTime(Path & FileNameCrnt) 
    If FileDateCrnt > FileDateNewest Then 
     FileNameNewest = FileNameCrnt 
     FileDateNewest = FileDateCrnt 
    End If 
    Loop 

    NewestFileName = FileNameNewest 

End Function