|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.11.2015 08:44:47 |
joerg |
|
|
|
27.11.2015 11:52:22 |
Gast38073 |
|
|
|
27.11.2015 20:27:50 |
joerg |
|
|
 mehrere Textdateien per Makro mit "Opentext "in Excel importieren |
27.11.2015 22:18:44 |
Gast38157 |
|
|
|
28.11.2015 12:59:58 |
Gast71553 |
|
|
|
28.11.2015 22:33:59 |
joerg |
|
|
|
28.11.2015 23:21:19 |
Gast42519 |
|
|
|
29.11.2015 11:42:55 |
Gast29586 |
|
|
|
29.11.2015 19:35:46 |
joerg |
|
|
|
30.11.2015 11:11:58 |
Gast42392 |
|
|
|
30.11.2015 18:35:18 |
joerg |
|
|
|
29.11.2015 21:37:54 |
Gast19665 |
|
|
Von:
Gast38157 |
Datum:
27.11.2015 22:18:44 |
Views:
747 |
Rating:
|
Antwort:
|
Thema:
mehrere Textdateien per Makro mit "Opentext "in Excel importieren |
|
Hallo!
Sitze an nem anderen Rechner deswegen wird die Formatierung wohl nicht hinhauen. Probiere es aber trotzdem mal schnell. Also zur ersten Frage, da fehlt zwischen Right(pfad,1) und dem "\" ein <> . Der Code prüft da eigentlich nur ob bei dem Pfad am Ende ein \ ist und hängt es wenn nicht vorhanden an. Das ist im weiteren wichtig, da dort an den Pfad nur der Dateiname angehängt werden muss um den kompletten Pfad zum Öffnen zu haben. Würde den Pfad aber wie geschrieben nicht über die INBOX wählen, da könnten sich die Leute zu leicht verschreiben. Die Zeile sollte also lauten:
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
Zur zweiten Frage. Das = ist falsch. Leider. :-) An der Stelle das <> belassen. Gib dann mal an Stelle deines Workbooks.Open ein Msgbox Datei ein und lasse es durchlaufen. Dann siehst du ungefähr was passiert. Kurz erklärt:
Datei = Dir(pfad & "*.txt")
sucht beim betreffenden Pfad nach einer TXT Datei. Wenn er keine findet wird "" gesetzt ansonsten der Name. Datei hat also immer den Dateinamen oder "" als Inhalt. In der Do While Loop durchläuft er dann praktisch alle TXT Dateien. Die Zeile Datei = DIR weist dann die nächste Datei zu oder halt "" was die Schleife beendet, wenn alle durch sind. Werde morgen mal schauen, dass ich dein OpenText mit einbaue. Wird hier ohne Editor nichts (und glaube das hier ist auch schon schlecht zu lesen).
Gruß
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
27.11.2015 08:44:47 |
joerg |
|
|
|
27.11.2015 11:52:22 |
Gast38073 |
|
|
|
27.11.2015 20:27:50 |
joerg |
|
|
mehrere Textdateien per Makro mit "Opentext "in Excel importieren |
27.11.2015 22:18:44 |
Gast38157 |
|
|
|
28.11.2015 12:59:58 |
Gast71553 |
|
|
|
28.11.2015 22:33:59 |
joerg |
|
|
|
28.11.2015 23:21:19 |
Gast42519 |
|
|
|
29.11.2015 11:42:55 |
Gast29586 |
|
|
|
29.11.2015 19:35:46 |
joerg |
|
|
|
30.11.2015 11:11:58 |
Gast42392 |
|
|
|
30.11.2015 18:35:18 |
joerg |
|
|
|
29.11.2015 21:37:54 |
Gast19665 |
|
|