Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
.txt Datei über Makro einlesen
zurück: Autofilter mit mehreren Kriterien durch Checkboxen definiert weiter: Absteigend Sortieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
oPhilippeo
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 11:38
Rufname:

.txt Datei über Makro einlesen - .txt Datei über Makro einlesen

Nach oben
       Version: Office 2010

Salut zusammen
Mein Code:

Code:

Sub Schaltfläche2_Klicken()
 
'Datei von Notes importieren (Muss unter "D:\No Backup\Temp\" als "export2.txt" gespeichert sein
    If Not FileExists("D:\No Backup\Temp\export2.txt") Then
       MsgBox "Export-Datei -- D:\No Backup\Temp\export2.txt -- ist nicht vorhanden"
       Exit Sub
    End If
   
    With Tabelle1.QueryTables.Add(Connection:= _
         "TEXT;D:\No Backup\Temp\export2.txt", _
         Destination:=Range("A1"))
    End With

End Sub
Private Function FileExists(FileName As String) As Boolean
    If FileName <> "" Then
        FileExists = (Dir$(FileName) <> "")
    Else
        FileExists = False
    End If
End Function


Problem:
Vermutlich muss bei With... irgendetwas falsch sein, denn wenn export2.txt nicht vorhanden ist, dann kommmt eine Fehlermeldung. Wenn export2.txt vorhanden ist geschieht einfach nichts.
Ulrix
immer Anfänger ;-)


Verfasst am:
28. Feb 2013, 12:44
Rufname:

AW: .txt Datei über Makro einlesen - AW: .txt Datei über Makro einlesen

Nach oben
       Version: Office 2010

Hallo,

evtl. kannst du hier Anforderungen anpassen

Code:
Private Sub CommandButton2_Click()
Dim wksNeu As Worksheet
Dim lngAbZeile As Long
Dim lngAbSpalte As Long
Dim qtb As QueryTable
Dim strPfad As String
Dim strDatei As String
lngAbZeile = 1
lngAbSpalte = 1
strPfad = "C:\Users\User\Desktop\LEX_IM_Export\" 'XXXXXXXXXXXXXXX Anpassen

                          strDatei = UserForm1.ListBox1.List(ListBox1.ListIndex, 0)
 If Len(strDatei) < 3 Then Exit Sub
 Set wksNeu = ThisWorkbook.Worksheets.Add
 wksNeu.Name = strDatei
 Set qtb = wksNeu.QueryTables.Add( _
     Connection:="TEXT;" & strPfad & strDatei, _
     Destination:=wksNeu.Cells(lngAbZeile, lngAbSpalte))
 qtb.Name = "txt_demo"
 qtb.FieldNames = True
 qtb.RowNumbers = False
 qtb.FillAdjacentFormulas = False
 qtb.PreserveFormatting = True
 qtb.RefreshOnFileOpen = False
 qtb.RefreshStyle = xlInsertDeleteCells
 qtb.SavePassword = False
 qtb.SaveData = True
 qtb.AdjustColumnWidth = True
 qtb.RefreshPeriod = 0
 qtb.TextFilePromptOnRefresh = False
 qtb.TextFilePlatform = xlWindows
 qtb.TextFileStartRow = 1 'lngAbZeile
 qtb.TextFileParseType = xlDelimited
 qtb.TextFileTextQualifier = xlTextQualifierDoubleQuote
 qtb.TextFileConsecutiveDelimiter = False
 qtb.TextFileTabDelimiter = False
 qtb.TextFileSemicolonDelimiter = True
 qtb.TextFileCommaDelimiter = False
 qtb.TextFileSpaceDelimiter = False
 qtb.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
 qtb.Refresh BackgroundQuery:=True
 qtb.Delete
' strDatei = Dir


End Sub


LG[/code]
oPhilippeo
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 15:00
Rufname:


AW: .txt Datei über Makro einlesen - AW: .txt Datei über Makro einlesen

Nach oben
       Version: Office 2010

Dein Code scheint mir recht komplex. Ich habe nun einen Befehl gefunden, mit dem ich ebenfalls eine .txt Datei einlesen kann. Leider importiert er die Textdatei in ein neues Exceldokument und nicht in das Aktuelle.

Code:
Sub ImportTextFile()
    Set myTextFile = Workbooks.Open("D:\No Backup\Temp\export2.txt")
End Sub


Weiss jemand, was ich abändern muss, damit der Inhalt der Textdatei in der Tabelle 1 des aktuellen Dokuments landet?

- Edit

Ich habe nun eine Lösung gefunden.

Code:
Sub auslesen()
    Dim wbZiel As Workbook
    Dim wbQuelle As Workbook
    Set wbZiel = ThisWorkbook 'Die Mappe, in der der Code liegt
    Set wbQuelle = Workbooks.Open("C:\Temp\Geräteausgabe.xls")
   
    wbQuelle.Sheets(1).Cells.Copy Destination:=wbZiel.Sheets(1).Cells
   
    wbQuelle.Close SaveChanges:=False
    Set wbQuelle = Nothing
    Set wbZiel = Nothing
End Sub


Habe mit diesem Code das .txt File eingelesen.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Aus HTML Datei Daten ziehen und Excel Diagramm machen 3 reloader 1029 17. Aug 2006, 17:03
reloader Aus HTML Datei Daten ziehen und Excel Diagramm machen
Keine neuen Beiträge Excel Formeln: SUMMEWENN Bezug auf andere Datei BITTE HILFE! 1 Maaadin 1141 07. Jul 2006, 11:56
tom_r SUMMEWENN Bezug auf andere Datei      BITTE HILFE!
Keine neuen Beiträge Excel Formeln: Makro durch Funktion starten 11 Borsty22 12858 01. Apr 2006, 18:35
Hübi Makro durch Funktion starten
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1615 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Keine neuen Beiträge Excel Formeln: Problem mit Makro 6 Nicole-Fun 1347 05. Jan 2006, 10:00
fridgenep Problem mit Makro
Keine neuen Beiträge Excel Formeln: automatisches Makro 1 Mixery 1568 09. Dez 2005, 20:21
ae automatisches Makro
Keine neuen Beiträge Excel Formeln: SummeWenn auf andere Datei 1 sheela 1768 29. Nov 2005, 15:10
ae SummeWenn auf andere Datei
Keine neuen Beiträge Excel Formeln: HILFE" brauche dringend eine Formel oder Makro" 2 norbert10296 933 28. Okt 2005, 16:39
jvakleve61 HILFE" brauche dringend eine Formel oder Makro"
Keine neuen Beiträge Excel Formeln: 2 Spalten in zwei Dateien vergleichen und X in eine Datei 3 Daniel der Unwissende 4414 14. Okt 2005, 13:30
c0bRa 2 Spalten in zwei Dateien vergleichen und X in eine Datei
Keine neuen Beiträge Excel Formeln: Formel aus bestehender Datei in neue Exceldatei kopieren 3 astahn 3896 10. Okt 2005, 16:19
Dudo Formel aus bestehender Datei in neue Exceldatei kopieren
Keine neuen Beiträge Excel Formeln: 2 xls Datei Wert aus der auslesen 4 Gast 727 27. Jul 2005, 21:35
ae 2 xls Datei Wert aus der auslesen
Keine neuen Beiträge Excel Formeln: Verweis auf andere Excel Datei 1 Cruchot 1046 13. Jul 2005, 20:13
fl618 Verweis auf andere Excel Datei
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme