Re: Datei übernahme
10.01.2003 07:52:57
Andy
Hallo Andréerstmal danke für deine mühe.
leider konnte ich damit nicht viel anfange, bin totaler neuling. mein unvollständiges programm wird in excel 97 eingebunden und darin wird alles in deutsch geschrieben.
ich habe mich schon etwas damit beschäftigt und komme nicht mehr weiter.Ich habe dir das programm mal unten reinkopiert.
zu den funktionen habe ich mir folgendes vorgestellt.
öffnen der quelle(binärdatei) -> auslesen in eine Variable(solange bis die daten als byte (je 4 stellen)
ausgelesen sind ->schließen ->diese daten sollen als byte untereinander in eine excelspalte geschrieben werden->
danach diese Byte in eine Gleitkommazahl umwandeln.
Sub Öffnen_der_Quelle()
Öffne: "AH_00000.tme"; FürBinär, ZugriffLesen als#1
End Sub
Sub Auslesen_der_Quelle_in_Datenblatt()
Dim Übernahme, alsEinfach
Dim Werte, alsEinfach
solange EOF 'Schleife bis end of file
Hole Werte(), alsEinfach, ZugriffSchreiben
endesolange 'Beendet Schleifenfunktin
End Sub
Sub Schließen_der_Quelle()
Schliesse: 'Beendet die Ein- und Ausgaben in einer Datei
'die mit der Öffne-Anweisung geöffnet wurde
End Sub
Sub Umwandelung_in_Gleitkommazahl()
Datei1 = ZuEinfach(Datei1) ' Datei enthält 75,34211. 'evt. Befehl bin mir aber noch nicht sicher
End Sub
ich hoffe du kannst mir auch in dieser form weiterhelfen.
gruß Andy