Заказ закрыт
необходима разработка макроса для Exel

Бюджет: по договоренности
Заказчик выбрал исполнителя:
Professional Quality  
нужно чтоб с помощью макроса каждый столбец сохранялся как отдельный файл
есть пример, только в этом примере как отдельный файл сохраняется строка как отдельный файл

Option Explicit   
  
  
Sub tt()   
   Dim i As Long   
   Dim ws As Worksheet   
  
   With Application   
       .DisplayAlerts = False   
       .ScreenUpdating = False   
       Set ws = ActiveSheet   
  
       For i = 1 To Range("A" & Rows.Count).End(xlUp).Row   
  
           With Workbooks.Add   
               ws.Rows(i).Copy .Worksheets(1).Range("A1")   
               .SaveAs ThisWorkbook.Path & "" & .Worksheets(1).Range("A1")   
               .Close 0   
           End With   
  
       Next   
  
       .DisplayAlerts = True   
       .ScreenUpdating = True   
   End With   
End Sub
Опубликован 12.09.2017 в 11:03
Заказ находится в архиве

Выберите способ верификации:

Обновите страницу после прохождения верификации.