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

[troyw]

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]

I've never heard of .driftctrl; what is it?

[troyw]

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]

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]

Without more information on this Application I've no hope of being able to help.

[troyw]

Without more information on this Application I've no hope of being able to help.

Thanks anyway

[Paul_Hossler]

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