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
  • C# deklarace povolených znaků
    od Petrfoo » 01 říj 2017 16:04 » v Programování a tvorba webu
    8
    355
    od CZechBoY
    15 říj 2017 21:31
  • Excel
    od bylinkal » 14 zář 2017 16:50 » v Vše ostatní (sw)
    8
    306
    od bylinkal
    14 zář 2017 20:27
  • Podmienka v excel
    od jujul65 » 29 říj 2017 18:28 » v Kancelářské balíky
    5
    281
    od elninoslov
    30 říj 2017 12:21
  • Excel a vzorce
    od Herold7 » 08 led 2017 13:50 » v Vše ostatní (z oblasti IT)
    1
    308
    od mmmartin
    08 led 2017 17:27
  • Excel-vzorec
    od ScaryBean » 21 bře 2017 17:36 » v Kancelářské balíky
    2
    378
    od Zivan
    21 bře 2017 20:33

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů