Benutzerdefinierte Struktur einem Variant zuweisen
27.08.2005 05:13:13
Michael
ich moechte aus einem Excel Sheet heraus eine Flatfile zur Uebertragung per EDI an ein Hostsystem erzeugen. Hierzu plane ich das Satzformat der EDI Datei als benutzerdefinierte Type zu erstellen und in eine Flatfile zu schreiben.
Beispiel:
Option Explicit
Type TestType
Field01 As String * 10
Field02 As String * 20
End Type
Sub TestTheType()
Dim NewType As TestType
Dim varTest As Variant
NewType.Field01 = "1234567890"
NewType.Field02 = "09876543210987654321"
varTest = NewType
Open "C:\TEMP\EDIFILE.TXT" For Output As #1
Print #1, varTest
Close #1
End Sub
Bei Kompilierung des Moduls gibt Excel die Fehlermeldung "Nur benutzerdefinierte Typen, die in öffentlichen Objektmodulen definiert wurden, können in den oder aus dem Typ Variant umgewandelt werden, oder an eine zur Laufzeit auflösbare Funktion weitergeleitet werden" in Zeile "varTest = NewType".
Ist die Zuweisung grundsaetzlich moeglich und die Deklaration der Struktur nur an der falschen Stelle ? Muss ich eine spezielle Umwandlungsfunktion aufrufen ?
Danke fuer Eure Hilfe und tschuess aus Hong Kong
Michael
Anzeige