Копирование данных из одной книги 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