Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как получить значение ячейки / 6 сообщений из 6, страница 1 из 1
16.09.2021, 13:10
    #40098012
Александр Быков
Александр Быков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить значение ячейки
Добрый день. Скажите пожалуйста почему не работает такой код? Как быстро и просто получить значение ячейки одной книги и вставить в ячейку другой книги?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim xlWbMakrosy As Workbook 'Книга с макросами и шаблоном ППР
Dim xlWbListObject As Workbook ' Книга с перечнем объектов
Dim xlWbNewPPR As Workbook ' Книга с новым, создаваемым ППР

Dim sPathObj As String 'Путь к файлу с перечнем объектов
Dim sRootPathObj As String 'Корневая папка с объектам
Dim sAddressNumBS As String 'Адрес ячейки с номером БС
Dim sAddressNameBS As String 'Адрес ячейки с наименованием БС

sPathObj = ThisWorkbook.Sheets("Обработчик").Range("G4")
sAddressNumBS = ThisWorkbook.Sheets("Обработчик").Range("G6")
sAddressNameBS = ThisWorkbook.Sheets("Обработчик").Range("G7")

Set xlWbListObject = Workbooks.Open(sPathObj)
Set xlWbMakrosy = ThisWorkbook

    xlWbMakrosy.Sheets("Шаблон ППР").Range("D3").FormulaR1C1 = xlWbListObject.Range(sAddressNumBS)
    xlWbMakrosy.Sheets("Шаблон ППР").Range("C6") = .Range(sAddressNumBS) & " " & xlWbListObject.Range(sAddressNameBS)


xlWbListObject.Close
Set xlWbListObject = Nothing
Set xlWbMakrosy = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2021, 13:27
    #40098017
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить значение ячейки
Александр Быков
не работает такой код
появляется сообщение "я не работаю"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2021, 13:50
    #40098021
Александр Быков
Александр Быков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить значение ячейки
Shocker.Pro
Александр Быков
не работает такой код
появляется сообщение "я не работаю"?


ругается на эту строку
Код: vbnet
1.
xlWbMakrosy.Sheets("Шаблон ППР").Range("D3").FormulaR1C1 = xlWbListObject.Range(sAddressNumBS)


на то, что справа от знака равно - не определен метод или свойство.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2021, 14:30
    #40098034
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить значение ячейки
Правильно. Потому что xlWbListObject - это ссылка на книгу, у нее нет Range. Нужно указать конкретный лист.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2021, 14:51
    #40098041
Александр Быков
Александр Быков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить значение ячейки
Shocker.Pro
Правильно. Потому что xlWbListObject - это ссылка на книгу, у нее нет Range. Нужно указать конкретный лист.

Спасибо, всё заработало.
А не подскажите ещё - в ниже указанном коде переменная i меняется, а значение xlWbListObject.Sheets(1).Range(sAddressNumBS & i) остается изначальным, т.е. когда i было равно 2. И переменная sFileName остается прежней, т.е. когда i=2, хотя цикл проходит уже второй раз и по идее i должно быть равно 3. Где я туплю?
sAddressNumBS = "D"
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
For i = 2 To ilast
        xlWbMakrosy.Sheets("Шаблон ППР").Range("D3") = xlWbListObject.Sheets(1).Range(sAddressNumBS & i)
        xlWbMakrosy.Sheets("Шаблон ППР").Range("C6") = xlWbListObject.Sheets(1).Range(sAddressNumBS & i) & " " & xlWbListObject.Sheets(1).Range(sAddressNameBS & i)
    
    'создаем новый файл
    sFileName = sRootPathObj & xlWbListObject.Sheets(1).Range(sAddressNumBS & i) & " " & xlWbListObject.Sheets(1).Range(sAddressNameBS & i) & "\" & "ППР " & xlWbListObject.Sheets(1).Range(sAddressNumBS & i) & " " & xlWbListObject.Sheets(1).Range(sAddressNameBS & i) & ".xlsx"
    'Set xlWbNewPPR = Workbooks.Add
    'ActiveWorkbook.SaveAs sFileName
    
    xlWbMakrosy.Activate
        Sheets("Шаблон ППР").Select
        Sheets("Шаблон ППР").Copy
        Sheets("Шаблон ППР").Select
        Sheets("Шаблон ППР").Name = "ППР"
        ActiveWorkbook.SaveAs Filename:=sFileName, _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWorkbook.Close
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2021, 15:03
    #40098052
Александр Быков
Александр Быков
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить значение ячейки
Последнее сообщение аннулируется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как получить значение ячейки / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]