请问如何将datagrid里查询到的内容导出到excel里呢
大家好,如题,请问如何将datagrid里查询到的内容导出到excel里呢?谢谢了
在VB中操作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")这条语句的位置。