Excel Macro: Beginner - Вставка форматов из одной книги в другую

Question

Я не знаю Excel Macros, поэтому я уверен, что это смешной вопрос. У меня есть специальная рабочая тетрадь с 7 рабочими листами (K: \ Common \ HSRE \ Реформа хосписа оплаты \ Plotzke \ Ad Hoc Tasks \ OY1 \ Мониторинг для MAC-адресов \ Результаты \ Результаты_2012 - Шаблон - Master.xlsx)

Я хочу скопируйте форматирование с каждого из этих листов (форматы на каждом рабочем листе различны) в эту книгу (K: \ Common \ HSRE \ Хосписная реформа оплаты \ Plotzke \ Ad Hoc Tasks \ OY1 \ Мониторинг для MAC-адресов \ Результаты \ Results_2012 - Шаблон. XLSX). Названия рабочих листов в этой книге идентичны именам в первой книге.

Основываясь на том, что я видел в Интернете я думал, что я мог бы сделать что-то вроде (по крайней мере, на первом листе)

Sub FormatMAC() 

Workbooks("K:\Common\HSRE\Hospice Payment Reform\Plotzke\Ad Hoc Tasks\OY1\Monitoring for MACs\Results\Results_2012 - Template - Master.xlsx").Worksheets("Provider Level").Range("A1:CZ600").Copy 

Workbooks("K:\Common\HSRE\Hospice Payment Reform\Plotzke\Ad Hoc Tasks\OY1\Monitoring for MACs\Results\Copy of Results_2012 - Template1.xlsx").Worksheets("Provider Level").Range("A1:CZ600").PasteSpecial (xlPasteFormats) 

End Sub 

Похоже, программа становится зацикливаться на первой линии. Я получаю эту ошибку

ошибки времени выполнения `9’ : выхода за пределы

Любые идеи?

Answer 1

Если книга открыта, то вам не нужно предоставлять весь путь

Попробуйте

Workbooks("Results_2012 - Template - Master").Worksheets("Provider Level").Range("A1:CZ600").Copy

То же самое с другой стороны.

Answer 2

Вы можете открыть мастер книгу, а затем скопировать формат открытого шаблона

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

Sub FormatMAC() 
Dim mstrWB as Workbook 

Set mstrWB = Workbooks.Open("K:\Common\HSRE\Hospice Payment Reform\Plotzke\" & _ 
    "Ad Hoc Tasks\OY1\Monitoring for MACs\Results\Results_2012 - Template -" & _ 
    " Master.xlsx") 
mstrWB.Worksheets("Provider Level").Range("A1:CZ600").Copy 

Worksheets("Provider Level").Range("A1:CZ600").PasteSpecial (xlPasteFormats) 

mstrWB.Close 

End Sub 

Answer 3

Это не указывает Range, и поэтому Format копируется за весь Worksheet.

Sub FormatMAC() 
    Dim wb1 As Workbook, wb2 As Workbook 
    Set wb1 = Workbooks("Results_2012 - Template - Master.xlsx") 
    Set wb2 = Workbooks("Copy of Results_2012 - Template1.xlsm") 
    Dim ws1 As Worksheet, ws2 As Worksheet 
    For Each ws1 In wb1.Worksheets 
     Set ws2 = wb2.Worksheets(ws1.Name) 
     ws1.Cells.Copy 
     ws2.Cells.PasteSpecial (xlPasteFormats) 
    Next ws1 
End Sub 

Один из файлов имеет xlsm расширение, потому что он содержит Sub.

Я не знаю причину, по которой вы получили указанную ошибку.