Excel - Deklarace

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Pavel123
Level 1
Level 1
Příspěvky: 91
Registrován: prosinec 06
Pohlaví: Nespecifikováno

Excel - Deklarace

Příspěvekod Pavel123 » 01 led 2007 14:53

Dobrý den, můžete mi prosím někdo říct proč mi nefunguje kód2
když kód1 jedna funguje? Událost CommandButton1_Click() vždy
předchází události CommandButton2_Click().

Kód1, TextBox se jménem "MyTextBox" již existuje
CommandButton2_Click() funguje

Kód: Vybrat vše

Option Explicit
Dim MyObject As Object

Private Sub CommandButton1_Click()
    Dim str As String
    str = "MyTextBox"
   
    Set MyObject = ActiveSheet.OLEObjects(str).Object
    MyObject.Value = "Ahoj"
End Sub

Private Sub CommandButton2_Click()
    MsgBox MyObject.Value
End Sub

Kód2, TextBox se jménem "MyTextBox" vytvářím
CommandButton2_Click() nefunguje

Kód: Vybrat vše

Option Explicit
Dim MyObject As Object

Private Sub CommandButton1_Click()
    Dim str As String
    str = "MyTextBox"
   
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96, Top:=12, Width:=95.25, Height:=17.25 _
        ).Name = str
   
    Set MyObject = ActiveSheet.OLEObjects(str).Object
    MyObject.Value = "Ahoj"
End Sub

Private Sub CommandButton2_Click()
    MsgBox MyObject.Value
End Sub

Jinými slovy, přestože v obou případech používám proměnnou MyObject
deklarovanou v sekci General a v obou případech ji nastavuji shodně
Set MyObject = ActiveSheet.OLEObjects(str).Object
Tak v kódu2 CommandButton2_Click() skončí hláškou
Object variable or With block variable not set
Moc dík za radu.
Pavel



Reklama
cukista
Level 1
Level 1
Příspěvky: 51
Registrován: srpen 05
Pohlaví: Nespecifikováno

Příspěvekod cukista » 09 led 2007 14:18

... a nemas tam nahodou chybu v tom prikazu, kdy TextBox vkladas, myslim ten konec...

Kód: Vybrat vše

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96, Top:=12, Width:=95.25, Height:=17.25 _
        ).Name = str


nema to byt takhle?

Kód: Vybrat vše

Name:= str)


Ja jsem to nezkousel, jen mi to takhle prijde dost divne zapsane - metoda Add s parametry a za tim jeste jeji metoda...


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel
    od mansur » 30 čer 2018 15:38 » v Kancelářské balíky
    1
    409
    od xlnc
    30 čer 2018 23:23
  • Podmienka v excel
    od jujul65 » 29 říj 2017 18:28 » v Kancelářské balíky
    5
    439
    od elninoslov
    30 říj 2017 12:21
  • EXCEL, pozadí
    od VOM » 26 zář 2018 07:14 » v Kancelářské balíky
    1
    202
    od xlnc
    26 zář 2018 09:58
  • Docházka Excel
    od slepic » 25 lis 2017 16:26 » v Kancelářské balíky
    3
    750
    od VOM
    11 pro 2017 12:27
  • Padá Excel
    od JIVA2404 » 01 čer 2018 14:38 » v Kancelářské balíky
    4
    606
    od JIVA2404
    06 čer 2018 05:51

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 3 hosti