| Вопрос: Ссылка на ячейку закрытого файла | Добавлено: 18.01.08 10:55 |
Автор вопроса:  Таня | ICQ: 410031407 |
| Подскажите, пож. как прописать в VBA ссылку на ячейку из закрытого файла, заранее спасибо |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  bi-lya Вопросов: 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 Автор ответа: bi-lyaВопросов: 1 Ответов: 125 |
Профиль | | #4 | Добавлено: 18.01.08 11:39 |
|
1. Не понял:
когда книга открывается, приходится всеравно вручную искать нужный файл, а как сделать ,чтобы автоматически
2. Так и вставляйте в ячейку, это только пример range("a1"
.value = ... |
||
|
Номер ответа: 5 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #5 | Добавлено: 18.01.08 14:05 |
|
Таня, тебе надо знать как организовать цикл с перебором имён файлов. Я бы слелал небольшой список файлов-источников на отдельном листе и перебрал бы их своим любимым алготирмом:
Dim i As Long
i = 1 Do While ThisWorkbook.Worksheets("Список" .Cells(i,1).Value = Empty
'Здесь действия в цикле 'Делаем, пока не встретится пустая ячейка i = i + 1 Loop |
||
|
Номер ответа: 6 Автор ответа: ТаняICQ: 410031407 Вопросов: 11 Ответов: 23 |
Профиль | | #6 | Добавлено: 18.01.08 14:42 |
| А можно поподробнее по-поводу списка файлов | ||
|
Номер ответа: 7 Автор ответа: mc-blackICQ: 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 Автор ответа: Asisyi Вопросов: 1 Ответов: 1 |
Профиль | | #9 | Добавлено: 23.01.08 11:22 |
|
Dim i As Long
i = 1 Do While ThisWorkbook.Worksheets("Список" .Cells(i,1).Value = Empty
'Здесь действия в цикле 'Делаем, пока не встретится пустая ячейка i = i + 1 Loop Здрасте, а можно показать на примере, который бы соответствовал этим словам('Здесь действия в цикле 'Делаем, пока не встретится пустая ячейка ) |
||
|
Номер ответа: 10 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #10 | Добавлено: 24.01.08 15:14 |
|
подсказки типа моих - для программистов. кому надо, тот разберётся, а запутается - переспросит народ. задачи под ключ как правило за отдельную плату
|
||
|
Номер ответа: 11 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #11 | Добавлено: 24.01.08 15:18 |
|
подсказки типа моих - для программистов. кому надо, тот разберётся, а запутается - переспросит народ. задачи под ключ как правило за отдельную плату
|
||
Страница: 1 |