用每次保存添加新數據覆蓋Excel文件

Question

我有一個像下面這樣的代碼，爲我的記錄生成一個Excel文件，我想像我每次運行我的程序一樣，它會檢查最後一行，如果最後一行行不爲空，那麼它會將新數據插入到新行中。但是，我的代碼沒有得到期望的結果。任何人都可以幫助我呢？由於

Microsoft.Office.Interop.Excel.Application xla = new Microsoft.Office.Interop.Excel.Application(); 
     string file = "TestingAccounts.xls"; 
     Workbook wb = new Workbook(); 
     Worksheet ws = new Worksheet(); 

     object misValue = System.Reflection.Missing.Value; 
     try 
     { 
      wb = xla.Workbooks.Open(file, 0, true, 5, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0); 
      ws = (Worksheet)wb.Worksheets.get_Item(1); 
      xla.Workbooks.Open(file); 

      Range last = ws.Cells.SpecialCells(XlCellType.xlCellTypeLastCell, Type.Missing); 
      Range range = ws.get_Range("A1", last); 

      int lastUsedRow = last.Row + 1; 
      ws.Cells[lastUsedRow, 1] = "abc"; 

      xla.DisplayAlerts = false; 
      wb.SaveAs(file, XlFileFormat.xlAddIn, Type.Missing, Type.Missing, Type.Missing, 
      Type.Missing, XlSaveAsAccessMode.xlNoChange, Type.Missing, 
      Type.Missing, Type.Missing, Type.Missing, Type.Missing); 

      wb.Close(true, misValue, misValue); 

      xla.Quit(); 

      releaseObject(ws); 
      releaseObject(wb); 
      releaseObject(xla); 
     } 
     catch 
     { 
      MessageBox.Show("The excel file is not exist. Click ok to create new one"); 
      wb = xla.Workbooks.Add(XlSheetType.xlWorksheet); 
      ws = (Worksheet)xla.ActiveSheet; 

      xla.DisplayAlerts = false; 
      wb.SaveAs(file, XlFileFormat.xlAddIn, Type.Missing, Type.Missing, Type.Missing, 
      Type.Missing, XlSaveAsAccessMode.xlNoChange, Type.Missing, 
      Type.Missing, Type.Missing, Type.Missing, Type.Missing); 

      wb.Close(true, misValue, misValue); 

      xla.Quit(); 

      releaseObject(ws); 
      releaseObject(wb); 
      releaseObject(xla); 

     } 

假設我上面的代碼想如果最後使用的行被發現，但在空在下一行添加「ABC」。

Answer 1

這是VBA代碼，但您應該瞭解解決方案的要點。循環訪問單元格，直到找到空白單元格並在其中插入數據。解決方案的關鍵是a）將Range對象設置爲等於工作表中某個起始單元格（本例中爲「A1」），並且b）通過使用Range.Offset（1,0）偏移每行來循環單元格）「移動」一行。

' select start range 
Set rangePaste = Range("A1") 

' loop until you find a blank cell in column A 
Do Until rangePaste.Value = "" 
    Set rangePaste = rangePaste.Offset(1, 0) ' move down row 
Loop 

'set cell value 
rangePaste.Value = "abc"