Макрос по копированию данных из другого фаила

[Devourer12345]

В одной папке лежит 2 дока, как создать макрос который бы копировал часть одного дока и вставлял в другой. Если можно в форме VBA макроса и как с помощью записи... извиняюсь за нубство...

[SAS888]

А Вы не догадываетесь, почему Вам никто не отвечает?
Конкретный вопрос - конкретный ответ.
Что за "доки"? Какого формата (.*xls; *.doc и т.д.)? Какую часть какого файла копировать и в какое место какого файла вставлять?
Еще лучше, если Вы приложите исходные файлы и файл, который Вы хотели бы получить в результате.

[Serge_Bliznykov]

SAS888, +1

на руборде в таком случае рекомендуют сходить за ответом сюда :-D

[SAS888]

Serge_Bliznykov
Пользую руборд, но там не был. Оригинально!

[Devourer12345]

Доки формата XLS. (вестимо не DOC если пишу в теме про excel...)
Копировать A2:D7 из фаила vasa.xls в фаил gogi.xls B3:E8

[Serge_Bliznykov]

тупо, абсолютно ничего не меняя и не анализируя записал макрорекодером

    Workbooks.Open Filename:="C:\Мои документы\vasa.xls"
    Range("A2:D7").Select
    Selection.Copy
    Workbooks.Open Filename:="C:\Мои документы\gogi.xls"
    Range("B3").Select
    ActiveSheet.Paste

[Devourer12345]

А если все это надо делать вне зависимасти от адреса???
Можно как нить от него отвязаться? Не указывать адрес а лиш указывать имя фаилов? Оба фаила в одной папке?

[VictorM]

Можно так:

ph = ActiveWorkbook.Path
Workbooks.Open Filename:=ph & "\" & gogi.xls

Здесь ActiveWorkbook будет первая открываемая книга.

[SAS888]

Вот еще вариант, не требующий открытия файла-источника:

Sub Copy_vasa()

    Dim x As Range, y As Range
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=ThisWorkbook.Path & "\gogi.xls"
    [B3].FormulaR1C1 = "='" & ThisWorkbook.Path & "\[vasa.xls]Лист1'!R2C1"
    [B3].Formula = Application.ConvertFormula(Formula:=[B3].Formula, _
        fromReferenceStyle:=xlA1, toReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
    
    Set x = Range("B3"): Set y = Range("B3:B8")
    x.AutoFill Destination:=y
    
    Set x = Range("B3:B8"): Set y = Range("B3:E8")
    x.AutoFill Destination:=y: y.Value = y.Value
    ActiveWorkbook.Save: ActiveWorkbook.Close

End Sub

А что значит

надо делать вне зависимасти от адреса

О каком адресе Вы говорите?

[Devourer12345]

C:\Мои документы\gogi.xls
Оба фаила могут менять свое местоположение... но всегда остаються всегда в одной папке...