Status OptionButton opvragen

[AABE]

Geacht forum,

Ik probeer de waarde van een optionbutton op te vragen in een excel 2003 sheet welke geopend is met workbooks.open vanuit een andere sheet.

In Excel 2003 gaat dit prima.
Als ik het in Excel 2007 doe krijg ik de foutmelding;
Runtime error 438
Object doesn't support this property or method.

Weten jullie een oplossing?

De sheet waar de optiebutton in staat is door mij niet aan te passen.

Ik hoor het graag....

mvg,

Aat

 

[zapatr]

Ik probeer de waarde van een optionbutton op te vragen in een excel 2003 sheet welke geopend is met workbooks.open vanuit een andere sheet.

Als je vermeldt welke opdracht je gebruikt om die waarde op te vragen,
dan is wel na te gaan of die opdracht wel of niet in verschillende Excelversies werkt.

 

[AABE]

Hi Zapatr,

hierbij de gebruikte code.....

mvg,

Aat

Sub Test()


    ' create list of workbooks in foldername
    FolderName = thisworkbookpath & "\CRF"
    
    wbCount = 0
    wbName = Dir(FolderName & "\" & "*.xl*")
    While wbName <> ""
        wbCount = wbCount + 1
        ReDim Preserve wbList(1 To wbCount)
        wbList(wbCount) = wbName
        wbName = Dir
    Wend
    
    
    For i = 1 To wbCount
        
        ' open the source workbook, read only
        Set wb = Workbooks.Open(FolderName & "\" & wbList(i), True, True)

        With wb.Sheets(1)
            If .optionbutton3 = True Then ordtype = "Add"
            If .optionbutton5 = True Then ordtype = "Modify"
            If .optionbutton7 = True Then ordtype = "Cease"
        End With

        'write values in mastersheet.
        
    Next


End Sub

 

[zapatr]

Je gebruikt:

With wb.Sheets(sht)

maar ik zie sht nergens gedefinieerd.
Als die niet gedefinieerd is, dan zal dat in ALLE Excelversies tot een foutmelding leiden.

 

[AABE]

In de totale code wordt deze wel gedefinieerd.

 

[zapatr]

Ik heb geen Excel 2007 en kan je vraag niet zo meteen beantwoorden.
Er zijn ook te veel onduidelijkheden in de code (wbList bv.)
Google eens met 'Runtime error 438', je komt dan vele discussies tegen met verschillen tussen Excel 2007 en vorige versies.