Hilfe VBA ? Permanenz einlesen

[Fips]

Hallo.

Schön das es hier sowas gibt. Genau das oberste Thema ist mein Problem. Leider wurde es 2004 beendet.

Bin auch da ehr ein Laie.

Habe ein Code ... der bis jetzt wunderbar funktioniert ...

Permanenzen stehen in einer Text-Datei und ich muß sie immer wieder von Hand eingeben.

Mein Problem:

Ich möchte, das Vba die Datei lädt und die Zahlen selbstständig eingibt.

Wie binde ich die Datei ein ?

Bräuchte dafür einen Code. Benutze VB 6

b = txtEing.Text .... hier soll VB die Zahlen selbst aus der Datei abrufen und quasi in die Textbox schreiben ... das Ergebnis erscheint dann im Programm (funktioniert alles, wenn ich die Zahlen selbst eingebe ) ... und ich möchte dann nur die Progression oder was gesetzt werden soll, im Code verändern. Bin für eure Hilfe sehr dankbar.

LG Fips

[baboon]

Hallo.

Schön das es hier sowas gibt. Genau das oberste Thema ist mein Problem. Leider wurde es 2004 beendet.

Bin auch da ehr ein Laie.

Habe ein Code ... der bis jetzt wunderbar funktioniert ...

Permanenzen stehen in einer Text-Datei und ich muß sie immer wieder von Hand eingeben.

Mein Problem:

Ich möchte, das Vba die Datei lädt und die Zahlen selbstständig eingibt.

Wie binde ich die Datei ein ?

Bräuchte dafür einen Code. Benutze VB 6

b = txtEing.Text .... hier soll VB die Zahlen selbst aus der Datei abrufen und quasi in die Textbox schreiben ... das Ergebnis erscheint dann im Programm (funktioniert alles, wenn ich die Zahlen selbst eingebe ) ... und ich möchte dann nur die Progression oder was gesetzt werden soll, im Code verändern. Bin für eure Hilfe sehr dankbar.

LG Fips

Dir hat immer noch keiner geholfen??? unglaublich... na dann mach ich das mal

Private Sub ReadFile()

Dim SourceFile As String

Dim fsoDIR As New FileSystemObject

Dim lines() As String

Dim X As Long

Dim NewCoup As String

Dim anzCoups As Long

SourceFile = UCase$(App.Path) & "\Datei.txt"

If fsoDIR.FileExists(SourceFile) = False Then

Exit Sub

End If

lines = Split(fsoDIR.OpenTextFile(SourceFile).ReadAll, vbNewLine)

anzCoups = UBound(lines)

For X = 0 To anzCoups

NewCoup = Trim(lines(X))

If IsNumeric(NewCoup) = True And (Len(NewCoup) = 2 Or Len(NewCoup) = 1) Then

'in newCoup liegt nun die Permanenzzahl

'also hier nun dein code rein, was mit der Zahl passieren soll

End If

Next X

End Sub

noch Fragen? dann meld dich!

bearbeitet Februar 25, 2011 von baboon

[strolchiii]

[baboon]

was willst du sagen? ich verstehs nich

[Fips]

Hallo Baboon.

Danke dir für deine Hilfe und deine Zeit. Werd ich gleich mal ausprobieren und mich nochmal melden.

LG Fips

[Fips]

Hallo Baboon.

Also das funktioniert leider erst mal nicht. Leider hab ich auch nicht viel Ahnung von VB. Deshalb ist sehr viel mit If then geschrieben und geht über mehrere Call Anweisungen. Den groben Aufbau wollt ich dir schicken. Leider darf ich noch keine Mails hier senden, oder weiß nicht wie. Wenn möglich schick du mir ne leere Mail, damit ich deine addy bekomm.

MfG Fips

[baboon]

Hallo Baboon.

Also das funktioniert leider erst mal nicht. Leider hab ich auch nicht viel Ahnung von VB. Deshalb ist sehr viel mit If then geschrieben und geht über mehrere Call Anweisungen. Den groben Aufbau wollt ich dir schicken. Leider darf ich noch keine Mails hier senden, oder weiß nicht wie. Wenn möglich schick du mir ne leere Mail, damit ich deine addy bekomm.

MfG Fips

Kann nicht sein.... gut schick mir den code an poes(at)gmx.de

[Heiß75]

Moin Baboon

Ich frage dich,über Permanenzen auslesen nach VBA Excel?? kann möglicher??

ich habe keine erfahrung für VBA Excel.

ich brauche ja nach Permanenzen auslesen nach VBA Excel automatische eingabe.

weil für Boss Media und Playtech!!

Dir hat immer noch keiner geholfen??? unglaublich... na dann mach ich das mal

Private Sub ReadFile()

Dim SourceFile As String

Dim fsoDIR As New FileSystemObject

Dim lines() As String

Dim X As Long

Dim NewCoup As String

Dim anzCoups As Long

SourceFile = UCase$(App.Path) & "\Datei.txt"

If fsoDIR.FileExists(SourceFile) = False Then

Exit Sub

End If

lines = Split(fsoDIR.OpenTextFile(SourceFile).ReadAll, vbNewLine)

anzCoups = UBound(lines)

For X = 0 To anzCoups

NewCoup = Trim(lines(X))

If IsNumeric(NewCoup) = True And (Len(NewCoup) = 2 Or Len(NewCoup) = 1) Then

'in newCoup liegt nun die Permanenzzahl

'also hier nun dein code rein, was mit der Zahl passieren soll

End If

Next X

End Sub

grüß Heiß75