|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.07.2008, 18:31 | #1 |
Пользователь
Регистрация: 14.07.2008
Сообщений: 37
|
Обращение к фаилу
Задача такая... в переменную заносится имя фаила. Задача выполнить функцию с обращением к этому фаилу...
Dim z As String z = "1.xls" Range("M8").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-12],[z]спис!R1:R65536,10,0)" Selection.AutoFill Destination:=Range("M8:M25"), Type:=xlFillDefault Кто может помоч помогите ПЛЗ очень срочно надо! |
22.07.2008, 04:53 | #2 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Примерно так:
Код:
Цитата:
Чем шире угол зрения, тем он тупее.
|
|
22.07.2008, 08:54 | #3 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Может быть, нужно
... = "=VLOOKUP(RC[-12],'[" & z & "]спис'!R1:R65536,10,0)" ? Последний раз редактировалось дмидми; 22.07.2008 в 08:58. |
23.07.2008, 11:16 | #4 |
Пользователь
Регистрация: 14.07.2008
Сообщений: 37
|
Пробую ничего не получается пишет ошибку...
Sub test() p = "1.xls" Range(A1).FormulaR1C1 = "=[" & p & "]спис!R1C2" End Sub спис---имя листа... без оптимизации и тд и тп... как реализовать выше написанное? |
23.07.2008, 11:24 | #5 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
А куда делись апострофы?
= "='[" & p & "]спис'!R1C2"
Ну, и адрес нужно брать в кавычки, конечно: Range("A1") Последний раз редактировалось дмидми; 23.07.2008 в 11:28. |
23.07.2008, 11:26 | #6 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
и кавычки вот здесь
Range("A1").....
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
23.07.2008, 11:30 | #7 |
Пользователь
Регистрация: 14.07.2008
Сообщений: 37
|
Большое всем спасибо за помощ!
|
23.07.2008, 11:35 | #8 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Если вопрос ко мне - то таки да,
Код:
Кстати, настоятельно рекомендую каждый модуль начинать с Option Explicit - многие ошибки обнаружатся уже при компиляции. |
23.07.2008, 11:38 | #9 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Для того, чтобы избежать лишних запросов Excel, лучше указывать путь полностью. Тогда все будет работать по умолчанию, не зависимо от того открыт файл-источник или нет.
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программное обращение к свойствам файлов и их изменение | lemonhead | Общие вопросы Delphi | 1 | 24.07.2008 10:20 |
Обращение | Акашаев Нурлан | Общие вопросы Delphi | 5 | 26.06.2008 16:02 |
Обращение ко второй форме | RIO | Общие вопросы .NET | 3 | 07.05.2008 00:48 |
Обращение в i-тому обьекту | Airou | Компоненты Delphi | 8 | 10.04.2008 03:14 |
Обращение к компонентам из цикла | satana | Общие вопросы Delphi | 4 | 16.07.2007 12:16 |