Seite 1 von 1

Hilfe beim erstellen von Procedure()

Verfasst: 04.02.2012 21:44
von Pure_Beginner
Hallo zusammen.
seit längerem versuche ich einen Codeabschnitt zwecks übersichtlichkeit in einer Procerdure unterzubringen.
Erhalte aber immer eine Fehlermeldung.

Code: Alles auswählen

Case #Gadget_frm_Haupt_btn_Hinzufuegen
                
            Suchnummer.s = ""
            Suchnummer.s = GetGadgetText(#Gadget_frm_Haupt_tbx_Suchnummer)
            Suchnummer.s = Trim(Suchnummer.s)
            
            XLSFunc_ChangeToWorksheet(ExcelTwenty5.COMateObject,Suchnummer.s) 
            
            
            ExcelTwenty5\Invoke("Columns\Select")
            ExcelTwenty5\Invoke("Columns\Copy")
            
            XLSFunc_AddWorksheetBefore(ExcelTwenty5.COMateObject)
            XLSFunc_ActivateCell(ExcelTwenty5.COMateObject, "A1") 
            ExcelTwenty5\Invoke("ActiveSheet\Paste")

Kann mir bitte jemand helfen ?

Re: Hilfe beim erstellen von Procedure()

Verfasst: 04.02.2012 21:56
von RSBasic
In welcher Zeile tritt der Fehler auf? Und was für eine Fehlermeldung bekommst du?

Re: Hilfe beim erstellen von Procedure()

Verfasst: 04.02.2012 22:04
von captain_hesse
Was denn für eine Fehlermeldung ?
Poste doch bitte mal die ganze Procedure

Edit: Sorry hat sich überschnitten

Re: Hilfe beim erstellen von Procedure()

Verfasst: 04.02.2012 22:13
von STARGÅTE
Es ist schon eine Leistung, in einer Frage nahezu garkeine Informationen zu dieser Frage zu geben :allright:

Trotzdem möchte ich deine frage beantworten:
Pure_Beginner hat geschrieben:Kann mir bitte jemand helfen ?
Ja, ich kann dir Helfen.
Du kannst die Fehlermeldung mit einer in dieser Liste PureBasic aufgeführten Funktionen beheben.

Re: Hilfe beim erstellen von Procedure()

Verfasst: 04.02.2012 23:08
von Pure_Beginner
Der fehler tritt im Modul ExcelFunktion.pbi auf.
In der Procedure

Code: Alles auswählen

Procedure XLSFunc_ChangeToWorksheet(ExcelObject.COMateObject,Name.s); Change worksheet
  ;Debug Name.s
  ExcelObject\Invoke("Worksheets('"+Name+"')\Select")
EndProcedure
mit der PurBasic ERROR Meldung: Ungültiger Speicherzugriff (Lesefehler an der Adresse 0).

Da ich blutiger Anfänger bin, bitte ich meine Unwissenheit zu entschuldigen.

Re: Hilfe beim erstellen von Procedure()

Verfasst: 04.02.2012 23:41
von jojo1541
Ich gehe einfach mal von dem Standartfehler aus, dass die entsprechenden Variablen durch das Auslagern deines Codes in eine Procedure (Außerhalb der Procedure und nicht als global deklariert, bzw. der Procedure übergeben) nicht mehr definiert sind und deshalb an die Funktion in deiner *.pbi eine Null als Objektpointer geliefert wird.

Mehr kann ich ohne mehr Informationen leider auch nicht mutmaßen... :wink:
Wink mit dem Zaunpfahl: Mehr Infos bitte

Re: Hilfe beim erstellen von Procedure()

Verfasst: 05.02.2012 00:04
von Pure_Beginner
super Tipp das übergeben der Variablen im Procedure-kopf brachte den Durchbruch.
Besten Dank für die schnelle und zahreiche Hilfe