[英]How to write array of elements into XLS file in vb.net
我有一个包含元素数量的数组。 现在我需要创建一个 xls 文件,并且需要将数组的所有成员写入 xls 文件,就像每个单元格一个成员一样。
Dim input()={"ex1","ex2","ex3","ex4","ex5"}
现在我需要创建examle.xls 文件并将上面的input() 元素写入example.xls 任何建议请
CSV 文件是否合适? 如果它使用 System.IO 命名空间创建一个简单的文本文件就足够了。 如果没有,那么您需要使用 Excel COM 互操作库。
如果你想使用 Excel 那么你需要做这样的事情
Private Function ExcelFileCreated(ByVal filename As String, ByVal FileDate As Date) As Boolean
'Create the Excel object declaration' create a excel application
Dim objExcel As Microsoft.Office.Interop.Excel.Application = Nothing
'create a excel workbooks object
Dim objBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing
'create a workbook object
Dim objBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
'create a excel sheets object
Dim objSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing
'create a excel sheet object
Dim objSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
'create a excel range object
Dim objRange As Microsoft.Office.Interop.Excel.Range = Nothing
'Create a new object of the Excel application object
objExcel = New Microsoft.Office.Interop.Excel.Application
objExcel.Visible = False
objExcel.DisplayAlerts = False
'Adding a collection of Workbooks to the Excel object
objBook = CType(objExcel.Workbooks.Add(), Microsoft.Office.Interop.Excel.Workbook)
objBooks = objExcel.Workbooks
objSheet = CType(objBooks(1).Sheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)
objSheets = objBook.Worksheets
'Adding multiple worksheets to workbook
objSheets.Add(Count:=1)
'Summary log file sheet
'adding first sheet
objBook = objBooks.Item(1)
objSheet = CType(objSheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet)
'Assigning the worksheet name
objSheet.Name = "Sheet Name"
objExcel.Cells(1, 1).Value = "ex1"
objExcel.Cells(7, 2).Value = "ex2"
objExcel.Cells(7, 3).value = "ex4"
objExcel.Cells(7, 4).value = "ex4"
objExcel.Cells(7, 5).value = "ex5"
Marshal.ReleaseComObject(objSheet)
Marshal.ReleaseComObject(objSheets)
'Saving the Workbook as a normal workbook format under log location
Try
If System.IO.Directory.Exists("c:\Temp") = False Then
System.IO.Directory.CreateDirectory("c:\Temp")
End If
objBook.SaveAs(filename, _
Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookNormal, _
System.Reflection.Missing.Value, _
System.Reflection.Missing.Value, _
False, _
False, _
Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, _
False, _
False, _
System.Reflection.Missing.Value, _
System.Reflection.Missing.Value, _
System.Reflection.Missing.Value)
objExcel.ActiveWorkbook.Close()
Marshal.ReleaseComObject(objExcel)
Return True
Catch ex As Exception
Return False
End Try
End Function
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.