Ваши «числа», вероятно, являются текстовыми, поэтому преобразуйте их в числовые, используя Val ():
ORDER BY DRS_FILE.SSN, Val(DRS_FILE.P1);
Я снова посмотрел на эту проблему, и в коллекции Application.Addins, похоже, есть все надстройки, перечисленные в меню «Инструменты-> Надстройки», с логическим значением, указывающим, установлен ли надстройка или нет. Поэтому сейчас мне кажется, что мне нужно перебрать все надстройки, и если .Installed = true, тогда я установил .Installed в False и обратно в True, и это, похоже, правильно загружает мои надстройки.
Function ReloadXLAddins(TheXLApp As Excel.Application) As Boolean
Dim CurrAddin As Excel.AddIn
For Each CurrAddin In TheXLApp.AddIns
If CurrAddin.Installed Then
CurrAddin.Installed = False
CurrAddin.Installed = True
End If
Next CurrAddin
End Function
Используя CreateObject("Excel.Application")
имел бы тот же результат как использование New Excel.Application
, к сожалению.
Необходимо будет загрузить Дополнения, в которых Вы нуждаетесь индивидуально путем к файлу и именем с помощью Application.Addins.Add(string fileName)
метод.
Попытка:
Set XlApp = CreateObject("Excel.Application")