Hej Søren
Jeg forsøgte din ide, dog uden at det gav noget brugbart resultat -
desværre...
Når jeg skriver "Set" foran samt "New" foran objected, for jeg
fejlmeddelelsen "syntax error". Fejlen ser ud til at være relateret til
"New", som åbenbart overtræder en regel, og betyder at jeg ikke engang
kan køre koden. Fjerner jeg "New", kan jeg begynde at debugge mig
igennem koden, indtil jeg når linien med "Set", hvorefter jeg får
fejlen: "Runtime Error '424' - Object required".
Jeg har kopieret koden ind nedenfor, for at være sikker på, at vi stadig
snakker om de samme linie. Deruder har jeg som forsøg tilføjet en
CallByName uden for løkken, for at checke at det virker.
Jeg er stadig meget åben for ideer.
Mvh.
Henrik
KODEN:
Private Sub TestFunction()
Dim V As Object
Dim TableCaption(3) As String
Test = CallByName(Sheet1.Table1, "Caption", VbGet)
For i = 1 To 3
Set V = New "Sheet1.Table" & i
TableCaption(i) = CallByName(V, "Caption", VbGet)
Next i
End Sub
soren wrote:
> Det er vistnok først inde i løkken, du skal bruge
> Set V = New "Sheet1.Table" & i
> New, skal vistnok med.
> Dim V As Object før løkken, er vist rigtig nok.
> Du ka da prøve!.
> soren
>
> "remove "at"" <"hz\"at\"post12.tele.dk (remove \"at\")"> skrev i en
> meddelelse news:47930206$0$25989$88260bb3@free.teranews.com...
>> Jeg har forgæves forsøgt at arbejde med dynamiske objecter i VB (under
>> Excel 2003), men det er ikke lykkedes at få det til at fungere, måske
>> nogen har en idé til hvad jeg gør galt...
>>
>> Følgende er et kode eksempel, hvor jeg forsøger tildele en variable værdi
>> til et object således, at kan udlæse forskellige navne på knapper jeg har
>> placeret i et worksheet og gemme dem i et array.
>>
>>
>>
>> Private Sub TestFunction()
>>
>> Dim V As Object
>> Dim TableCaption(3) As String
>>
>> For i = 1 To 3
>> V = "Sheet1.Table" & i
>> TableCaption(i) = CallByName(V, "Caption", VbGet)
>> Next i
>>
>> End Sub
>>
>>
>> Når jeg kører ovenstående kode, får jeg meddelelsen: "Runtime Error 91,
>> Object variable or With block variable not set". Jeg tror problemet er
>> relateret til variable objecter, hvor ovenstående eksempel vist nok kræver
>> "late binding", men uanset hvor meget jeg leder på microsofts support
>> side, har jeg ikke findet et svar der bringer mig videre.
>>
>> Henrik
>>
>> --
>> Posted via a free Usenet account from
http://www.teranews.com
>>
>
>
--
Posted via a free Usenet account from
http://www.teranews.com