Hallo liebes Forum,
Ich habe ein Poblem. Ich möchte gerne eine ini Datei lesen und zwar ist in der ini Datei die Range als Schlüssel eingegeben.
Ich möchte nun das der key beim einlesen der ini Datei in der richtigen zelle ist also soll der Schlüssel gelesen werden.
Ist das möglich?
Hier meine ini Datei:
[Tabelle1]
$C$4=test1
$A$6=test2
$E$8=test3
Es wird beim lesen der ini der Schlüssel in spalte A eingetragen.
Und der Key wird in spalte B eingetragen.
Ich möchte aber das die werte in die Richtige spalte geschrieben werden.
LG
Florian
.ini Datei ?
Wir leben in 2018.
Hallo,
wo kommt diese ini-Datei her, wie ist sie erstellt worden?
mfg
Guten Morgen,
Was würdest denn Du nehmen außer .ini Dateien?
Und Sie kommt von VB selbst die Datei wird in VB erstellt und soll auch wieder ausgelesen werden nur halt in die Richtigen Zellen anstatt in Zelle A und B
Lg Flo
Hallo,
separate .ini-Dateien sind seit Windows 95 mit Einführunge der Registry eher ungewöhnlich. Allerdings speichert Excel versteckt im zip-Format auch einige Parameter mit dem Workbook.
Einlesen kann man Textdateien entwerder
- FSO.ReadTextFile (oder so ähnlich)
- open Pfad & Dateiname for input as #1 (oder so ähnlich)
c00 = input(lof(1),#1)
close #1
In beiden Fällen ist der Inhalt der Datei in einer Variable, die mit c01 = split(c00, vblfcr) Zeilenweise getrennt wird. Dann wird jede Zeile mit c02 = spit(c01, "=") in Range und Wert gesplittet.
Gesetzt werden die Werte dann mit
Range(c02(0)) = c02(1)
mfg
(aus dem Gedächtnis, sicher mit kleinen Fehlern)
Ok das wusste ich gar nicht
Ich Teste es.
Danke schön
Lg Flo
Ich habe es getestet aber Ich komm nicht drauf.
Ich habe jetzt die Datei in eine .txt umgewandelt
Wenn in der Mutter Datei etwas eingegeben wird dann wird das in der .txt-Datei gespeichert und soll dann in der Tochter Datei genauso eingetragen werden aber das geht nicht.
nur warum nicht?
Ich stelle mal meine Datei hier rein damit Ihr seht was Ich meine.
Hallo,
das Klassenodul hatte ich zu spät entdeckt.
Der übliche Weg, Daten von einer Mappe in eine andere zu übertragen, ist "Workbooks.Open"
Erneut aus dem Gedächtnis:
Code:
Sub Copy_to_Datei()
dim Mutter as workbook
dim Tochter as Workbook
set Mutter = activewokbook
set Tochter = workbooks.open("c:\temp\Tocher.xlsm") '<<<< anpassen
Mutter.sheets(1).Range("A1:B10").copy Tochter.sheets(1).cells(5,1)
end sub
Das Blatt und der Range müssen entsprechend gesetzt werden.
mfg
(Frage deinen Boss, ob er Lösungen ohne die ini.Class akzeptiert)
Hey also es geht nur mit der .txt-Datei und damit auch nur mit dem Klassenmodul da wir die .txt-Datei in einen Server laden und jeder Benutzer darauf zugreifen soll.
Sprich die Datei kann Heute geändert werden und morgen kann der andere Benutzer sein Excel öffnen und sieht was anders ist.
Guten Morgen,
Ich habe es jetzt noch mal selbst probiert aber Irgendwie komm ich nicht drauf
Hätte vielleicht noch jemand einen Lösung´s Ansatz ?
Mfg
Flo