将列表框数据导出为Excel [英] Export Listbox data to excel

问题描述

我想将列表框数据导出到Excel。我可以这样做。我使用的是Visual Basic6

解决方案

 函数 tired_of_name_test（）
 
  Dim  oExcel 作为 Excel.Application '  Excel Application  
 设置 oExcel = 新 Excel.Application ' 启动它 
 oExcel.Workbooks.Open   YOUR_EXCEL_FILE.XLSX '  ****在此更改名称****打开它。 
 
   错误  goto  kill_task 
 Col = ListBox1.ColumnCount ' 列数 
 Row = ListBox1.ListCount ' 行数 
 
 
 对于 C =  1    Ubound（ Col）' 对于每一列 
  For  L =  1    Ubound（行）'   
 oExcel.Cells（j，i）= Listbox1.List（j  -   1 ，i  -   1 ）' 写入行，列的值 
  next  L ' 下一行 
  next  C ' < span class =code-comment> Next Col  
 
 
 oExcel.ActiveWorkbook.Save ' 保存 
 oExcel.Workbooks（ 1 ）。关闭' 关闭工作簿 
 oExcel.Application.Quit ' 关闭申请 
 退出  function  
 
 kill_task：
 oExcel.ActiveWorkbook.Save ' 保存 
 oExcel.Workbooks（ 1 ）。关闭' 关闭工作簿 
 oExcel.Application.Quit ' 关闭申请 
  end   function  

更多详情请访问..... http://community.osisoft.com/index.php?/topic / 1407-export-data-from-listbox-to-excel / [ ^ ]

检查这些..

使用自动格式化技术将数据导出到Vb.Net中的Excel。 [ ^ ]

将ListBox数据导出到Excel ... [ ^ ]

I want to Export Listbox data to Excel.how can i do this.I am using Visual basic6

解决方案

Function tired_of_name_test()

Dim oExcel As Excel.Application                                                                         ' Excel Application
Set oExcel = New Excel.Application                                                                    ' Start it
oExcel.Workbooks.Open "YOUR_EXCEL_FILE.XLSX"                                       ' **** CHANGE NAME HERE **** Open it.

on error goto kill_task
Col = ListBox1.ColumnCount                                                         ' Number of Columns
Row = ListBox1.ListCount                                                              ' Number of Rows


For C = 1 to Ubound(Col)                                                              ' For each Column
    For L = 1 to Ubound(Row)                                                         ' in Each Line
         oExcel.Cells(j,i) = Listbox1.List(j - 1, i - 1)                             ' Write the value for Line, Columns
    next L                                                                                         ' Next Line
next C                                                                                            ' Next Col


       oExcel.ActiveWorkbook.Save                       ' Save
       oExcel.Workbooks(1).Close                         ' Close Workbook
       oExcel.Application.Quit                                 ' Close Application
exit function

kill_task:
      oExcel.ActiveWorkbook.Save                       ' Save
      oExcel.Workbooks(1).Close                         ' Close Workbook
      oExcel.Application.Quit                                 ' Close Application
end function

for more details visit on.....http://community.osisoft.com/index.php?/topic/1407-export-data-from-listbox-to-excel/[^]

Check these..
Export data to Excel in Vb.Net with Auto format technique.[^]
Export ListBox data to Excel... [^]

这篇关于将列表框数据导出为Excel的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！