Здравствуйте дорогие знатоки! Есть вот такая проблемка, макрос копирует выделенные ячейки с «листа 1» во внешний файл . А надо что бы копировал определенный диапазон например «A1:G10» с листа под названием «расход материала» возможно такое? Sub Copy_ROWs_to_EXT_FILE() ' скопировать данные во внешний файл-накопитель '--------------------------------------------------------------------------------------- ' Procedure : Copy_ROWs_to_EXT_FILE ' Author : KuklP & Alex_ST ' Topic_HEADER : Макрос "Copy_ROWs_to_EXT_FILE" ' Topic_URL : http://www.excelworld.ru/forum/3-176-2008-16-1293625247 ' DateTime : 29.12.10, 15:20 ' Purpose : скопировать строки выделенных ячеек во внешний файл-накопитель ' Notes : после работы макроса файл-накопитель становится невидимым в обычных окнах Excel (как надстройка или Personal.xls) '--------------------------------------------------------------------------------------- If Not TypeName(Selection) = "Range" Then Exit Sub Dim lr&, wb As Workbook, lb As Workbook With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With Set wb = GetObject("c:\test.xls") ' здесь нужно прописать полный путь к файлу-накопителю Set lb = ThisWorkbook lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row ' lr - номер последней не пустой строки файла-накопителя Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' вставить выбранные в файле-источнике строки после последней не пустой строки в файл-накопитель wb.Close (True) ' закрыть файл-накопитель с сохранением With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With Set wb = Nothing: Set lb = Nothing End Sub
Здравствуйте дорогие знатоки! Есть вот такая проблемка, макрос копирует выделенные ячейки с «листа 1» во внешний файл . А надо что бы копировал определенный диапазон например «A1:G10» с листа под названием «расход материала» возможно такое? Sub Copy_ROWs_to_EXT_FILE() ' скопировать данные во внешний файл-накопитель '--------------------------------------------------------------------------------------- ' Procedure : Copy_ROWs_to_EXT_FILE ' Author : KuklP & Alex_ST ' Topic_HEADER : Макрос "Copy_ROWs_to_EXT_FILE" ' Topic_URL : http://www.excelworld.ru/forum/3-176-2008-16-1293625247 ' DateTime : 29.12.10, 15:20 ' Purpose : скопировать строки выделенных ячеек во внешний файл-накопитель ' Notes : после работы макроса файл-накопитель становится невидимым в обычных окнах Excel (как надстройка или Personal.xls) '--------------------------------------------------------------------------------------- If Not TypeName(Selection) = "Range" Then Exit Sub Dim lr&, wb As Workbook, lb As Workbook With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With Set wb = GetObject("c:\test.xls") ' здесь нужно прописать полный путь к файлу-накопителю Set lb = ThisWorkbook lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row ' lr - номер последней не пустой строки файла-накопителя Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' вставить выбранные в файле-источнике строки после последней не пустой строки в файл-накопитель wb.Close (True) ' закрыть файл-накопитель с сохранением With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With Set wb = Nothing: Set lb = Nothing End Subdx84