Hej,

Kan någon förklara varför felmeddelandet 458 uppstår i nedanstående kod och hur det kan lösas?

Tack på förhand,
Dennis

<code>
Option Explicit

Public Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Bytes As Long)

Sub Split_Transfer_Add_Sheet_65536()
Dim fsoObj As Scripting.FileSystemObject
Dim fsoFile As Scripting.file
Dim fsoTS As Scripting.TextStream
Dim vaData As Variant, vaTarget() As Variant
Dim lnNoFiles As Long, lnNumberRows As Long
Dim dbCount As Double
Dim j As Long, i As Long

Const lnMaxRows As Long = 65536

Set fsoObj = New Scripting.FileSystemObject
Set fsoFile = fsoObj.GetFile("e:\Test\test.txt")
Set fsoTS = fsoFile.OpenAsTextStream(ForReading, TristateFalse)

vaData = Split(fsoTS.ReadAll, vbNewLine, , vbBinaryCompare)

lnNumberRows = UBound(vaData) + 1

If lnNumberRows <= lnMaxRows Then
MsgBox "Can´t split the file - number of rows <= 65536 rows.", vbExclamation
fsoTS.Close
Exit Sub
Else
fsoTS.Close
End If

lnNoFiles = Int(lnNumberRows / lnMaxRows)
dbCount = lnNumberRows Mod lnMaxRows
If dbCount > 0 Then
lnNoFiles = lnNoFiles + 1
End If

Application.ScreenUpdating = False

i = 0
For j = 1 To lnNoFiles
If j <> lnNoFiles Then
Erase vaTarget
ReDim vaTarget(0 To 65536)
MoveMemory vaTarget(0), vaData(i), i + lnMaxRows
Worksheets.Add
Cells(1, 1).Resize(65536).Value = TransposeData(vaTarget)
i = i + lnMaxRows
Else
i = lnNumberRows - (lnNoFiles - 1) * lnMaxRows
Erase vaTarget
ReDim vaTarget(0 To lnNumberRows)
MoveMemory vaTarget(0), vaData(i), lnNumberRows
Worksheets.Add
Cells(1, 1).Resize(i).Value = TransposeData(vaTarget)
End If
Next j

Set fsoTS = Nothing
Set fsoFile = Nothing
Set fsoObj = Nothing
Set vaData = Nothing
Erase vaTarget
Application.ScreenUpdating = True

End Sub

Function TransposeData(Matris As Variant) As Variant
Dim vaDataMatris() As Variant
Dim i As Long

ReDim vaDataMatris(LBound(Matris) To UBound(Matris), _
LBound(Matris) To LBound(Matris))
For i = LBound(vaDataMatris) To UBound(vaDataMatris)
'Här stoppas proceduren och felmeddelandet error 458 visas <------------
vaDataMatris(i, LBound(vaDataMatris)) = Matris(i)
Next i

TransposeData = vaDataMatris

End Function
</code>

>Kan någon förklara varför felmeddelandet 458 uppstår i nedanstående kod och hur det kan lösas?

Vet itne exakt vad som orsakar felet, men du kan inte göra en direkt minneskopia av Variant variabler med MoveMmeory så där, eftersom de kan innehålla pekare till allokerat minne, och systemet då kommer försöka frigöra samma minne flera gånger.

Varför använder du MoveMemory över huvud taget, iställer för vanlig tilldelning?


MS

Variable uses a type not supported in Visual Basic (Error 458)

Det skulle hjälpa om du berättar hur din fil såg ut och vad du vill göra.

Du får vara försiktig med MoveMemmory. Om informationen inte har rätt format så blir det. Variant datatypen har en header som talar om vad det är för datatyp. KAn vara så att du skrivit över den med din data.

Hej MS,

"Varför använder du MoveMemory över huvud taget, iställer för vanlig tilldelning?"

Jo, jag försöker hantera textfiler i storleksordning 40-50 MB....och det jag eftersträvar är att minimera tidsåtgången (Jo, jag vet att Acces/MySQL etc är bättre alternativ men jag är hänvisad till XL...)

Jag har en ADO-baserad lösning men den fungerar inte i 97:an...
Jag har även tagit fram en lösning baserad på traditionell "array-slicing" som fungerar men som tar en evighet...

Hej Andreas,
"Variant datatypen har en header som talar om vad det är för datatyp. KAn vara så att du skrivit över den med din data."

Intressant och jag tror att det mycket möjligt kan ligga i detta - Hur tar jag reda på det?

Dennis