vb中的sheet1控件连接外部excel表sheet1中的数据并能同步修改

来源:百度知道 编辑:UC知道 时间:2024/05/31 20:39:38
我在vb中添加了excel控件,但不知道如何使用,现在想实现的效果是在vb界面将sheet1显示并可以修改外部指定的excel表1中的数据
解释一下我说的sheet控件,就是在“工程”中“部件”中的“可插入对象”microsoft excel工作表,放到form中运行后显示外部数据,而且不打开外部excel表,直接显示修改数据后保存,外部excel表中的数据也同时被修改。第一位回答者的方法不太符合我想要的,不过还是谢谢了!

应该把命令写在:在TEXT1推动焦点时,进行该命令:
Dim app As Excel.Application
Dim wbk As Excel.Workbook
Dim wsh As Excel.Worksheet

Private Sub Text1_LostFocus()
Set app = CreateObject("excel.Application")
Set wbk = app.Workbooks.Open(Path)
Set wsh = app.Worksheets(1)
wsh.Activate
wsh.Cells(a, b) = Text1.Text
wbk.Close
app.Quit
Set app = Nothing
Set wbk = Nothing
Set wsh = Nothing
End Sub
这样,你就可以在改变VB的FORM上的TEXT的数据时,改变EXCEL