社区合唱团业务范围:VB中把datagrid数据保存到excel里

'输出表头 
For i = 0 To Me.Adodc1.Recordset.Fields.Count - 1 
'设置列名 
strColName1 = Chr(65 + i) & "1" 
oSheet.Range(strColName1).Value = Me.DataGrid1.Columns(i).Caption 

'据DataGrid中的宽度设置EXCEL列宽 
StrColName = Chr(65 + i) & ":" & Chr(65 + i) 
oSheet.Columns(StrColName).ColumnWidth = Int(Me.DataGrid1.Columns(i).Width / 90) 

Next i 

'输出内容 
Do Until Me.Adodc1.Recordset.EOF 
j = j + 1 

For i = 0 To Me.Adodc1.Recordset.Fields.Count - 1 
StrColName = Chr(65 + i) & CStr(j + 1) 
If Not IsNull(Me.DataGrid1.Columns(i)) And Me.DataGrid1.Columns(i) <> "" Then 

'根据列的属性对表格数据作相应格式化处理 
Select Case Me.Adodc1.Recordset.Fields(i).Type 
Case adCurrency 
oSheet.Range(StrColName).Value = CCur(Me.DataGrid1.Columns(i)) 
Case adNumeric 
oSheet.Range(StrColName).Value = CLng(Me.DataGrid1.Columns(i)) 
Case adInteger 
oSheet.Range(StrColName).Value = CInt(Me.DataGrid1.Columns(i)) 
Case adDate 
oSheet.Range(StrColName).Value = CDate(Me.DataGrid1.Columns(i)) 
oSheet.Range(StrColName).NumberFormatLocal = "yyyy-mm-dd hh:mm" 
Case Else 
oSheet.Range(StrColName).Value = Me.DataGrid1.Columns(i) 

End Select 
Else 
oSheet.Range(StrColName).Value = Me.DataGrid1.Columns(i) 
End If 
Next i 

Me.Adodc1.Recordset.MoveNext 
Loop


别人的代码 仅供参考~

vb中如何编程把datagrid中输入数据加入到数据库中 vb中如何将datagrid表格中的数据保存在单独的word文件中 vb中如何将一系列数据显示于DataGrid中？ vb中如何让数据在datagrid中显示 紧急！！！VB.NET中如何打印DATAGRID数据 VB.NET中如何将DataGrid数据写入Excel文件? 怎样获得vb的datagrid中单元格的数据 vb 如何实现datagrid中数据的修改和添加 VB中datagrid数据可以被调用吗? vb datagrid不显示数据 vb.net DataGrid 数据返回 如何把SQL中数据导入到VB数组中 在VB.net中怎样将窗体中文本框的数据保存到一个*.htm中？ 在VB中能不能把一些少量的数据保存在本身EXE中？ vb中怎么用datagrid? vb中datagrid控件问题 VB里怎样从数据库中读取数据并保存到EXCEL VB 中,能不能让DataGrid 控件中的第一列或前两列的数据不能被修改? vb中我打印当前窗口中的datagrid中的数据怎么编写代码？ 如何将vb DataGrid 控件中每一列显示的相同数据屏蔽掉 在vb中datagrid控件怎样实现可以选择多列数据， datagrid 中编辑数据，如何将数据更新到数据库中 在vb中如何写代码可以把修改的数据添加到access数据库中？ 请问在vb.net中如何把sql中的数据读取到textbox中?