小编Lou*_*Lou的帖子

VBA运行时错误'9':下标超出范围; 试图激活另一个工作簿

我正在尝试在Excel 2010中创建一个VBA,它从另一个我不允许更改的电子表格中获取信息,并将其带入内置宏的电子表格.这是我的代码:

Sub BringUpWorkbook()
    Workbooks("RITE 1624.xls").Activate
End Sub
Run Code Online (Sandbox Code Playgroud)

我有几本VBA书籍,访问过互联网上的几十个网站,包括那些在stackoverflow.com上的网站,并且找不到我收到运行时错误的原因.工作簿已经打开,我已经尝试添加标题后面的所有内容,我已经尝试删除了.xls,我甚至在变量中完成了上述所有操作.有任何想法吗?

excel vba excel-vba excel-2010

3
推荐指数
1
解决办法
5万
查看次数

使用 vba 在运行时向 Excel 用户表单添加多个标签和文本框

我正在使用 Excel VBA 创建一个库存管理工具。我已经创建了从 Internet Explorer 下拉框中收集名称列表并将它们放入数组的代码。

在此处输入图片说明

我需要做的是类似于vba 在 userform 中动态创建几个文本框组合框,但我会为每个人将收到的 FLN 数量的用户名和文本框动态添加标签。然后这些将进入我已经创建的预定义用户表单。

在此处输入图片说明

根据上面的代码示例,我意识到我不能.Name = "Textbox" & i用来重命名下一个标签或文本框。i必须等于一个不断变化的列表,所以它不能一成不变;因此,为什么必须有尽可能多的标签和文本框UBound(UserArray)

更新

Private Sub CreateControl()
    Dim newTxt As msforms.Control, newLbl
    Dim i As Integer, TopAmt
    Dim UserArray As String

    TopAmt = 30

    For i = LBound(MyArray) + 1 To UBound(MyArray) - 1
        Set newLbl = MultipleOptionForm.Controls.Add("Forms.Label.1")
        With newLbl
            .Name = "Label" & i
            .Left = 10
            .Top = TopAmt
            .WordWrap = False
            .AutoSize = True …
Run Code Online (Sandbox Code Playgroud)

excel vba userform

2
推荐指数
1
解决办法
5694
查看次数

标签 统计

excel ×2

vba ×2

excel-2010 ×1

excel-vba ×1

userform ×1