ReSQL.ru
     
powered by simpleCommunicator - 2.0.34     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как получить значение ячейки
6 сообщений из 6, страница 1 из 1
Как получить значение ячейки
    #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:10
| Ответить | Цитировать | Написать  
Как получить значение ячейки
    #40098017
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Александр Быков
не работает такой код
появляется сообщение "я не работаю"?
...
Рейтинг: 0 / 0
16.09.2021, 13:27
| Ответить | Цитировать | Написать  
Как получить значение ячейки
    #40098021
Александр Быков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр Быков
Гость
Shocker.Pro
Александр Быков
не работает такой код
появляется сообщение "я не работаю"?


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


на то, что справа от знака равно - не определен метод или свойство.
...
Рейтинг: 0 / 0
16.09.2021, 13:50
| Ответить | Цитировать | Написать  
Как получить значение ячейки
    #40098034
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Правильно. Потому что xlWbListObject - это ссылка на книгу, у нее нет Range. Нужно указать конкретный лист.
...
Рейтинг: 0 / 0
16.09.2021, 14:30
| Ответить | Цитировать | Написать  
Как получить значение ячейки
    #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, 14:51
| Ответить | Цитировать | Написать  
Как получить значение ячейки
    #40098052
Александр Быков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр Быков
Гость
Последнее сообщение аннулируется.
...
Рейтинг: 0 / 0
16.09.2021, 15:03
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как получить значение ячейки
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru, Чат Кролика       Пашэ: Рисунки, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2171725]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 302ms
total:  451ms
созд. / загр.: 451ms
x
x
Закрыть


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