vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
VBA(Excel): mehrere Textdateien nacheinander importieren 
Autor: Dago1978
Datum: 29.11.04 09:22

Hallo,

ich hab ein Problem und bräuchte dringend ein paar Tipps.
Ich habe folgenden Quellcode vorliegen. Dabei wird eine Textdatei "protocol_1" importiert. Diese soll am Schluß der Routine wieder gelöscht werden. Ich möchte gerne 50 Textdateien nacheinander öffnen und wieder schließen, also diesen Code 50 mal durchlaufen. Der Dateiname soll von "protocol_1 - protocol_50" automatisch hochgezählt werden. Gibt es die Möglichkeit eine for...next-Schleife zu implementieren?

Vielen Dank für die Hilfe

' Import einer Textdatei
 
 
    Sheets("Import Textdateien").Select
    Range("A1").Select
 
    With ActiveSheet.QueryTables.Add( _
      Connection:="TEXT;F:\protocol_1.txt", Destination:=Range("A1"))
        .Name = "protocol_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(4, 9, 7, 11, 11, 8, 8, 8)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = " "
        .Refresh BackgroundQuery:=False
    End With
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VBA(Excel): mehrere Textdateien nacheinander importieren2.001Dago197829.11.04 09:22
Re: VBA(Excel): mehrere Textdateien nacheinander importieren1.074Lord Of Trance29.11.04 18:49
Re: VBA(Excel): mehrere Textdateien nacheinander importieren1.161Dago197830.11.04 09:09

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel