Excel vba frage ?!

Leifen334 · 19. Januar 2012, 11:04

Hey Leute ich hätte da mal ne Frage,

also ich möchte gerne in einer Excel Tabelle bestimmte Informationen Aus einer Text Datei einfüge (die informationen sin mit ; getrennt)
Nun wie soll ich weiter machen bzw wie kann ich weiter machen:

Quellcode

Sub HAUPTPROGRAMM()
'Einlesen Übergabe Dateien
Dim i As Long
Dim Z As String
Dim a As Variant
Dim n As Long
Open "C:\Praktikum\XL_Aiways_LG_2012_01.txt" For Input As #1
n = 0
While Not EOF(1)
Wend
WHILE_ENDE_01:
Close #1
End Sub

Ich hoffe ihr konnt mir weiterhelfen

VanDerLars · 19. Januar 2012, 11:53

Hallo

den txt-Inhalt solltest du mit der obigen Prozedur auslesen können

Wenn du nun die Werte, die mit ";" getrennt sind einzeln aufrufen willst, dann splitte sie:

VB.NET-Quellcode

dim Gesplittet
Gesplittet = Split(WERTE_AUS_TEXTDATEI, ";")

die einzelnen Werte kannst nun über den Index aufrufen:

VB.NET-Quellcode

Dim Wert1 = Gesplittet(0)
Dim Wert2 = Gesplittet(1)
... usw

Leifen334 · 19. Januar 2012, 11:59

und wie füge ich sie in die richtigen spalten ein ?
und bei mir steht syntax fehler

VanDerLars · 19. Januar 2012, 12:06

Ich sehe gerade, dein Code aus Post#1 wohl nicht funktionieren dürfte, da musst du mal die SuFu verwenden, das Thema gabs schon oft und Google hilft.
Einen genauen Code, wier du die Werte in Spalten bekommst kannich dir nicht geben, weiß ja nicht, was du damit machen willst. wie deine Tabelle aussieht und wo die WErte hingeschrieben werden sollen!

Leifen334 · 19. Januar 2012, 21:11

Soo ich hab den code ein bissl verändert...

Quellcode

Sub txtfile()
Dim strFile$
strFile = "C:\Praktikum\XL_Aiways_LG_2012_01.txt"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ActiveSheet.Range("A1"))
.FieldNames = True
.AdjustColumnWidth = True
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.TextFileOtherDelimiter = ""
.Refresh BackgroundQuery:=False
End With
End Sub

Aber ich will die informationen in den tabellenspallten B, C, D, H und I haben

Wie muss der Code dann heißen ?

VanDerLars · 19. Januar 2012, 21:21

In welche Zeilen?

Leifen334 · 19. Januar 2012, 21:23

in Zeile 3

Leifen334 · 19. Januar 2012, 22:21

In den Gelben kästchen sollen die infos rein :P

VanDerLars · 19. Januar 2012, 23:17

range("a3").select
activecell = DER_WERT_ZUM_SCHREIBEN

und das für alle Zellen!

Leifen334 · 20. Januar 2012, 09:21

Sry das ist mir jetzt ein bissl peinlich...aber ich habss net gerafft wo musst das denn rein und wie für alle ? :love:

VanDerLars · 20. Januar 2012, 11:41

Gut OK, fangen wir beim Ur-Schleim an

Folgende Fragen:

Hast du schonmal mit VBA programmiert?

Verstehst du den Programmtext und was er machen soll?

Müssen die aus der Textdatei ausgelesenen Werte IMMER in die gleichen Zellen?

ich helf dir dann weiter!

Leifen334 · 20. Januar 2012, 12:18

haha ok danke schon mal

also nun richtig progarmiert habe ich nich net

ich brauche das wegen privaten gründen^^

nun sie gleichen infos müssen untereinander stehen... also so steht es in der txt datei:

info;info;info;info;info
info;info;info;info;info
info;info;info;info;info
info;info;info;info;info

B ; C ; D ; H ; I <-- hier soll es in excel eingefügt werden

ich hoffe du hast es verstanden :love:

VanDerLars · 20. Januar 2012, 12:24

Okay, zu meinem Verständis
Deine Textdatei enhält:

info;info;info;info;info
info;info;info;info;info
info;info;info;info;info
info;info;info;info;info

Deine Tabelle soll dann so aussehen

...B....C...D....H....I
1 info info info info info
2 info info info info info
3 info info info info info
4 info info info info info
5 info info info info info
6 info info info info info

Ich bastel dir mal was, kann aber bis Montag dauern! HAb dz. viel zutun!

Leifen334 · 20. Januar 2012, 12:27

Yes

Excel vba frage ?!

Excel vba frage ?!

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben