Доброго времени суток.
Прошу помощи в следующем вопросе.
Есть выгрузка из базы данных в TXT файле.
Копируем все содержимое файла, открываем файл Excel и вставляем на пустой лист.
Далее перед этим листом создаем пустой лист и переносим на него строки в столбце D(status)
которых есть только значения = N, NA, NEW.
После этого удаляем 1 строку - заголовки столбцов.
Далее удаляем все столбцы, кроме - L(phone_number) и Q(address1).
Далее сохраняем файл и закрываем.
При следующем его открытии создаётся в начале пустой лист, куда вставляются новые данные и TXT файла.
Начало макроса макрорекордером записал.
ActiveSheet.Paste
Sheets.Add Before:=Sheets(Sheets.Count)
Заранее огромное спасибо.
Прошу помощи в следующем вопросе.
Есть выгрузка из базы данных в TXT файле.
Копируем все содержимое файла, открываем файл Excel и вставляем на пустой лист.
Далее перед этим листом создаем пустой лист и переносим на него строки в столбце D(status)
которых есть только значения = N, NA, NEW.
После этого удаляем 1 строку - заголовки столбцов.
Далее удаляем все столбцы, кроме - L(phone_number) и Q(address1).
Далее сохраняем файл и закрываем.
При следующем его открытии создаётся в начале пустой лист, куда вставляются новые данные и TXT файла.
Начало макроса макрорекордером записал.
ActiveSheet.Paste
Sheets.Add Before:=Sheets(Sheets.Count)
Заранее огромное спасибо.