通行證用戶窗體的文本框的值到Excel文本框

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

我想從用戶窗體被稱爲「ALM_Login_Page」的價值觀，並把這些值轉換成一個XLSM板材文本框。試過上面的代碼，但得到錯誤「運行時間錯誤9，下標超出範圍」請幫忙通行證用戶窗體的文本框的值到Excel文本框

來源

2017-04-03 Suhas Dhokle

我不確定，你想要做什麼，但如果你想引用一張表，你需要鍵入將片材的命令的名稱，而不是文件名：

工作表（「SHEETNAME」）...

或

工作簿（「路徑\ sheetname.xlsm」）工作表（「SHEETNAME」）...

或者如果你想引用NCE書然後只是：

工作簿（「路徑\ sheetname.xlsm」），而不是工作表

如果你想記錄到一個文本框對象的表，你必須使用下一個命令：

工作表（「SHEETNAME」）形狀（「TextBoxname」）TextFrame.Characters.Text = ALM_Login_Page.TextBox1.Value

是cerful，如果你犯了一個textbo。 x，沒有命名，它會得到「文本框1」而不是「文本框1」的名稱。覈實！

來源

2017-04-03 13:54:00 Oliver

感謝您的答案@Oliver，但不幸的是它沒有奏效。我正在嘗試將excel表單上的文本框的useform值傳遞給文本框。我試過了你建議的兩種方式， 'Worksheets（「sheetname」）.TextBox5.Value = ALM_Login_Page.TextBox1.Value 或 Workbooks（「Path \ sheetname.xlsm」）。Worksheets（「sheetname」）.TextBox5。值= ALM_Login_Page.TextBox1.Value' 但它仍然給出相同的錯誤爲「運行時錯誤9，下標超出範圍」 –

我編輯了我的答案，檢查它。 – Oliver

通行證用戶窗體的文本框的值到Excel文本框

回答

相關問題