Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Daten aus Text-File in bestimmte Zellen in Excel importieren

Mitglied: lena123

lena123 (Level 1) - Jetzt verbinden

12.10.2007, aktualisiert 14.10.2007, 10703 Aufrufe, 2 Kommentare

Hallo!

Mein Problem ist folgendes:

Ich habe ein Textfile: "Beispiel.txt" mit nur einer Spalte mit folgendem Inhalt, wobei die Zahlen mit tabs getrennt sind:

Zahl1 Zahl2 Zahl3 ...

Diese Zahlen möchte ich nun in Excel importieren, und zwar soll Zahl1 in [B4], Zahl2 in [C4] usw.
(Bis jetzt habe ich es nur geschafft alle Werte in eine oder zwei Zellen zu schreiben)
Wenn die Daten importiert sind, soll die Text-Datei gelöscht werden.
Mein Code sieht bis jetzt so aus:


01.
Sub importData() 
02.
 
03.
    Dim sTxt As String 
04.
     
05.
    Dim strVerzeichnis As String 
06.
    Dim strDatei As String 
07.
    Dim strTyp As String 
08.
    Dim strDateiname As String 
09.
         
10.
    strTyp = "*.txt" 
11.
    strVerzeichnis = ThisWorkbook.Worksheets("Tabelle2").Cells(25, 2) 
12.
    strDateiname = Dir(strVerzeichnis & strTyp) 
13.
   
14.
With ThisWorkbook.Worksheets("Tabelle1") 
15.
         Do While strDateiname <> "" 
16.
            Open strDateiname For Input As #1 
17.
            Do Until EOF(1) 
18.
            Line Input #1, sTxt 
19.
             
20.
        ... 
21.
      
22.
End Sub
Gruß + Danke
Mitglied: bastla
12.10.2007 um 16:11 Uhr
Hallo lena123!

Wenn die Daten tatsächlich nur in einer (der ersten) Zeile der Textdatei stehen, könntest Du etwa so vorgehen:
01.
Sub importData() 
02.
 
03.
Const iAbSpalte = 2 'B 
04.
Const iAbZeile = 4 
05.
 
06.
Dim sTxt As String 
07.
Dim vWert As Variant, iSpalte As Integer 
08.
 
09.
Dim strVerzeichnis As String 
10.
Dim strDatei As String 
11.
Dim strTyp As String 
12.
Dim strDateiname As String 
13.
 
14.
strTyp = "*.txt" 
15.
strVerzeichnis = ThisWorkbook.Worksheets("Tabelle2").Cells(25, 2) 
16.
strDateiname = Dir(strVerzeichnis & strTyp) 
17.
 
18.
With ThisWorkbook.Worksheets("Tabelle1") 
19.
    If strDateiname <> "" Then 'Datei gefunden 
20.
        Open strDateiname For Input As #1 
21.
        If Not EOF(1) Then 'Daten vorhanden 
22.
            Line Input #1, sTxt 'Nur erste Zeile lesen ... 
23.
            aDaten = Split(sTxt, vbTab) '... zerlegen, die Werte der einzelnen Felder in ein Array schreiben ... 
24.
            iSpalte = iAbSpalte 
25.
            For Each vWert In aDaten ... und diese Werte einzeln ... 
26.
                .Cells(iAbZeile, iSpalte).Value = CDbl(vWert) ... (nach Umwandlung in eine Zahl) eintragen. 
27.
                iSpalte = iSpalte + 1 
28.
            Next 
29.
        End If 'Daten vorhanden 
30.
        Close 1 
31.
    End If 'Datei gefunden 
32.
End With 
33.
End Sub
Die Adresse, ab welcher die Daten eingetragen werden sollen, habe ich (wegen der Übersichtlichkeit) in den "Const"-Zeilen am Anfang festgelegt.

Grüße
bastla
Bitte warten ..
Mitglied: lena123
14.10.2007 um 17:43 Uhr
Hallo bastla,

das hat funktioniert, vielen Dank!

Gruß
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren

Frage von MariaElenaVB for Applications2 Kommentare

Hallo, ich brauche eure Hilfe. Es wird eine CSV Datei durch einen Scanprozess erzeugt, und diese Datei enthält viele ...

Microsoft Office

HTML File import in Excel Zelle

gelöst Frage von lupitaMicrosoft Office14 Kommentare

Hallo zusammen Gibt es eine Möglichkeit auf einem HTML File den Code in eine einzelne Zelle zu füllen. Wenn ...

Microsoft Office

Daten in Excel unter best. Bedingungen importieren

gelöst Frage von schwazzaMicrosoft Office4 Kommentare

Hallo, ich importiere zurzeit Formulardaten nach Excel aus allen Word-Dateien, die sich in einem bestimmten Ordner befinden. Die Dateien ...

Microsoft Office

Importieren von excel daten in outlook vba

gelöst Frage von BgervaisMicrosoft Office10 Kommentare

Hallo, mein Deutsch ist nicht so gut, aber ich versuche es trotzdem. (Excel und Outlook - Deutsch Sprache) ich ...

Neue Wissensbeiträge
Sicherheit
Adminrechte dank Bug in Intel HD Graphics Treiber
Information von DerWoWusste vor 6 StundenSicherheit

Intel HD graphics 4200 und neuer (4400, 4600 520,530,620, 630,) sind auf jeden Fall betroffen und bereinigte Treiber sind ...

Router & Routing

Endlich: Reines Kabel-TV Modem in D erhältlich !

Information von aqui vor 3 TagenRouter & Routing10 Kommentare

Mit dem Technicolor TC4400-EU Modem sind nun auch Breitband Router ohne integriertes Modem oder Firewalls wie z.B. die pfSense ...

Netzwerkgrundlagen
The Illustrated TLS Connection
Information von Lochkartenstanzer vor 3 TagenNetzwerkgrundlagen1 Kommentar

Moin, Unter findet man eine gelungene Erläuterung von TLS. Fördert sehr das verständnis darüber, was da passiert. lks

Windows 10

Zuverlässiger Remove-AppxProvisionedPackage Ausführen in W10-1803

Tipp von NetzwerkDude vor 5 TagenWindows 104 Kommentare

Moin, Remove-AppxProvisionedPackage hat in 1709 recht zuverlässig funktioniert, in 1803 ist es leider so das es gerne mail failed ...

Heiß diskutierte Inhalte
Windows Server
AD User wird immer wieder gesperrt
Frage von YellowcakeWindows Server20 Kommentare

Hey ich habe einen User (ein GL User - Natürlich was denn sonst) der immer wieder gesperrt wird. Ich ...

Windows Netzwerk
Gruppenrichtlinie für einen PC deaktivieren
gelöst Frage von Florian961988Windows Netzwerk14 Kommentare

Hallo, kleines Problem und immoment finde ich dazu keine Lösung oder mir fällt nicht ein, wie ich es suche ...

Festplatten, SSD, Raid
LSI 9361 Controller, versehentlich virtual Drive am Controller gelöscht
Frage von pixel24Festplatten, SSD, Raid12 Kommentare

Hallo zusammen, gibt es hier einen Experten der sich gut mit LSI MegaRAID auskennt? Ich habe versehentlich im Controller-BIOS ...

Switche und Hubs
OpenSource oder Freeware zur Verwaltung von Switchen
gelöst Frage von JonskezSwitche und Hubs12 Kommentare

Hallo, gibt eine kostenlose Verwaltungssoftware für Switche (überwiegend HP/Aruba)? Es sollte möglich sein, aus der Ferne z.B. die Firmware ...