将数据附加到现有的Excel文件 [英] Appent data to existing excel file

问题描述

如何使用以下代码将数据附加到现有的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()

推荐答案

将您的数据写入

Write your data to the end of the UsedRange[^]

这篇关于将数据附加到现有的Excel文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！