Importeren Excel werkblad werkt niet in oudere versie

[Ramkoe]

Mijn vraag
Voor het importeren van een scan CSV. maak ik gebruik van een macro die prachtig werkte in mijn versie op mijn laptop. Nu wilde ik hem gebruiken om mijn machine op het werk en daar werkt mijn macro ineens niet meer.

Relevante software en hardware die ik gebruik
Werkt op office 2016
werkt niet op office 2010

Wat ik gebruik:

---

Sub ImportSheet()

Dim sImportFile As String, sFile As String
Dim sThisBk As Workbook
Dim vfilename As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sThisBk = ActiveWorkbook
sImportFile = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel Workbooks, *.csv", Title:="Open Workbook")
If sImportFile = "False" Then
MsgBox "No File Selected!"


Else
vfilename = Split(sImportFile, "\")
sFile = vfilename(UBound(vfilename))
Application.Workbooks.Open Filename:=sImportFile

Set wbBk = Workbooks(sFile)
With wbBk
If SheetExists("scan export") Then
Set wsSht = .Sheets("scan export")
wsSht.Copy before:=sThisBk.Sheets(Sheets.Count)
Else
MsgBox "Er is geen sheet die scan export heet" & vbCr & .Name
End If
wbBk.Close SaveChanges:=False
End With
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub
Private Function SheetExists(sWSName As String) As Boolean

Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets(sWSName)
If Not ws Is Nothing Then SheetExists = True
End Function

---

De code stokt in office 2010 op de zaak op deze regel Set wbBk = Workbooks(sFile)

met de melding dat die het project of bibliotheek niet kan vinden.

Het is denk ik een klein dingentje maar ik snap niet waarom hij het niet doet zo goed zit ik er niet in aangezien ik deze code van het internet had gehaald en zoals ik al zij hij werkte.

Bij voorbaat dank voor het meedenken.

[Atanamir]

Ik ben op de zaak hier dezelfde problemen tegengekomen. Een macro die al jaren goed werkt in oudere versies van Excel wordt 1x opgeslagen in Office 2016 en daarna werkt die gewoon niet meer in 2010.

Probleem zit er volgens mij in dat de "Microsoft Office 16.0 Object Library" niet wordt gevonden in eerdere versies.

Als je in de code naar tools > references gaat kun je deze uitvinken, en "Microsoft Office 14.0 Object Library" (or eerdere versie) weer aanzetten. Grote kans dat het daarna weer werkt...

[Ramkoe]

Yes! dat is de oplossing, bedankt hier was ik inderdaad niet uitgekomen en het was zoals ik dacht iets kleins.
Hulde voor de oplossing