Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: osmor Примерно так
Dim objCh As OLEObject ....... ....... rst!format = ws.Cells(i, 4) For Each objCh In ws.OLEObjects If objCh.TopLeftCell.Row = i Then rst!rap = objCh.Object.Value Next rst!part_number = ws.Cells(i, 8) ......
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.