Копирование в файл имя которого задано переменной

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование в файл имя которого задано переменной (Макросы Sub)

camper

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

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

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

Сообщений: 3

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

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

Excel 2007

Доброго времени суток. Первый раз обращаюсь к форумчанам, сразу приношу извинения, если что не так. Я -новичок и уперлась в следующую проблему. Есть первый файл: "База туристов" в котором есть сведения о туристах и программах отдыха. В зависимости от выбранной программы отдыха должен отрываться файл шаблона договора в которого копируются данные на Туриста, далее файл с заполненными данными сохраняется под определенным именем. Не могу выполнить копирование... Путь к нужному файлу находится в файле "База туристов", Лист Д, ячейка Z29.
Часть кода:[vba]

Код

Sub Договор()
Dim d as String

d=Sheets(“Д”).Range(“Z29”).Value ‘ Ячейка с адресом обращения к файлу

Workbooks.Open Filename:=d ‘ Открываю нужный файл

Workbooks(d). Sheets(“Дог”).Range(“A1”)=Workbooks(«База туристов»). Sheets(“Д”).Range(“A1”).Value ‘ Пытаюсь копировать, но....
End Sub

[/vba]

Выдается ошибка: Subscript out of range

Не знаю, как обратиться к файлу, имя которого задано переменной.

С надеждой на помощь...

Ссылка на файл:удалено администрацией

Ответить

fsl

Дата: Вторник, 11.02.2014, 17:12 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 17

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

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

Excel 2003

все правильно ругается.. так и надо...

d -это фуллнейм, т.е. = path + Filename

поэтому Workbooks(d) - некорректное обращение. надо вместо d использовать только имя книги, без пути в каталог. тогда все будет Ок.