Записать данные из файла в ячейку

[DarkJoker]

Здравствуйте помогите с макросом пожалуйста
ЗАДАЧА:
с помощью стороннего excel(допустим 1.xlsm) внести данные из 1.txt на рабочем столе в ячейку 2.xlsm в 2-й лист по названием "Счёт" в ячейку B7
и запаролить лист "Счёт"

[EducatedFool]

sub Макрос()
  txt = ReadTXTfile(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\1.txt")
  workbooks("2.xlsm").worksheets("Счёт").range("B7") = txt
  workbooks("2.xlsm").worksheets("Счёт").protect rnd
end sub

Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

[DarkJoker]

выдало ошибку
я подозреваю из-за того что в xlsm несколько листов
1-й 2-й(счёт) 3-й и 4-й

[IgorGO]

ошибка 9?
"Subscript out of range"

[DarkJoker]

да вы правы

[IgorGO]

я подозреваю, что в файле лист называется "счет", а не "счёт" (у меня бы он точно был назвал "счет")

для человеческого мозга нет разницы, а для программы это все равно, что назвать лист "Вася", а обращаться к нему по имени "счёт"

[DarkJoker]

переименовал как в коде, всё равно ошибка 9
указывает сюда
Workbooks("2.xlsm").Worksheets("Счё т").Range("B7") = txt

[DarkJoker]

ваще не хочет никак
поменял путь, название файла, название листа, до фени

[IgorGO]

кто-то из обьектов отсутствует
или
в Екселе не открыта книга 2.xlsm
или
в указанной книге нет листа с названием Счёт

кроме того...
зачем нужен одноразовый макрос?
допустим он сработал и что? второй раз на лист Счёт он уже ничего не запишет. лист защищен и запаролен))

[DarkJoker]

так.... вы что хотите сказать что нужно открыть 2.xlsm и потом уже запускать макрос из 1.xlsm? О_О