Aleksew (Автор тем)

Теряется ссылка на объект Application после ошибки

Пользователь

Сообщений: 7 Регистрация: 03.09.2016

19.10.2019 10:17:03

Добрый день, помогите разобраться. Разрабатываю сейчас надстройку для excel и столкнулся с проблемой: в модуле "ЭтаКнига" в файле надстройки .xlam содержится следующий код:

Код

Public WithEvents App As Application

Public Sub Workbook_Open()
    Set App = Application
End Sub

Public Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Row = 1 Then
'при выборе первой строки будет вызвана ошибка намеренно для демонстрации
    MsgBox ("Строка " + Target.Row + " Столбец " + Target.Column)
Else
    MsgBox ("Строка " & Target.Row & " Столбец " & Target.Column)
    End If
End Sub

При запуске excel создаётся объект App (как бы ссылка на объект запущенного приложения Excel) и по началу все работает, пока не дойдёт дело до ошибки и дебага.При остановке дебага, на сколько я понимаю объект App выгружается из памяти, и весь функционал перестает работать до следующего перезапуска excel. Так же помогает восстановить объект выключение/включение надстройки в меню "Надстройки" панели "Разработчик".

Как бы сделать так, чтобы этот объект восстановился без перезапуска?

Перейти

[VBA] Создание/обращение к переменным созданных в процессе выполнения программы

Aleksew

Пользователь

Сообщений: 7 Регистрация: 03.09.2016

14.10.2016 14:42:40

Добрый день
Возможно ли средствами VBA создавать/обращаться к переменной, имя которой формируется в процессе выполнения программы? Например вот так

Код

Sub Test()

Dim va11 as string
Dim va12 as string
Dim VaribleNAme as string

val1 = "ValName"

For i = 0 to 1 Step 1
VaribleNAme = val1 + i 'вот здесь формируется имя переменной 
Next i
...
...
msgbox ValName0 + 10
msgbox ValName1 + 1
End Sub

Перейти

Преобразование экспоненциального числа в Double (VBA)

Aleksew Пользователь Сообщений: 7 Регистрация: 03.09.2016	# 03.09.2016 14:53:49 Добрый день. Помогите разобраться. Нужно написать метод на вход которого передаётся string, с числом записаным в виде "2.3E-2", а затем этот метод должен преобразовать в тип double, то есть на выходе получить 0,023
	Перейти