Vb6.0 DataGrid 导出Excel文件

 

'汇出Excel
Private Sub cmdexport_Click()
Dim i, r, c As Integer
Dim newxls As New Excel.Application    '声明application 对象
Dim newbook As New Excel.Workbook
Dim newsheet As New Excel.Worksheet

Set newbook = newxls.Workbooks.Add  '创建工作薄
Set newsheet = newbook.Worksheets(1) '创建工作表
With CommonDialog1
    .CancelError = False   '在对话框中，按cancel键不出现错误
    .Flags = cdlOFNHideReadOnly & cdlOFNOverwritePrompt
    .Filter = "Excel Files (*.xls)|*.xls"   '对话框底部“保存文件类型“下拉匡显示的内容"
    .FilterIndex = 1  '选择"保存类型"的第一个值为默认值，即"Excel Files (*.xls)|*.xls"
    .ShowSave

'