Private Sub SaveEXCEL_Click()Dim Introws As Integer          '用作循环，标识MSHFlexGrid总行数Dim Intcols As Integer          '用作循环，标识MSHFlexGrid的总列数Dim XlsApp As Excel.Application '定义EXCEL对象Dim XlsSheet As Excel.Worksheet '定义EXCEL表Dim XlsBook As Excel.Workbook   '定义EXCEL的工作薄Set XlsApp = CreateObject("Excel.Application") '实例化EXCEL对象Set XlsBook = XlsApp.Workbooks.Add              '加载工作薄Set XlsSheet = XlsBook.Worksheets(1)            '创建工作表
    XlsSheet.SaveAs "D:\当前库存.xls" '保存
    XlsSheet.Cells(1, 1) = "序号"XlsSheet.Cells(1, 2) = "办公用品名称"XlsSheet.Cells(1, 3) = "一级分类名称"XlsSheet.Cells(1, 4) = "二级分类名称"XlsSheet.Cells(1, 5) = "型号"XlsSheet.Cells(1, 6) = "库存数量"XlsSheet.Cells(1, 7) = "库存下限"XlsSheet.Cells(1, 8) = "备注"For i = 0 To DataGrid1.Columns.Count - 1For j = 0 To DataGrid1.ApproxCount - 1DataGrid1.Col = iOn Error Resume NextDataGrid1.Row = jXlsSheet.Cells(j + 2, i + 1) = DataGrid1.Columns.Item(i).TextNext jNext i'释放对象XlsApp.Visible = TrueSet XlsApp = NothingEnd Sub

    Dim i As IntegerDim j As IntegerDim k As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = New Excel.ApplicationSet xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)xlSheet.Columns.AutoFitMe.MousePointer = 11For k = 0 To DataGrid1.Columns.Count - 1 'DataGrid所有的列数xlSheet.Cells(1, k + 1) = DataGrid1.Columns(k).Caption '第一行为DataGrid的列标题NextDataGrid1.Scroll 0, -DataGrid1.FirstRow '导出前拉动过垂直滚动条，这个非常重要DataGrid1.Row = 0For i = 0 To DataGrid1.ApproxCount - 1 'DataGrid的所有行数For j = 0 To DataGrid1.Columns.Count - 1 'DataGrid所有的列数,若将此数改小到不拉DataGrid的垂直滚动条的时候能看见的行数的时候正常DataGrid1.Col = jxlSheet.Cells(i + 2, j + 1) = Adodc1.Recordset(j) 'DataGrid1.Text '从第二行显示'DataGrid的内容，这里修改成这样也可以DataGrid1.Columns.Item(j).TextNextIf i < DataGrid1.ApproxCount - 1 ThenDataGrid1.Row = DataGrid1.Row + 1End IfNextMe.MousePointer = 0MsgBox "导出成功！"xlApp.Visible = TrueSet xlApp = Nothing 'Excel 处于当前窗体Set xlBook = NothingSet xlSheet = Nothing

Private Sub SaveEXCEL_Click()Dim i As Long, j As LongDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookSet xlsApp = New Excel.ApplicationSet xlsApp = CreateObject("Excel.Application")xlsApp.Visible = TruexlsApp.Workbooks.Add'Set xlsBook = xlsApp.Workbooks.Open(App.Path & "\filename.xls")
    xlsApp.Sheets("sheet1").SelectxlsApp.Cells(1, 1) = "序号"xlsApp.Cells(1, 2) = "办公用品名称"xlsApp.Cells(1, 3) = "一级分类名称"xlsApp.Cells(1, 4) = "二级分类名称"xlsApp.Cells(1, 5) = "型号"xlsApp.Cells(1, 6) = "库存数量"xlsApp.Cells(1, 7) = "库存下限"xlsApp.Cells(1, 8) = "备注"xlsApp.ActiveSheet.Range("A2").CopyFromRecordset Adodc1.RecordsetIf xlsApp.ActiveWorkbook.Saved = False ThenxlsApp.ActiveWorkbook.SaveAs App.Path & "\当前库存.xls"End If'xlsApp.QuitSet xlsApp = NothingEnd Sub