Помогите перевести на VBA

[never_mind]

Люди, help me, жалкому юзеру :-)

У меня стоит задача:
есть рабочий файл Excel, в него - нужно из другого файла Excel на диске, уже с известным именем, с копировать со вкладки с известным заранее именем, некий диапазон данных.
ВОПРОС:
Какой командой (функцией) можно обратиться к стороннему файлу (по адресу) к нужной вкладке к нужному диапазону данных? Т.е. как будет выглядеть команда копирования из одного файла - в другой?

[Rom1k06]

Set Wb = Application.Workbooks.Open("Путь к файлу") - открыть указанный файл
Workbooks(Wb).Worksheet("Имя листа").Range("Диапозон").Copy - копировать диапозон из открытого файла
ThisWorkbook.Sheets(1).Range("A1"). Paste вставляет в твою книгу первый лист

[EducatedFool]

1) Укажите полный путь (это типа C:\Documents and Settings\Игорь\Рабочий стол\договор.xls) для обоих файлов
2) укажите, какой диапазон (например, E4:G66) с какого листа (надо знать имя листа, например, Лист1) надо копировать.
3) то же самое для диапазона, в который надо произвести вставку.

Так же надо знать, на момент копирования будет открыта только одна книга, или обе.

Можно и без копирования - вставить связь с другой книгой.

[never_mind]

Сообщение от EducatedFool

Можно и без копирования - вставить связь с другой книгой.

А подскажите, пожалуйста, как без копирования?

[never_mind]

Сообщение от Rom1k06

ThisWorkbook.Sheets(1).Range("A1"). Paste вставляет в твою книгу первый лист

У меня несколько файлов в обработке и все копирование загнанно в цикл. Если файлы будут перебираться, то при копировании в ячейку А1 ранее скопированные данные будут теряться да?

[EducatedFool]

как без копирования?

Ответ можно поискать здесь

У меня несколько файлов в обработке и все копирование загнанно в цикл.

Приведите здесь весь свой код.
Так будет намного проще.

Если файлы будут перебираться, то при копировании в ячейку А1 ранее скопированные данные будут теряться да?

Так зачем же копировать данные с разных книг в одну и ту же ячейку?
Неужто ячеек недостаточно?

[never_mind]

Помогите Пожалуйста! Зашиваюсь нимагу(
и с поиском у меня отношения не сложились. если бы я могла самостоятельно разобрать чужой код, я бы о помощи не просила)

Вы не могли бы посмотреть, то что у меня получилось и помочь продолжить? ибо в одиночку получается ну ооочень медленно.

Задача собственно такая: скопировать из кучи файлов определенный диапазон с определенного листа (может быть его определять через диалог?) и вставить в открытый файл.

Sub a1()
Dim path, files As String
path = InputBox("Enter path", "Path", CurDir)
files = Dir(path & "\" & "*.xls")
Dim massivFiles()
Do While files <> ""
x = x + 1
ReDim Preserve massivFiles(1, x)
massivFiles(1, x) = path + "\" + files
files = Dir()
Loop
If x = 0 Then
MsgBox ("Files are not found")
Exit Sub
Else

здесь по идее должен быть модуль про копирвоание из файлов. я не могу подобрать скрипт. знакома с ВБА первую неделю.

повторюсь: помогите спасите умираю.

[EducatedFool]

Может, подойдёт что-то вроде этого:

Sub КопированиеИзФайлов()
    Application.ScreenUpdating = False
    Dim WB As Workbook

    MyPath = InputBox("Enter path", "Path", CurDir)
    If Dir(MyPath, vbDirectory) = "" Then MsgBox "Такой папки не существует", vbCritical: Exit Sub
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

    Filename = Dir(MyPath & "*.xls")
    Dim coll As New Collection

    Do While Filename <> ""
        coll.Add MyPath & Filename
        Filename = Dir()
    Loop

    If coll.Count = 0 Then MsgBox "В выбранной папке не обнаружены файлы Excel", vbCritical: Exit Sub

    For Each file In coll
        Set WB = Workbooks.Open(file)
        If Not WB Is Nothing Then
            WB.Worksheets("Лист1").Range("a2:e5").Copy ThisWorkbook.Worksheets(1).Range("A1")
            wb.close false
        End If
    Next file
End Sub

[SAS888]

Если же для работы требуется указать несколько избранных файлов из папки, то можно, например, так:

Sub Main()
    
    Dim Wb As Workbook, i As Long
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "C:\"
        .AllowMultiSelect = True
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        For i = 1 To .SelectedItems.Count
            Set Wb = Workbooks.Open(Filename:=.SelectedItems(i), AddToMRU:=False)
            
'В следующей строке прописаны ссылка на лист и диапазон копируемых ячеек, а так же
'ссылка на книгу (в данном случае это книга, содержащая этот макрос), лист и на
'ячейку, куда требуется скопировать.

            Wb.Sheets(1).Range("A1:B10").Copy ThisWorkbook.Sheets(1).Range("A1")
            Wb.Close
        Next
    End With
    
End Sub

[never_mind]

Редактор ВБА выбает ошибку вот в этой строчке
Wb.Worksheets("Лист1").Range("a2:e5 ").Copy ThisWorkbook.Worksheets(1).Range("A 1")

грит что subscript out of range.
К слову сказать на работе стоит 2000 офис и тут многие команды просто не поддерживаются. например та, которую привел ниже SAS888, с диалогом мульти выбора.