PDA

View Full Version : Run-time error 438: Object doesn't support this property or method



troyw
12-03-2019, 03:21 PM
Hi

I have moved over from win7 32bit to win10 64 bit, I update part of the VBA to identify win10 64

but now I am stuck on this part and it won't run, can anyone advise what i need to do

Set drift = ThisWorkbook.Sheets("AXIS Scraper").driftctrl


Thanks

p45cal
12-03-2019, 03:31 PM
I've never heard of .driftctrl; what is it?

troyw
12-03-2019, 03:36 PM
I've never heard of .driftctrl; what is it?

Hi.

It is a seperate application that it will load from excel and it then runs a list of numbers through the application and scraps the data from there back into excel.

troyw
12-03-2019, 03:38 PM
I've never heard of .driftctrl; what is it?

Here is the full VBA Section - it gets stuck on Set drift = ThisWorkbook.Sheets("AXIS Scraper").driftctrl

So it was working perfectly fine when I was running win7 32 bit, but due to going to win10 64 bit


Sub LogOnOff_Click()
Dim Status As Integer
Set drift = ThisWorkbook.Sheets("AXIS Scraper").driftctrl
Status = GetDriftStatus()
If (Status = STATUS_ROBOTRUNNING) Then
MsgBox ("Please wait for the script to finish running")
End If
If (Status = STATUS_DISCONNECTED) Then
Password = InputBox("Please enter your AXIS password:")
If (Password = "") Then
Exit Sub
End If
SetDriftStatus (STATUS_CONNECTING)
SetGotDataFunction (GOTDATA_LOGINOUT)
With drift
.cfg = SetupDriftCfg()
.Session = "AXIS"
.LaunchDrift = LFLAG_CAN_LAUNCH
.TimeOut = 7
.PutScreenNow = True
.Attach = True
End With
End If
End Sub

p45cal
12-03-2019, 03:54 PM
Without more information on this Application I've no hope of being able to help.

troyw
12-03-2019, 03:57 PM
Without more information on this Application I've no hope of being able to help.

Thanks anyway :(

Paul_Hossler
12-03-2019, 04:01 PM
Is this something that should be set in Tools, References in the VBE?

But it's more likely that the control is not 64 bit Office compatible (not the same as Win10 64 bit). A lot of the older controls are not usable with 64 bit Office