VB6 Отсутствует ошибка DLL при передаче объекта Excel для работы на некоторых машинах, но работает, если не прошло. Зачем? - PullRequest
Новая
       17

VB6 Отсутствует ошибка DLL при передаче объекта Excel для работы на некоторых машинах, но работает, если не прошло. Зачем?

0 голосов
/ 08 мая 2019

Я не могу понять, почему некоторые пользователи (но не все) видят ошибки, если я передаю Excel в другую функцию или подпрограмму с помощью VB6.

Это терпит неудачу для некоторых, но не для всех. Они получают отсутствующую DLL или интерфейс не зарегистрированы, ошибка. 

sub test()
Dim xl As Object, xlwbook As Object, xlsheet As Object
Set xl = CreateObject("excel.application")
Set xlwbook = xl.Workbooks.Add(xlWBATWorksheet)
xlwbook.Sheets("Sheet1").Name = "REPORT"
Set xlsheet = xlwbook.Sheets("REPORT") 

Call formatlogo(xlsheet)
End Sub

function formatlogo(xlsheet As Worksheet)
xlsheet.Cells(1, 1).Characters(1, 1).Font.Name = "Webdings"
end function

Это работает для всех. 

sub test()
Dim xl As Object, xlwbook As Object, xlsheet As Object
Set xl = CreateObject("excel.application")
Set xlwbook = xl.Workbooks.Add(xlWBATWorksheet)
xlwbook.Sheets("Sheet1").Name = "REPORT"
Set xlsheet = xlwbook.Sheets("REPORT") 

xlsheet.Cells(1, 1).Characters(1, 1).Font.Name = "Webdings"
End Sub

Почему я не могу передать объект Excel без ошибок DLL для некоторых людей? Заранее спасибо.

...