控件的访问价值

Question

在访问时，我有一个带有下拉列表的导航表单（舞台）（Modifiable84）。如何在导航表单的每个选项卡（tabX，tabY ...）中收集这些控件的值？

我尝试过一个变量： Sub Demo() Dim s As String Dim wb As Workbook s = Dir("\\yourfolderpath\yourdoldername\*.xlsm") Do While s <> "" Set wb = Workbooks.Open("\\yourfolderpath\yourdoldername\" & s) Dim VBComps As VBIDE.VBComponents Dim VBComp As VBIDE.VBComponent Set VBComps = wb.VBProject.VBComponents For Each VBComp In VBComps If VBComp.Name = "Your module name" Then VBComps.Remove VBComp Exit For End If Next VBComp VBComps.Import "C:\your dir\your module name.bas" wb.Close True s = Dir() Loop End Sub ，但我遇到了错误。

Answer 1

如果要引用特定子表单上的控件，则需要使用子表单名称。例如。 X_var = Form1.Form.Modifiable84.Value其中Form1是子表单控件名称，而不是表单名称。

请注意，如果您使用导航控件，则需要加载表单。