Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.03.2019, 23:55   #1
TVkills
 
Регистрация: 27.02.2019
Сообщений: 9
По умолчанию Помогите спарсить

как сложить/спарсить ячейки в разных книгах на первом открытом листе между собой и вывести результат в новую книгу? А1_книга1 + А2_книга2, и так далее?
Вложения
Тип файла: zip !excel.zip (322.6 Кб, 10 просмотров)
TVkills вне форума Ответить с цитированием
Старый 21.03.2019, 00:30   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от TVkills Посмотреть сообщение
А1_книга1 + А2_книга2, и так далее
И куда это? А А2_книга1 + А3_книга2+... куда? Подробнее объясните.
Кстати, в некоторых файлах в строках 1 и 13 содержатся суммы нижележащих строк, а в некоторых этих сумм нет.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 21.03.2019, 00:50   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Если имеется в виду в А1 - сумму всех ячеек А1, в А2 - сумму всех ячеек А2 и т.д., то
Код:
Sub TV()
Const FLDR = "c:\temp\!excel\" 'путь к папке с файлами
Dim f$
  Application.ScreenUpdating = False
  f = Dir(FLDR & "*.xls*")
  While Len(f)
    With Range("E1:H25")
      .FormulaArray = "=A1:D25+'" & FLDR & "[" & f & "]Лист1'!$A$1:$D$25"
      .Value = .Value
    End With
    Range("A:D").Delete
    f = Dir
  Wend
  Application.ScreenUpdating = True
End Sub
Вложения
Тип файла: xls TV.xls (32.5 Кб, 10 просмотров)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 21.03.2019, 09:55   #4
TVkills
 
Регистрация: 27.02.2019
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
Если имеется в виду в А1 - сумму всех ячеек А1, в А2 - сумму всех ячеек А2 и т.д., то
Код:
Sub TV()
Const FLDR = "c:\temp\!excel\" 'путь к папке с файлами
Dim f$
  Application.ScreenUpdating = False
  f = Dir(FLDR & "*.xls*")
  While Len(f)
    With Range("E1:H25")
      .FormulaArray = "=A1:D25+'" & FLDR & "[" & f & "]Лист1'!$A$1:$D$25"
      .Value = .Value
    End With
    Range("A:D").Delete
    f = Dir
  Wend
  Application.ScreenUpdating = True
End Sub
поясните что за E1:H25? расчет в соседних клетках что ли?

Последний раз редактировалось TVkills; 21.03.2019 в 09:58.
TVkills вне форума Ответить с цитированием
Старый 21.03.2019, 09:58   #5
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от TVkills Посмотреть сообщение
поясните что за E1:H25?
Диапазон, куда вставляется формула для прибавления данных очередного файла. Пройдите код по шагам - F8 в VBE - все увидите.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите спарсить определенные строки из xml в txt adramax PHP 1 08.10.2017 19:32
Как спарсить NIKOLAYY2 Общие вопросы Delphi 13 29.03.2015 16:06
Спарсить текст Pearl777 PHP 1 26.07.2014 13:58
Спарсить местоположение с 2ip.ru AppData Работа с сетью в Delphi 4 17.04.2014 09:26
Помогите спарсить количество подписчиков группы в вк Andrey770 Работа с сетью в Delphi 6 29.11.2013 23:21