MS Access VBA如何在Excel中删除一行

我已经使用下面的代码在MS Access 2003中打开一个Excel文件。我想删除第2行或A2：K2。

Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.Workbooks.Open "QuotebyItem.xls", True, False 

Answer 1

 Dim wb as Excel.Workbook Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set wb = xlApp.Workbooks.Open("QuotebyItem.xls", True, False) wb.Sheets(1).Rows(2).Delete 

…假设你的文件只有一个表：如果可能有多个，你只需要解决其中的一个：

 wb.Sheets("Sheet2").Rows(2).Delete