Hello,
I am not sure. It could be a problem of Microsoft.
Here the following description to ActiveSheet.
http://support.microsoft.com/kb/210663/en
Unfortunately, Comate does not function directly with code VBA and has to go
for Purebasic are adapted. Whether everything functions in COMate,
can say srod in the English forum more about it.
[Edit="VBA"]
I have found there still something else in addition.
Only do not point I, how I with COMatePlus
can use.
Sub SeitenzahlDerAktivenTabelleErmitteln()
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "Anzahl der Seiten = " & i
End Sub
(
http://cad-it-portal.ch/cad-school/TNT/ ... n_VBA.html ) Excuse me, it is into German
[/Edit]
[Edit2]
Ich schreibe jetzt mal kurz in deutsch für alle anderen weiter.
Dieser VBA-Code gibt wohl die Anzahl der druckbaren Seiten aus, die in einer Tabelle vorhanden sind.
Wenn ich jetzt nur den Code ausführe wird mir 1 angezeigt. Sobald ich mehrere Druckbereiche z.B. auf Tabelle1
erstelle, werden auch mehrere Seiten angezeigt. Nur wie ich dieses in PB mit COMate umsetzen muß, habe ich noch
nicht herausgefunden. Da der VBA-Code oben funktioniert, habe ich hier nur den Anfang der PB-Anpassung probiert.
Vielleicht weiß hier noch jemand, was ich da noch ändern muss. Ich bekomme einen Fehler: Type mismatch in the method parameters.
was wohl auf einen Fehler in den Parametern hinweist.
Code: Alles auswählen
Procedure.i XLSFunc_Get_SidesNumbers(ExcelObject.COMateObject)
Protected ReturnValue.i
ReturnValue=ExcelObject\GetIntegerProperty("ExecuteExcel4Macro('Get\Document(50)')"):Debug COMate_GetLastErrorDescription()
ProcedureReturn ReturnValue
EndProcedure
dieser Code ist also noch nicht ganz richtig. Invoke gibt nichts aus und SetProperty einen negativen 8stelligen Wert.
[/Edit2]
Falko.
