Cookies op Tweakers

Tweakers maakt gebruik van cookies, onder andere om de website te analyseren, het gebruiksgemak te vergroten en advertenties te tonen. Door gebruik te maken van deze website, of door op 'Ga verder' te klikken, geef je toestemming voor het gebruik van cookies. Wil je meer informatie over cookies en hoe ze worden gebruikt, bekijk dan ons cookiebeleid.

Meer informatie

Vraag


  • Ramkoe
  • Registratie: mei 2016
  • Laatst online: 22-10 23:47
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.

Beste antwoord (via Ramkoe op 06-04-2017 09:49)


  • Atanamir
  • Registratie: december 2014
  • Laatst online: 08:40
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...

Alle reacties


Acties:
  • Beste antwoord
  • +1Henk 'm!

  • Atanamir
  • Registratie: december 2014
  • Laatst online: 08:40
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
  • Registratie: mei 2016
  • Laatst online: 22-10 23:47
Yes! dat is de oplossing, bedankt hier was ik inderdaad niet uitgekomen en het was zoals ik dacht iets kleins.
Hulde voor de oplossing
Pagina: 1


Apple iPhone X Google Pixel 2 XL LG W7 Samsung Galaxy S9 Google Pixel 2 Far Cry 5 Microsoft Xbox One X Apple iPhone 8

© 1998 - 2017 de Persgroep Online Services B.V. Tweakers vormt samen met o.a. Autotrack en Hardware.Info de Persgroep Online Services B.V. Hosting door True

*