VBA ждет на OLE Action - PullRequest
Новая
       21

VBA ждет на OLE Action

0 голосов
/ 18 марта 2019

Я натягиваю волосы на свой код VBA в ожидании действия OLE, и он запускается на всех моих формах, которые я запускаю в этой книге.Я попытался нажать «игнорировать приложения, использующие DDE», у меня не запущено никаких надстроек, и я ничего не отправляю и не взаимодействую с какой-либо программой за пределами Excel.Ниже приведен пример кода.Я в отчаянии и хотел бы помочь! 

Private Sub CommandButton3_Click()

Dim companyNumber, contactF1, LastName, title, Email, dphone, cphone, nextcontact As Integer
Dim List As Range: Set List = Worksheets("Database").Range("CompanyNames")
Dim contactrange As Range

companyNumber = WorksheetFunction.Match(ComboBox1, List, 0) + 1 

LastName = 1
title = 2
Email = 3
dphone = 4
cphone = 5
nextcontact = 6

Application.ScreenUpdating = False

Set contactrange = Range(Worksheets("Database").Cells(companyNumber, editrange.Value), Worksheets("Database").Cells(companyNumber, editrange.Value + cphone))

Worksheets("Database").Cells(companyNumber, editrange.Value).Value = NewFName.Value
Worksheets("Database").Cells(companyNumber, editrange.Value + LastName).Value = NewLName.Value
Worksheets("Database").Cells(companyNumber, editrange.Value + title).Value = NewTitle.Value
Worksheets("Database").Cells(companyNumber, editrange.Value + Email).Value = NewContactEmail.Value
Worksheets("Database").Cells(companyNumber, editrange.Value + dphone).Value = NewDirectPhone.Value
Worksheets("Database").Cells(companyNumber, editrange.Value + cphone).Value = NewCellPhone.Value


    If CheckBox1 = True Then
        CreateCandidate.CandidateFName.text = EditContact.NewFName.text
        CreateCandidate.CandidateLName.text = EditContact.NewLName.text
        CreateCandidate.CandidateTitle.text = EditContact.NewTitle.text
        CreateCandidate.CandidateEmail.text = EditContact.NewContactEmail.text
        CreateCandidate.CandidateDphone.text = EditContact.NewDirectPhone.text
        CreateCandidate.CandidateCphone.text = EditContact.NewCellPhone.text
        CreateCandidate.Show
    Else
    End If

    If CheckBox2 = True Then
        contactrange.Delete shift:=xlToLeft
        'add message box confirming deletion!!!!!!!!!
    Else
    End If

EditContact.Hide
editrange.Value = 7
MsgBox "Contact Edited" & vbNewLine & "Changes Saved"

    LookupForm.CNameSearch.text = EditContact.ComboBox1.text
    LookupForm.ContactSearchBtn = True

Call Clear_ALL_Controls
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
...