Выборка данных и их перенос

Дата: Вторник, 27.10.2015, 16:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день.
Нужен совет.
Есть 2 файла: в одном данные, другой пустой - шаблон.
Сейчас схема работает так: открываю шаблон, через диалоговую форму выбираю файл с данными, и макрос начинает его обрабатывать.
Но сейчас бьюсь над тем чтобы чтобы можно было открыть файл с данными и путем нажатия волшебной кнопки, чтобы он открывал шаблон, и заносил в заносил в него данные.
Вот тут проблема - как сообщить шаблону путь и имя открываемого файла?
Посоветуйте как можно решить данный вопрос.
А может посоветуете другой вариант.

К сообщению приложен файл: 7807937.xls (36.0 Kb) · 8687951.zip (64.8 Kb)

Дата: Вторник, 27.10.2015, 16:40 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Можно сделать проверку
если в нужной ячейке есть данные, то открывается этот файл, иначе нужно выбрать:
[vba]

Код

    ' выбираем файлы
    If [k1] = "" Then
    filesToOpen = Application.GetOpenFilename("Все файлы Excel (*.xls*), *.xls*", 1, MultiSelect:=True)
    Else
    filesToOpen = Array("", [k1])
    End If

[/vba]
Например в файле я написал адрес в К1

К сообщению приложен файл: 7614299.zip (71.2 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 27.10.2015, 16:42

Дата: Вторник, 27.10.2015, 16:47 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

SLAVICK, все задумка сводится к тому чтобы не открывать файл шаблона, и в него загружать файл с данными.
А наоборот - открывать файл с данными и из него вызывать шаблон, и заставлять макросу в шаблоне, работать с данными в файле открывшем его.

Дата: Вторник, 27.10.2015, 16:53 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

А у Вас эти файлы все одинаковые - откуда приходят?
Можно в файл добавить кнопку с ссылкой на макрос в другой книге. см. пример.
Или в личную книгу макросов прописать макрос открытия и запуска Вашего шаблона.

К сообщению приложен файл: 7807937-1-.xls (37.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Дата: Вторник, 27.10.2015, 17:19 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Прикрепленный файл без макроса

Дата: Вторник, 27.10.2015, 17:21 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

И да в файле есть всегда данные, их уже потом оператор затягивает в шаблон и уже потом работает с ними

Дата: Вторник, 27.10.2015, 17:38 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата sokol12, 27.10.2015 в 17:19, в сообщении № 5

Прикрепленный файл без макроса

Ну да - просто с кнопкой, у которой прописана связь на макрос в шаблоне. или Вы хотите сюда добавить все макросы шаблона?

Иногда все проще чем кажется с первого взгляда.

Дата: Вторник, 27.10.2015, 17:59 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

добавил в файл макрос

К сообщению приложен файл: 5474778.xls (49.0 Kb)

Дата: Вторник, 27.10.2015, 18:59 | Сообщение № 9

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Подправил немного Ваш макрос - теперь в нем нужно указать путь к шаблону.
После нажатия на кнопку - шаблон открывается и заполняется данными из этого файла.

К сообщению приложен файл: 2558479.xls (64.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Дата: Вторник, 27.10.2015, 23:45 | Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Большое спасибо. Все получилось. Подправил чтобы шаблон не закрывался и оператор мог с ним дальше работать.
И еще раз большое спасибо.