大家好，如题，请问如何将datagrid里查询到的内容导出到excel里呢？谢谢了

首先在VB中引用microsoft excel object library
假设c盘根目录下有个1.xls的文件
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\1.xls")
Set xlSheet = xlBook.Worksheets(1)'引用第1张工作表
Debug.Print xlSheet.Range("A1")'在立即窗口中显示第1张工作表中A1的内容,如果你想赋值给某个变量就在这里赋值，=xlSheet.Range("A1")就是你想要的东西

xlApp.Application.Quit

Set xlApp = Nothing

Unload Me
'表忘释放引用

End Sub

至于用变量给单元格赋值也很容易

声明一个变量

打个比方，给单元格A1赋值

xlSheet.Range("A1")=你声明的变量即可

记得把这条语句放在

Debug.Print xlSheet.Range("A1")这条语句的位置。

谢谢你

后面的把datagrid的数据导入到excel没有，我还是不懂，有没有更详细的，谢谢！