Переменной значение ссылки.

[valerij]

Сообщение от IgorGO

вот пример:

x = workbooks(n).worksheets(m).cells(r,c).value

настолько же бесполезна как и мой пример записи ячейки в переменную выше

Игорь, а мой путь к файлу workbooks(n).worksheets(m) теперь не нужен?

Как мне кажется из простого вопроса, так сложно нормально ответить, я в эксель годами не заглядываю, чуток решил новое сделать....

[IgorGO]

а мой путь к файлу ... теперь не нужен?

совет от RAN

Открыть другую книгу

не вызвал у тебя вопросов, я наивно предположил, что процедура очевидна

я в эксель годами не заглядываю

я опять же по наивности каждый день заглядываю, а тебе думаю смело можно увеличить интервал "не заглядывания в эксель" лет так до 10

Ты недоумеваешь, как можно не ответить на простой вопрос, остальные недоумевают, как после нескольких лет программирования можно не знать, как значение из ячейки переписать в переменную

чтобы не путать оператор присвоения и сравнения рекомендую писать:

Let x = workbooks(n).worksheets(m).cells(r,c).value

[valerij]

IgorGO!!
Зачем ты эту мутату разводишь?
Два листа темы - пустоты!!!!

Больше сюда в жизни не зайду, пиз...больство и оскорблений получил....
Спасибо.

[Hugo121]

В той теме есть полностью готовый код функции, извлекающей одно значение из закрытого файла, и пример её применения. Что ещё нужно?
Был бы здесь в теме пример этих двух файлов - я бы написал применение по месту, а т.к. файлов нет - подгоняйте по месту сами.

[IgorGO]

Игорь, если тебе китайскими иероглифами написать 5 простых шагов как достичь счастья - тебе будет трудно его достичь, потому что иероглифов не понимаешь

Валера не понимает иероглифов, которые тут написаны. спасает положение только конкретный код, под конкретные файлы, листы, ячейки. код не соответствующий этому требованию - называется "мутотой" и является не пригодным к использованию.

[Hugo121]

Всё, сдаюсь, убедил

[valerij]

Сообщение от IgorGO

Игорь, если тебе китайскими иероглифами написать 5 простых шагов как достичь счастья - тебе будет трудно его достичь, потому что иероглифов не понимаешь

Валера не понимает иероглифов, которые тут написаны. спасает положение только конкретный код, под конкретные файлы, листы, ячейки. код не соответствующий этому требованию - называется "мутотой" и является не пригодным к использованию.

Я не просил писать мне или под меня код, я привёл свой путь к файлу и к ячейке с данными.
Всего то на всего, нужно в др. книги(её путь не важен) присвоить переменной значение по приведенному пути.
Я с такой фигнёй ни разу не сталкивался...
Такое впечатление, что - я написал китайские иероглифы....

Сообщение от Hugo121

В той теме есть полностью готовый код функции, извлекающей одно значение из закрытого файла, и пример её применения. Что ещё нужно?
Был бы здесь в теме пример этих двух файлов - я бы написал применение по месту, а т.к. файлов нет - подгоняйте по месту сами.

Я пробовал, не получилось.
Зачем два файла?
Есть же путь!!!!

Sub qq()
    Dim wb As Workbook, ws As Worksheet, p As String, f As String, Item As String
    'Item = "Июль.Cells(4, 4)" 'искомое значение
    p = "H:\3_Квартал\" 'путь к папке с файлами
    'f = Dir(p & "*.xls*" & "Июль.Cells(4, 4)") не работает
    f = Dir(p & "*.xls*")
    MsgBox f
End Sub

~ f - (находится в др. книги) показывает файл, а как добраться до его листа Июль с ячейкой Cells(4, 4) - не знаю.

[Hugo121]

Два файла для того чтобы практически проверить код.
С другими путями и файлами код в той теме уже написан.

[valerij]

Сообщение от Hugo121

Два файла для того чтобы практически проверить код.
С другими путями и файлами код в той теме уже написан.

А что не так в моём коде?
Там и путь дан.
Не пойму, зачем нужны два файла?
Они здоровые и править их пол дня надо!!!

Ну если надо, ладно вечером сделаю.

[IgorGO]

А что не так в моём коде?

программист не так

with workbooks.add("H:\3_Квартал\3_КВ.xls")
  x = .worksheets("Июль").cells(4,3).value
  msgbox "Получено: " & x & "   из файл: H:\3_Квартал\3_КВ.xls,   лист: Июль,   ячейка: C4"
  .close false
end with