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

Frage Entwicklung VB for Applications

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, 10669 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
Formular Daten in Excel importieren
gelöst Frage von hausensMicrosoft Office16 Kommentare

Guten Morgen, Ich steh vor einem Problem bei dem ich nicht weiterkomme, Hoffe jemand von euch kann mir dabei ...

Microsoft Office
Excel Text in Zelle bis Komma abschneiden
gelöst Frage von cphowdyMicrosoft Office4 Kommentare

Hi, ich ärger mich wahrscheinlich gleich wenn ich das gepostet habe, aber steh grad auf dem Schlauch. Ich habe ...

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 ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 3 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 3 TagenSicherheit12 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall10 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS9 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen9 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...

Windows Netzwerk
Zugriff auf den Desktop Ordner eines anderen Rechners in der gleichen Domäne
gelöst Frage von JensNomaWindows Netzwerk6 Kommentare

Guten Abend, ich war neulich mit unserem Admin am Tisch gesessen. Er an seinem Notebook angemeldet mit dem Domänen-Admin, ...