Diffuculties with compatibility

[dermitdenaces]

Hi,

i am having some problems with a project im working on. For me the project is working fine. But when I send it to a colleauge it wont work for him, he is using an older version of excel.
Im pretty sure the problem is that im using microsoft 16.0 Object library and he is using the old 15.0 version. I read online that late binding should fix this. I tried to late bind everything but im still getting errors. Help would be greatly aprreaciated.

The function left is throwing an error (cant find project or libarary). If we check in tools references the libarys are not marked as missing.

 

[dermitdenaces]

Sub Send_Mail_Esk()

Dim emailApplication As Object
Dim emailItem As Object
Dim strPath As String
Dim lngPos As Long

Dim test As Object


strPath = ActiveWorkbook.FullName
lngPos = InStrRev(strPath, ".")
strPath = Left(strPath, lngPos) & "pdf"

Dim activerow As Long
activerow = ActiveCell.Row
ActiveSheet.Unprotect "****"
'Copies Cells for Printing to bottom of cell
ActiveSheet.Range(("B3:N8") & ",B" & activerow & ":N" & activerow).Copy Sheets("Model").Range("B212:M221")

ActiveSheet.PageSetup.PrintArea = "B212:N221"

ActiveSheet.PageSetup.Orientation = 2
ActiveSheet.PageSetup.Zoom = False
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

ActiveSheet.ExportAsFixedFormat xlTypePDF, strPath

Set emailApplication = CreateObject("Outlook.Application")
Set emailItem = emailApplication.CreateItem(0)

emailItem.To = Range("AD" & activerow).Value
emailItem.Subject = Range("AE" & activerow).Value
emailItem.HTMLBody = Range("AF" & activerow).Value
emailItem.Attachments.Add strPath
emailItem.Display

Set emailItem = Nothing
Set emailApplication = Nothing

'Deletes All Copied Cells and Pictures from previous copy

Sheets("Model").Range("B212:N221").Delete
Dim pic As Picture
For Each pic In ActiveSheet.Pictures
If Not Application.Intersect(pic.TopLeftCell, Range("B208:N221")) Is Nothing Then
pic.Delete
End If
Next pic
ActiveSheet.Protect "*****"

' Delete the PDF file (not nesecarry) keep most recent updated send file




End Sub

 

[Joe4]

Welcome to the Board!

Are you saying that the "LEFT" function is causing you issues? The LEFT function has been around for ages, and the older versions should not have any issue with it.
If you compare the VBA References, do you have all the same ones checked (the version numbers might be slightly different, but the names should all be essentially the same - make sure you aren't missing any)!

Also, what version of office is this other user using?

And which line of code is returning the error, and what exactly does the error message say?

 

[dermitdenaces]

The message translates to: Error when comiling: Project or Libary not found.

 

[dermitdenaces]

The rest of the questions I will need to come back with, but thanks for helping already!

 

[jsb1921]

I agree 1000% Left is not the problem. Having said that, you can verify by trying strPath = Mid(strPath, 1, lngPos) & "pdf"
you can also try msgbox (left("Helloworld",5))
I have a feeling lngPos has bad value.
you have to check
if lngPos > 0 then
strpath=left(strpath,lngpos)
else
msgbox ("error")
end if

 

[Fluff]

@jsb1921 The fact that the OP is getting a compile error, means the code has not run & therefore lngPos is irrelevant.

@dermitdenaces do you get the same error if you use

strPath = VBA.Left(strPath, lngPos) & "pdf"

 

[dermitdenaces]

Thanks for your help. The VBA solved the problem. Could you explain why this is sometimes needed?

 

[Fluff]

Could you explain why this is sometimes needed?

Fraid not. It's not something I've ever had to use, but I have seen other threads on here where adding the VBA. has removed the problem.