作者：乔山办公网日期：
返回目录：office365
VB6.0与VS2010根本不是一个编译环境。
VB6.0的工程不能直接用VS2010打开，只有来参照他画界面，然后对应事件拷贝代码。
拷贝过去的代码也只能保证自60%的相似zhidao率，你还要修改这些代码，因为VB.NET与VB并不是一种语言，存在相似之处是因为VB运行库的要求，在语法上其实是两种完全不同的语言。
晕，程序万万千，总要有个目的
打开VS2010 在菜单栏栏上点击"工具知(T)" -> "选择工具箱(X)…"，在弹出的对话框中道选择"COM组件"。如果你在安装程序时安装上了你所版需要的两个组件，就会在这儿找到。如果没有，点击"浏览(B)…"选择安装（如权果有的话）。
我给你个代码导出到excel的，你看了就知道了。在e69da5e887aae799bee5baa6e997aee7ad94336引用中添加excel引用
Imports Microsoft.Office.Interop
Private Sub showToExcel()
If (DataGridView1.Rows.Count > 0) Then
Dim saveExcel As SaveFileDialog
saveExcel = New SaveFileDialog
saveExcel.Filter = "Excel文件(.xls)|*.xls"
saveExcel.FileName = "test.xls"
Dim filename As String
If saveExcel.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
filename = saveExcel.FileName
Dim excel As Excel.Application
excel = New Excel.Application
excel.DisplayAlerts = False
excel.Workbooks.Add(True)
excel.Visible = True
Dim i As Integer
For i = 0 To DataGridView1.Columns.Count - 2
excel.Cells(1, i + 1) = DataGridView1.Columns(i).HeaderText
Next
'设置标题
Dim j As Integer
For i = 0 To DataGridView1.Rows.Count - 1 '填充数据
For j = 0 To DataGridView1.Columns.Count - 2
excel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value
Next
Next
excel.Workbooks(1).SaveCopyAs(filename) '保存
End If
End Sub