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

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

2025-05-11 21:08:47

推荐回答（1个）

回答1：

应该把命令写在:在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