Question

我的问题是我必须将一些Optionbutton从Excel文档复制到Access。

但是在这部分代码上出现了Error 438? The Erros is Coming oWS.Worksheets（“ Tabelle1”）。Controls（“ OptionButton”＆i）.Value`。

当我编写这样的代码时，它会起作用。

".Fields("id") = oWS.Worksheets("Tabelle1").OptionButton4.Value"

但是我有很多“ Optioinbuttons”，因此我想创建一个“ for循环”。

我有Access2013。

这是代码：

Set oWS = oXL.Workbooks.Open(strPath & strFile)
Set rs = CurrentDb.OpenRecordset("test")
         With rs
         'i = 14
            For i = 3 To 10
            .AddNew
               .Fields("id") = oWS.Worksheets("Tabelle1").Controls("OptionButton" & i).Value
             .Update
           Next i
         .Close
         End With

Answer 1

Sheets没有一个Controls-Collection，但是有一个OLEObjects-Collection，您可以在其中找到OptionButton。试试：

 .Fields("id") = oWS.Worksheets("Tabelle1").OLEObjects("OptionButton" & i).Object.Value

VBA选项按钮

1 个答案: