Thema Datum  Von Nutzer Rating
Antwort
12.09.2013 20:36:39 kiwi121
Solved
Blau DAT Dateien in Excel öffnen
12.09.2013 22:42:01 kiwi121
NotSolved
13.09.2013 01:07:53 kiwi121
NotSolved

Ansicht des Beitrags:
Von:
kiwi121
Datum:
12.09.2013 22:42:01
Views:
860
Rating: Antwort:
  Ja
Thema:
DAT Dateien in Excel öffnen

Kleiner Nachtrag:

 

Also ich habe jetzt schon einen Code gefunden der mir die DAT-Datei einließt, allerdings findet leider keiner Sortierung der Spalten statt. Also werden alle Werte aus der ersten Zeile in der A1 gesetzt alle Werte aus der zweiten Zeile in B1 usw. hier muss dem Programm noch irgendwie gesagt werden das bei jedem Leerzeichen eine Spalte genommen werden soll.

 

Hat vielleicht einer eine Idee? Hier der bisherige Code:

Option Explicit

Sub Datei_importieren()
 
Dim Datei As String, Text As String
Dim Zeile As Long
   
On Error GoTo Fehler

'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\test1.dat"

Open Datei For Input As #1    ' Quelldatei öffnen.

Zeile = 1

Do While Not EOF(1)        ' Schleife bis Dateiende
    Line Input #1, Text    ' Text lesen
    ActiveSheet.Cells(Zeile, 1) = Text
    Zeile = Zeile + 1
Loop

Close #1  'Quelldatei schließen
       
Exit Sub


Fehler:
Close #1

    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "da ist leider ein Fehler aufgetreten"
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.09.2013 20:36:39 kiwi121
Solved
Blau DAT Dateien in Excel öffnen
12.09.2013 22:42:01 kiwi121
NotSolved
13.09.2013 01:07:53 kiwi121
NotSolved