Question

vb.net .Excel 追加保存

首先不确定这个文件存在不存在，如果不存在就新建，如果存在就在最后一行追加。并且也不知道这个表格有几行。
这样应该如何来做呢？

Answer 1

 Sub Excel()
        Const FilePath As String = "C:\1.xls"   '文件名
        Dim ExApp As Object = CreateObject("Excel.Application")
        ExApp.Visible = True

        If Not IO.File.Exists(FilePath) Then
            ExApp.Workbooks.Add()
            ExApp.ActiveWorkbook.SaveAs(FilePath)
        Else
            ExApp.Workbooks.Open(FilePath)
        End If

        Dim Wk As Object = ExApp.ActiveWorkbook
        Dim iRow As Integer = Wk.ActiveSheet.Range("A65535").End(3).Row + 1
        '添加需要的代码
        Wk.ActiveSheet.Cells(iRow, 1).Value = "xxxxx"
        ExApp = Nothing
        Wk = Nothing
    End Sub