Wertübergabe an Calc zellen
Verfasst: Do 21. Feb 2013, 19:48
Hallo!
Seit hundert Jahren versuche ich mit früher Exel dann OO und jetzt mal wieder bei LO eine serielle Schnittstelle anzusprechen, was mit immer wieder nicht gelingt. dann suche ich einige Tage im Internet und gebe es auf. Sicherlich ist es sehr trivial. Aber ich kann es nicht.
Habe mir auch z.B: Steuern und Regeln mit Exel gekauft, mit tollen Beispielen, nur habe ich nie einen Zellinhalt ausfüllen können.
Ein beispiel Programm mit rsapi.dll ist:
Declare Sub IX_OPENCOM Lib "RSAPI.DLL" (ByVal ix%, ByVal Parameter As String)
Declare Function IX_CLOSECOM Lib "RSAPI.DLL" (ByVal ix%) As Integer
Declare Function IX_TIMEOUT Lib "RSAPI.DLL" (ByVal ix%, ByVal ms As Integer) As Integer
Declare Function IX_READSTRING Lib "RSAPI.DLL" (ByVal ix%, ByVal s As String) As Integer
Sub Lesen()
Dim portinit As String, antw As String
portinit = "COM1:1200,N,8,1"
IX_OPENCOM 1, portinit
IX_TIMEOUT 1, 4000
antw = Space$(10)
IX_READSTRING 1, antw
Cells(1, 1).Value = antw
IX_CLOSECOM 1
End Sub
Die "Portini" einstellen kann ist. Aber der Befehl
cells(1,1). Value = antw geht nicht.
So würde ich raten, daß er in LO anders heißt. Wenn ich jemals ein Zeichen oder String empfangen oder sende könnte, würde ich alles andere durch rumspielen herausfinden können.
Please, Please. . . .
Carsten
Seit hundert Jahren versuche ich mit früher Exel dann OO und jetzt mal wieder bei LO eine serielle Schnittstelle anzusprechen, was mit immer wieder nicht gelingt. dann suche ich einige Tage im Internet und gebe es auf. Sicherlich ist es sehr trivial. Aber ich kann es nicht.
Habe mir auch z.B: Steuern und Regeln mit Exel gekauft, mit tollen Beispielen, nur habe ich nie einen Zellinhalt ausfüllen können.
Ein beispiel Programm mit rsapi.dll ist:
Declare Sub IX_OPENCOM Lib "RSAPI.DLL" (ByVal ix%, ByVal Parameter As String)
Declare Function IX_CLOSECOM Lib "RSAPI.DLL" (ByVal ix%) As Integer
Declare Function IX_TIMEOUT Lib "RSAPI.DLL" (ByVal ix%, ByVal ms As Integer) As Integer
Declare Function IX_READSTRING Lib "RSAPI.DLL" (ByVal ix%, ByVal s As String) As Integer
Sub Lesen()
Dim portinit As String, antw As String
portinit = "COM1:1200,N,8,1"
IX_OPENCOM 1, portinit
IX_TIMEOUT 1, 4000
antw = Space$(10)
IX_READSTRING 1, antw
Cells(1, 1).Value = antw
IX_CLOSECOM 1
End Sub
Die "Portini" einstellen kann ist. Aber der Befehl
cells(1,1). Value = antw geht nicht.
So würde ich raten, daß er in LO anders heißt. Wenn ich jemals ein Zeichen oder String empfangen oder sende könnte, würde ich alles andere durch rumspielen herausfinden können.
Please, Please. . . .
Carsten