ссылка на ячейку в правильном формате

[Dutch Shultz]

Добрый день!Извиняюсь за банальный вопрос-позабыл весь Бейсик.Подскажите пож-ста как правильно скопировать ячейку cells (1,1)из файла по адресу "..." из листа 1 в ячейку cells(1,1) текущего файла(в котором стоит кнопка для запуска этого макроса) в лист 1.Заранее спасибо.

[nemoomen]

Workbooks("КНИГА1").Worksheets("Лис т1").Cell(1,1)=Workbooks("КНИГА2"). Worksheets("Лист1").Cell(1,1)

[EducatedFool]

Sub test()
    ' скопировать вместе с форматированием
    Workbooks("КНИГА-Источник").Worksheets(1).Cells(1, 1).Copy ThisWorkbook.Worksheets(1).Cells(1, 1)
    ' то же самое, только короче:
    Workbooks("КНИГА-Источник").Worksheets(1).Cells(1).Copy Worksheets(1).Cells(1, 1)    ' если файл с макросом активен
    Workbooks("КНИГА-Источник").Worksheets(1).Cells(1).Copy Cells(1, 1)    ' если 1-й лист файла с макросом активен
    Workbooks("КНИГА-Источник").Worksheets(1).Cells(1).Copy [a1]    ' если 1-й лист файла с макросом активен


    ' скопировать только значение
    ThisWorkbook.Worksheets(1).Cells(1, 1) = Workbooks("КНИГА-Источник").Worksheets(1).Cells(1, 1)
    ' то же самое, только короче:
    Worksheets(1).Cells(1, 1) = Workbooks("КНИГА-Источник").Worksheets(1).Cells(1, 1)    ' если файл с макросом активен
    Cells(1, 1) = Workbooks("КНИГА-Источник").Worksheets(1).Cells(1, 1)    ' если 1-й лист файла с макросом активен
    Cells(1) = Workbooks("КНИГА-Источник").Worksheets(1).Cells(1, 1)    ' если 1-й лист файла с макросом активен
    [a1] = Workbooks("КНИГА-Источник").Worksheets(1).Cells(1, 1)    ' если 1-й лист файла с макросом активен
End Sub

В обоих случаях КНИГА-Источник должна быть открыта.
Лучше вместо Workbooks("КНИГА-Источник") писать Workbooks("КНИГА-Источник.xls")

[Dutch Shultz]

Спасибо большое!Копировать получилось,а вот ссылаться на ячейку не получается,просто на кнопку повесил следующую строку:
MsgBox (Workbooks("z:\Логисты\Общая\Monito ring\Tracking 09-test.xls").Worksheets(1).Cells(4, 2))

пишет ошибку что

Runtime error 9
Subscript out of range

Хотя у меня файл открыт открыт,имя правильно,ячейка непустая.

Помогите,пож-ста,как правильно ссылаться на ячейку в таком случае

[EducatedFool]

Попробуйте так:

MsgBox Workbooks("Tracking 09-test.xls").Worksheets(1).Cells(4, 2)

[Dutch Shultz]

Спасибо, а почему не работает ссылка как на переменную на длинный путь к ячейке,и,например,присвеивание переменной значения ячейки:
a = Workbooks("Tracking 09-Test.xls").Worksheets(1).Cell(4, 2)
Например у меня открыты много книг в разной последовательности,и мне нужно сравнить значение Workbooks("длинный путь к файлу 2 ".Worksheets(index1).cells(i1,k 1) c Workbooks("длинный путь к файлу 2".Worksheets(index2).cells(i2,k2), не срабатывает.Я так понимаю оба файла должены быть открыты,но потом пишет ошибки.Там через объектные переменные надо делать как-то?Подскажите,пож-ста,как правильно.

[EducatedFool]

Спасибо, а почему не работает ссылка как на переменную на длинный путь к ячейке,и,например,присвеивание переменной значения ячейки:
a = Workbooks("Tracking 09-Test.xls").Worksheets(1).Cell(4, 2)

Правильно будет так:
a = Workbooks("Tracking 09-Test.xls").Worksheets(1).Cells(4, 2)

Workbooks("длинный путь к файлу 2 ".Worksheets(index1).cells(i1,k 1) c Workbooks("длинный путь к файлу 2".Worksheets(index2).cells(i2,k2), не срабатывает.

Я же приводил примеры обращения к ячейкам...
С чего Вы вообще взяли, что можно использовать "длинный путь" в качестве параметра функции Workbooks() ?

Никаких больше "длинных" имён - "только короткие", и всё будет работать.

Более подробную информацию можно найти здесь: http://msoffice.nm.ru/faq/macros.htm

[Dutch Shultz]

Спасибо большое!