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

MS Access VBA如何在Excel中删除行

1 个答案: