• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Запуск И Редактирование Excel 2010 Из Под Access

  • Автор темы Molniya43
  • Дата начала
M

Molniya43

Добрый день! Нужна помощь.
Копаюсь в чужом коде, сам имел практику в VBA очень и очень давно (поэтому прошу объяснять, как для школьника))))..
суть: из под аксеса выполняем запрос, открываем его в эксель, далее сравниваем значения в соседних столбцах и если они не совпадают-окрашиваем строку красным цветом

Код:
	Dim appExcel As Excel.Application, sh As Worksheet, rng As Range, mypath As String
mypath = CurrentProject.Path & "\Проверка.xls"
mysheet = "CheckBG" 
DoCmd.OutputTo acOutputQuery, mysheet, "Excel 97 - Excel 2003 Workbook (*.xls)", mypath, 1 
Set appExcel = GetObject(mypath, "Excel.Application") 
Set sh = appExcel.Sheets(mysheet) 
With sh
If .Cells(2, 11).Value <> .Cells(2, 12).Value Then
Set rng = .Range(.Cells(2, 1), .Cells(2, 20)) 
With rng.Interior 
.ColorIndex = 46
.Pattern = xlSolid
End With
End If
End With

Ошибка : ActiveX component cant create objeсt на строке Set appExcel = GetObject(mypath, "Excel.Application")
ЧЯДНТ?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!