不知道你要.net代码还是vb6.0的,给你个vb6.0的用做参考Dim myres As New ADODB.Recordsetmyres.open 省过代码......Dim myexcel As New Excel.ApplicationDim mybook As New Excel.WorkbookDim mysheet As New Excel.WorksheetSet mybook = myexcel.Workbooks.Add '添加一个新的BOOKSet mysheet = mybook.Worksheets.Add '添加一个新的SHEET myexcel.visible=true ...