Import einer .prs Datei mit Tab Abstandsmarkierungen, wie?

[Audiojoy]

Hallo!

vielleicht kann mir einer Helfen bei dem Problem.
Hab von einem Lieferanten eine Artikel/Preisdatei (.prs Datei) bekommen.
Die Trennzeichen sind keine Semikolons, Kommata oder sontiges sondern als
"feste Breiten".
in der Ameise konnte ich das nicht importieren bzw. hab nicht gefunden wie.
Dann wollte ich das zuerst in Excel laden und wieder exportieren.
Würde auch gehen, wenn die Datei nicht über 500.000 Artikel/Zeilen erhalten würde.
Excel streikt dabei (maximal 65565).
Müsste es erst komplett aufsplitten mit z.b. Ultra Edit oder sowas ?
Ausserdem zerhackt mit Ultra Edit oder Excel die Ä Ü Ö ß weil die .prs wohl laut
Aussage des Lieferanten ne Datenbank Export Datei aus DOS sein soll (?!)

Gehts irgnedwie am Stück mit der Ameise?

 

[peter76]

AW: Import einer .prs Datei mit Tab Abstandsmarkierungen, wie?

Hallo,

vielleicht Excel updaten? Ich glaube die Excel 2007 kann mehr als 1 Mio Zeilen aufnehmen!

Hab gerad gegoogelt

Mit nen Makro muss es in Excel klappen

Sub LargeFileImport()

'Dimension Variables
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter As Double
'Ask User for File's Name
FileName = InputBox("Please enter the Text File's name")
'Check for no entry
If FileName = "" Then End
'Get Next Available File Handle Number
FileNum = FreeFile()
'Open Text File For Input
Open FileName For Input As #FileNum
'Turn Screen Updating Off
Application.ScreenUpdating = False
'Create A New WorkBook With One Worksheet In It
Workbooks.Add template:=xlWorksheet
'Set The Counter to 1
Counter = 1
'Loop Until the End Of File Is Reached
Do While Seek(FileNum) <= LOF(FileNum)
'Display Importing Row Number On Status Bar
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
'Store One Line Of Text From File To Variable
Line Input #FileNum, ResultStr
'Store Variable Data Into Active Cell
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
If ActiveCell.Row = 65536 Then
'If On The Last Row Then Add A New Sheet
ActiveWorkbook.Sheets.Add
Else
'If Not The Last Row Then Go One Cell Down
ActiveCell.Offset(1, 0).Select
End If
'Increment the Counter By 1
Counter = Counter + 1
'Start Again At Top Of 'Do While' Statement
Loop
'Close The Open Text File
Close
'Remove Message From Status Bar
Application.StatusBar = False

End Sub

Quelle: Zu große CSV-Datei in Exel auswerten

 

[Audiojoy]

AW: Import einer .prs Datei mit Tab Abstandsmarkierungen, wie?

Danke für die Hilfe!
Das würde bestimmt klappen nur hab ich keine Ahnung wie ich das in Excel mache.
Hab mit Macros da noch nie was gemacht und weiss nicht wie ich die Datei dann noch importieren soll.