应该把命令写在:在text1推动焦点时,进行该命令:dim app as excel.applicationdim wbk as excel.workbookdim wsh as excel.worksheetprivate 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 = nothingend sub这样,你就可以在改变vb的form上的text的数据时,改变excel 20210311