Question

Sub Get_values()
Dim Domain, Project, UserName, Password, Test_Lab_Path
 Workbooks.Open FileName:= _
        "Path\sheetname.xlsm", _
        Origin:=xlWindows
Worksheets("sheetname.xlsm").TextBox5.Value = ALM_Login_Page.TextBox1.Value 'Domain
Worksheets("sheetname.xlsm").TextBox6.Value = ALM_Login_Page.TextBox2.Value 'Project
Worksheets("sheetname.xlsm").TextBox7.Value = ALM_Login_Page.TextBox3.Value 'UserName
Worksheets("sheetname.xlsm").TextBox8.Value = ALM_Login_Page.TextBox4.Value 'Password
Worksheets("sheetname.xlsm").TextBox8.Value = ALM_Login_Page.TextBox5.Value 'Test Lab Path 
End Sub

我正在尝试从userform获取名为＆＃34; ALM_Login_Page＆＃34;并将这些值放入xlsm工作表的文本框中。尝试上面的代码，但得到错误＆＃34;运行时错误9，下标超出范围＆＃34; 请帮忙

Answer 1

我不确定，您想要做什么，但如果您想引用工作表，则需要在命令中键入工作表的名称，而不是文件名：

工作表（ “SHEETNAME”）...

或

工作簿（ “路径\ sheetname.xlsm”）。工作表（ “SHEETNAME”）...

或者如果你想引用这本书，那么只需：

工作簿（“Path \ sheetname.xlsm”）而不是工作表

0

如果要写入工作表上的文本框对象，则必须使用下一个命令：

工作表（“工作表名称”）。形状（“TextBoxname”）。TextFrame.Characters.Text = ALM_Login_Page.TextBox1.Value

如果你做了一个没有命名的文本框，它会得到“Textbox 1”而不是“Textbox1”的名字。检查一下！

将userform文本框值传递给excel文本框

1 个答案: