Страница: 1 |
Вопрос: Ссылка на ячейку закрытого файла | Добавлено: 18.01.08 10:55 |
Автор вопроса: ![]() |
Подскажите, пож. как прописать в VBA ссылку на ячейку из закрытого файла, заранее спасибо |
Ответы | Всего ответов: 11 |
Номер ответа: 1 Автор ответа: ![]() ![]() Вопросов: 1 Ответов: 125 |
Профиль | Цитата | #1 | Добавлено: 18.01.08 11:18 |
MsgBox ExecuteExcel4Macro("'c:\[myfile.xls]" & "Лист1'!R1C1"![]() Ссылка на чейку должна быть в формате R1C1 |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 410031407 Вопросов: 11 Ответов: 23 |
Профиль | Цитата | #2 | Добавлено: 18.01.08 11:30 |
Да, но когда книга открывается, приходится всеравно вручную искать нужный файл, а как сделать ,чтобы автоматически. И выходило не сообщение, а данные вставлялись в ячейку |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 410031407 Вопросов: 11 Ответов: 23 |
Профиль | Цитата | #3 | Добавлено: 18.01.08 11:37 |
Решила проблемку так:
Private Sub Workbook_Open() Cells(1, 1) = ExecuteExcel4Macro("'i:\Конструкторское Бюро\2008\01\[2008 Январь План Конструкторское Бюро.xls]" & "Неделя 2'!R1C26" ![]() End Sub |
Номер ответа: 4 Автор ответа: ![]() ![]() Вопросов: 1 Ответов: 125 |
Профиль | Цитата | #4 | Добавлено: 18.01.08 11:39 |
1. Не понял:
когда книга открывается, приходится всеравно вручную искать нужный файл, а как сделать ,чтобы автоматически
2. Так и вставляйте в ячейку, это только пример range("a1"
![]() |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 18.01.08 14:05 |
Таня, тебе надо знать как организовать цикл с перебором имён файлов. Я бы слелал небольшой список файлов-источников на отдельном листе и перебрал бы их своим любимым алготирмом:
Dim i As Long
i = 1 Do While ThisWorkbook.Worksheets("Список" ![]() 'Здесь действия в цикле 'Делаем, пока не встретится пустая ячейка i = i + 1 Loop |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 410031407 Вопросов: 11 Ответов: 23 |
Профиль | Цитата | #6 | Добавлено: 18.01.08 14:42 |
А можно поподробнее по-поводу списка файлов |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 18.01.08 16:31 |
Ну делаешь лист "Список", в нём начиная с ячейки A1 и ниже пишешь полные пути для открытия файлов, типа:
i:\Конструкторское Бюро\2008\01\2008 Январь План Конструкторское Бюро.xls
и т.д. А потом в цикле берёшь имена файлов по очереди и подставляешь их в строковое выражение, формирующее параметр для функции ExecuteExcel4Macro и результат этой функции присваиваешь в нужную ячейку (если в каждой книге много нужных ячеек, то делаешь вложенный цикл). |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 410031407 Вопросов: 11 Ответов: 23 |
Профиль | Цитата | #8 | Добавлено: 18.01.08 16:38 |
Спасибочки, буду дальше работать |
Номер ответа: 9 Автор ответа: ![]() ![]() Вопросов: 1 Ответов: 1 |
Профиль | Цитата | #9 | Добавлено: 23.01.08 11:22 |
Dim i As Long
i = 1 Do While ThisWorkbook.Worksheets("Список" ![]() 'Здесь действия в цикле 'Делаем, пока не встретится пустая ячейка i = i + 1 Loop Здрасте, а можно показать на примере, который бы соответствовал этим словам('Здесь действия в цикле 'Делаем, пока не встретится пустая ячейка ) |
Номер ответа: 10 Автор ответа: ![]() ![]() ![]() ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 24.01.08 15:14 |
подсказки типа моих - для программистов. кому надо, тот разберётся, а запутается - переспросит народ. задачи под ключ как правило за отдельную плату ![]() |
Номер ответа: 11 Автор ответа: ![]() ![]() ![]() ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 24.01.08 15:18 |
подсказки типа моих - для программистов. кому надо, тот разберётся, а запутается - переспросит народ. задачи под ключ как правило за отдельную плату ![]() |
Страница: 1 |
|