Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ссылка на ячейку в другой книге, формулой
 
#1
24.12.2012 13:36:34
Добрый день.
В книге FD00148.xlsx на листе Report есть нужная мне ячейка L29. Я хочу вручную проложить путь к этому файлу и получить из него значение в ячейке L29, чтобы при перемещении на другой комп ссылка на устарела.
Путь к файлу через PLEX я нашел, а вот как сослаться на конкретную ячейку на конкретном листе, имея в формате текста путь к файлу, я не знаю. Помогите.
Хочу найти что-то наподобие такого:
=ПОЛУЧИТЬЗНАЧЕНИЕ('C:\Documents and Settings\counter-fil\Рабочий стол\Desktop\Мои документы\Анализ проектов\FD\2Q 2012\[FD00148.xlsx]Report'!$L$29),
т.е. склеиваешь полностью ссылку на ячейку и получаешь значение этой ячейки в заданной книге.

ПС. Сори админы, примера приложить не могу, всё в тексте.
Изменено: Вася Вася - 30.03.2016 02:54:59
 
 
 
#2
24.12.2012 13:40:03
А открыть в одном процессе обе книги, гляцнуть "=", перейти в другую и выбрать нужное - не пробовали?..
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#3
24.12.2012 13:46:59
наверное, поможет это:
Как получить данные из закрытой книги?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
24.12.2012 14:12:39
ikki, то что нужно. А можно ли это сделать как функцию (чтобы в ячейку можно было поставить =МояФункция(....)? В ней я нашел три аргумента - Путь к файлу, лист, ячейка (выделены красным)? Я не программист, вот в чем дело.
Код
Sub Get_Value_From_Close_Book()
 Dim sShName As String, sAddress As String, vData
 'Отключаем обновление экрана
 Application.ScreenUpdating = False
 Workbooks.Open [COLOR=#FF0000]"C:\Documents and Settings\Книга1.xls"[/COLOR]
 sAddress = [COLOR=#FF0000]"A1:C100"[/COLOR] 'или одна ячейка - "A1"
 'получаем значение
 vData = Sheets([COLOR=#FF0000]"Лист1"[/COLOR]).Range(sAddress).Value
 ActiveWorkbook.Close False
 'Записываем данные на активный лист книги,
 'с которой запустили макрос
 If IsArray(vData) Then
 [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
 Else
 [A1] = vData
 End If
 'Включаем обновление экрана
 Application.ScreenUpdating = True
 
 
 
#5
24.12.2012 14:19:42
а у вас всего одна такая ячейка со ссылкой?
а то каждый раз открывать/закрывать файл при запуске функции - как-то не айс.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
24.12.2012 14:29:44
Не, у меня будет много на листе.
 
 
 
#7
24.12.2012 14:31:51
Ладно, всем спасибо, вопрос решен.
Я думал проще будет.
 
 
 
#8
24.12.2012 14:34:31
такая функция:
Код
Function Get_Value_From_Close_Book(wbName$, sheetName$, strAddress$)
  Dim sShName As String, sAddress As String, vData
  'Отключаем обновление экрана
  Application.ScreenUpdating = False
  Workbooks.Open wbName
  'получаем значение
  Get_Value_From_Close_Book = Sheets(sheetName).Range(strAddress).Value
  ActiveWorkbook.Close False
  Application.ScreenUpdating = True
End F unction

нерабочая.
файл не открывает, ошибку не выдает.
есть подозрение, что в UDF операция открытия файла не разрешена.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
24.12.2012 14:41:28
Можно все.
Код
Function Get_Value_From_Close_Book(sWb As String, sShName As String, sAddress As String)
    Dim vData, objCloseBook As Object
    Set objCloseBook = GetObject(sWb)
    'получаем значение
    vData = objCloseBook.Sheets(sShName).Range(sAddress).Value
    objCloseBook.Close False
    'Возвращаем данные в ячейку с функцией
    If IsArray(vData) Then
        Get_Value_From_Close_Book = vData
    Else
        Get_Value_From_Close_Book = vData
    End If
End F unction


Чтобы получить массив ячеек, необходимо выделить несколько ячеек и ввести в них эту функцию, как формулу массива.
Вызов с листа:
=Get_Value_From_Close_Book("C:\Книга1.xls";"Лист1";"B1")
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#10
24.12.2012 14:53:59
The_Prist, понятно.
кстати, процедуру Get_Value_From_Close_Book_Excel4Macro() в виде функции тоже "перепилить" не удалось :(
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
24.12.2012 21:37:39
Спасибо.
Завтра попробую.
 
 
 
#12
25.12.2012 13:07:02
The_Prist, Эх, ошибку выдает.
 
 
 
#13
25.12.2012 13:38:01
Цитата
End F unction
Здесь пробел убрали? (форум подглючивает)
Правильно надо (End Function)
Спасибо
 
 
 
#14
25.12.2012 13:39:11
и квадратик перед Value - тоже :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#15
26.12.2012 11:13:09
Убрал конечно.
Ошибку функция выдает после того, как вводишь её =Get_Value... в ячейку и жмешь Enter. Функция берет нужное значение из закрытой книги, но потом Excel виснет.
 
 
 
#16
26.12.2012 11:17:21
Эх, а у меня не выдает....книга-то где находится? Параметры какие в функцию передаете? Что еще на листе есть?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#17
30.12.2012 00:53:48
The_Prist, сори, сил нет чтобы оттестировать ещё раз. На пустой книге попробовал - работает. После НГ уже займусь.
Большое спасибо.
 
 
 
#18
29.03.2016 22:02:44
Цитата
The_Prist написал:
   If IsArray(vData) Then        Get_Value_From_Close_Book = vData    Else        Get_Value_From_Close_Book = vData    End If
может ошибка возникает из-за того, что и Then и Else выполняют одно и тоже?
 
 
 
#19
30.03.2016 00:47:23
Не думаю, что Вася Вася столько времени ждёт ответ - с 30 декабря 2012 года ))  
 
 
 
Страницы: 1
Читают тему
Наверх