本文介绍了将数据附加到现有的Excel文件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
如何使用以下代码将数据附加到现有的excel文件中?
Hi, how can I append data to an existing excel file with the code below?
Dim xlApp As Object
Dim xlBook As Workbook
Dim xlsheet As Object
Dim lst As ListViewItem
Dim lst1 As ListViewItem.ListViewSubItem
Dim row As Integer
Dim col As Integer
xlApp = New Microsoft.Office.Interop.Excel.Application ''Class
xlBook = xlApp.Workbooks.Add ''creates a blank workbook
xlsheet = xlBook.Worksheets.Item(1) ''to select the sheet within the workbook
row = 1
''First retrieve the column header
For col = 0 To ListView1.Columns.Count - 1
xlsheet.Cells(1, col + 1) = ListView1.Columns(col).Text
Next
row = row + 1
For Each lst In ListView1.Items
col = 1
xlsheet.Cells(row, col) = lst.Text
For Each lst1 In lst.SubItems
xlsheet.Cells(row, col) = lst1.Text
col = col + 1 Next
row = row + 1
Next
Dim blnAlertStatus As Boolean
''---- Turn off alerts
blnAlertStatus = xlApp.DisplayAlerts
xlApp.DisplayAlerts = False
''---- do processing
xlBook.Close(SaveChanges:=True, Filename:="c:\Daily Purchases1.xls")
''---- Turn on alerts
xlApp.DisplayAlerts = True
xlApp.Quit()
推荐答案
这篇关于将数据附加到现有的Excel文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!