2013-02-11 22 views
0

В настоящее время я работаю над интегрированным набором книг, где мне нужно передавать данные между книгами. Для этого мне нужен макрос VBA, который может скопировать определенный диапазон (строка на листе) и вставить его в нижней части обзорного списка в другой книге.VBA: Копирование диапазона ячеек в другую книгу

Как я могу это сделать?

Я немного новичок в VBA, поэтому конкретные инструкции оценены. Примечание: Я использую MS Excel 2010.

Спасибо заранее!

+3

Добро пожаловать в SO! Разве вы не разделяете с нами, по крайней мере, соответствующую часть своих усилий - просто в поддержку [Что вы пробовали?] (Http://whathaveyoutried.com/). Для вашей задачи попробуйте использовать макрорекордер, а затем немного изменить код. Здесь есть много подобных вопросов) –

ответ

0

В следующем примере копия будет копировать содержимое ячеек A1:A3 из Worksheet имени Source в Workbook имени workbook1.xlsx в Worksheet имени Target в другом Workbook, workbook1.xlsx. Он выдает ошибку, если ни один из двух Workbook s не открыт, или если они не содержат Worksheet s, которые требует Sub.

Sub Example() 

    Dim wb1 As Workbook 
    Dim wb2 As Workbook 
    Dim ws1 As Worksheet 
    Dim ws2 As Worksheet 

    Set wb1 = Workbooks("workbook1.xlsx") 
    Set wb2 = Workbooks("workbook2.xlsx") 
    Set ws1 = wb1.Sheets("Source") 
    Set ws2 = wb2.Sheets("Target") 

    ws2.Range("A1:A3") = ws1.Range("A1:A3").Value 

End Sub 
Смежные вопросы