作者：乔山办公网日期：2021-01-24 08:51:00返回目录：excel表格制作 If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.ActiveSheet把这三句删了zd试试然后看看你的text1的数目和datagrid1是否版一致。没有完整的代码和数据库没法帮你判断权 本文标签：vb导出到excel(9)vb datagrid 导出excel(1)