OPEN - GET - PUT - CLOSE, ich blick's nicht!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Volker,
vielen Dank für Deine Geduld. Ich habe jetzt einen Code gefunden (siehe unten), der geht schon in die Richtung was ich vor habe. Den Rest bekomme ich bestimmt noch hin.
Aber beim dem Code kommt dann allerdings immer eine Aufforderung zum Konvertieren. Irgendwo muss der Code in .txt speichern.
Wo muss ich den Code abändern, damit die Daten richtig in .xls geschrieben werden.
Vielen Dank,
und ich finds ganz super, dass Anfänger in diesem Forum auch eine Antwort bekommen.
Gruß
Edwin


Sub ReadFromTxtFile()
'Writes cell contents to .txt file
Const strSTARTCELL = "A1"                 'first cell to write data
Const strDATAFILE = "C:\Daten\EXCEL\Test-Daten.xls"    'path and file name of .txt-File
Dim strActValue As String                 'each line of text file
Dim intFileNo As Integer                  'file no for "open" command
Dim lngLineNo As Integer                  'line number starting with 0
lngLineNo = 0                             'init
intFileNo = FreeFile(0)                   'get free file no
Open strDATAFILE For Input Access Read As intFileNo 'open .txt file
Do While Not EOF(intFileNo)
Line Input #intFileNo, strActValue      'read each line of .txt file
Range(strSTARTCELL).Offset(lngLineNo) = strActValue 'write value to cell
lngLineNo = lngLineNo + 1               'increment table row
Loop
Close intFileNo                           'close .txt file
End Sub


Sub WriteToTxtFile()
'Reads .txt file and writes each line to a cell
Const strSTARTCELL = "A1:A10"             'range in table with data
Const strDATAFILE = "C:\Daten\EXCEL\Test-Daten.xls"    'path and file name of .txt-File
Dim varActValue As Variant                'each cell content
Dim intFileNo As Integer                  'file no for "open" command
intFileNo = FreeFile(0)                   'get free file no
Open strDATAFILE For Output Access Write As intFileNo 'open .txt file
For Each varActValue In Range(strSTARTCELL)
Print #intFileNo, CStr(varActValue)        'write each cell content to file as a line
Next
Close intFileNo                           'close .txt file
End Sub

Hallo Edwin,
sorry, aber Du bist dem typischen Anfängerirrtum aufgesessen, dass man hier nur ein paar vage Andeutungen zu posten braucht, und schon bekommt man eine mundgerechte Lösung für ein mehr oder weniger komplexes Problem.
Ich bin kein Profi und die meisten anderen hier auch nicht. Bei vielen Fragen muß man erstmal selber knobeln, bevor man eine Antwort geben kann.
Insbesondere haben wahrscheinlich die wenigsten die komplette VBA-Syntax parat.
Das heißt, man schmeißt selber den Makrorekorder an und strickt das Ergebnis entsprechend um. Mit ein bisschen Erfahrung geht das oft.
Auf die Gefahr hin, mich zu wiederholen: Der Code, den Du in der Hilfe gefunden hast,
öffnet ein txt-file zum zeilenweisen Auslesen.
Das ganze Gedöns mit Freefile und random access und end of line kann man meines Wissens nicht auf eine Excel anwenden.
Und wenn Du eine Excel öffnest, gibt es eigentlich auch nichts zu konvertieren.
Also Nochmal: Workbooks.Open Filename:="D:\_AAA\willi.xls"
Mit dieser einfachen Zeile öffnest Du aus einem Makro heraus eine bestimmte Excel-Datei.
Und aus dieser Datei heraus kannst Du nach herzenslust Daten kopieren.
Vielleicht hab ich auch einfach nur ein Brett vor dem Kopf, und schnall nicht, was Du vorhast.
Sollte das so sein, dann könntest Du ja deine Frage vorsichtig neu stellen.
Vorsichtig, weil einige hier peinlich darauf achten, das eine Frage nicht mehrfach gestellt wird. Aber hier sieht es so aus, dass wir beide nicht zuzsammen kommen und andere die Frage aufgrund der vielen Beiträge wohl als abgehakt betrachten.
Ich bin auf jeden Fall neugierig, wie es weitergeht.
Gruß
Volker

Beliebteste Forumthreads (12 Monate)

OPEN - GET - PUT - CLOSE, ich blick's nicht!

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread