Mijn macro loopt vast sinds ik ben overgestapt van de oude naar de nieuwe excel versie. Bij de xls liep hij niet vast en na het omzetten naar xlsx wel.
In de macro geeft hij bij foutopsporing aan dat het zit in: lNameLen = Asc(Mid(strXl, i - 3, 1))
met foutmelding 5: Ongeldige procedure-aanroep of ongeldig argument
Waarschijnlijk is het een kleinigheidje, maar ik kom er niet uit.
Wie kan me helpen?
Hieronder heb ik een groter deel van de macro gezet.
Gr. Joop
In de macro geeft hij bij foutopsporing aan dat het zit in: lNameLen = Asc(Mid(strXl, i - 3, 1))
met foutmelding 5: Ongeldige procedure-aanroep of ongeldig argument
Waarschijnlijk is het een kleinigheidje, maar ik kom er niet uit.
Wie kan me helpen?
Hieronder heb ik een groter deel van de macro gezet.
Gr. Joop
Code:
strFlag1 = Chr(0) & Chr(0)
strflag2 = Chr(32) & Chr(32)
hdlFile = FreeFile
Open strPath For Binary As #hdlFile
strXl = Space(LOF(hdlFile))
Get 1, , strXl
Close #hdlFile
J = InStr(1, strXl, strflag2)
#If Not VBA6 Then
'// Xl97
For i = J - 1 To 1 Step -1
If Mid(strXl, i, 1) = Chr(0) Then Exit For
Next
i = i + 1
#Else
'// Xl2000+
i = InStrRev(strXl, strFlag1, J) + Len(strFlag1)
#End If
'// IFM
lNameLen = Asc(Mid(strXl, i - 3, 1))
LastUser = Mid(strXl, i, lNameLen)
Laatst bewerkt:
