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