MS Access VBA如何在Excel中删除行

Question

我使用以下代码在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