那个论坛没去过 ,我对VB也不熟,我大部分用 C#和java ======= 先引用类型库 工程->引用->Microsoft Excel 9.0 Object Library(Excel 2000) '定义Excel对象 Dim VBE As New Excel.Application '定义Excel工作表 Dim VBB As Excel.WorkBook '定义工作薄 Dim VBS As Excel.Worksheet '实例化 Set VBB=VBE.Workbooks.Open("Excel文件完成路径") Set VBS=VBB.Worksheets(1)'Excel文件的第一个工作薄,也可以是工作薄名称 '向工作薄中写数据 VBS.Cells(行号,列号)=数据 '保存 VBB.Save '关闭 VBB.Close