MS Access VBA Comment supprimer une ligne dans Excel

Question

J'ai utilisé le code ci-dessous pour ouvrir un fichier Excel dans MS Access 2003. Je voudrais supprimer la ligne 2 ou 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 

... en supposant que votre fichier n'a qu'une seule feuille: s'il pourrait y avoir plusieurs et vous devez répondre à un seul d'entre eux:

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