Question

当前EXCEL单元格数据写入vb textbox

当前EXCEL单元格数据写入vb textbox

Answer 1

Sub CommandButton1_Click()
    ActiveCell.Select
    ActiveSheet.TextBox1.Value = ActiveCell.Value
End Sub

追问

封装成功，以后就没有反映了，不知道怎么回事，和VBA语法相似

追答

到底是vba还是vb~~vba的话你把这个段代码绑定个热键就能用 vb的话你是要把excel的东西赋值给一个工程文件下的一个form的textbox么~~~

追问

同题，在VB中

追答

Sub CommandButton1_Click()
    ActiveCell.Select
    UserForm1.TextBox1.Value = ActiveCell.Value
End Sub

追问

老师，我还是没有成功写入，换一个方法可以吗，VB调用EXCEL中的复制到剪贴板，从剪贴板到TEXTBOX这段知道，怎么调用，谢谢

Answer 2

textbox1．text＝activesheet．activecell．value

追问

老师你好，提示运行错误91，未设置对象变量或with block变量,请指点，谢谢