Macro Excel pour Insérer des Données dans la Ligne Suivante

Je n'arrive pas à comprendre comment compenser les informations dans la prochaine ligne.

Ce que j'essaie de faire est d'insérer la même information sur la prochaine ligne à chaque fois cette macro est exécutée. Je l'utilise comme un bon marché pour les de Gestion de l'Apprentissage, Système de suivi de l'exécution des formations e-learning, de sorte que chaque fois qu'un utilisateur exécute la macro elle affiche la date, bien sûr, et leur nom d'utilisateur.

L'information dans .Cells(1, 1) est incorrect, mais j'ai juste utilisé que pour assurer le reste de la macro a été de travail. À ce point, j'ai juste besoin de comprendre comment construire dans la logique de déplacer une ligne vers le bas chaque fois que la macro est exécutée.

Merci d'avance pour votre aide!

Sub Test()
    Dim objNetwork
    Set objNetwork = CreateObject("WScript.Network")
    strUserName = objNetwork.UserName

    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("G:\Training\GPL\Test.xlsx")
    objExcel.Application.DisplayAlerts = False
    objExcel.Application.Visible = False
    objWorkbook.Worksheets(1).Activate
    objWorkbook.Worksheets(1).Cells(1, 1).Value = "GPL Overview"
    objWorkbook.Worksheets(1).Cells(1, 2).Value = strUserName
    objWorkbook.Worksheets(1).Cells(1, 3).Value = Date

    'objExcel.ActiveWorkbook.Save "G:\Training\GPL\Test.xlsx"
    objExcel.ActiveWorkbook.SaveAs "G:\Training\GPL\Test.xlsx"
    objExcel.ActiveWorkbook.Close
    'objExcel.ActiveWorkbook.

    'objExcel.Application.Quit
    'WScript.Echo "Finished."
    'WScript.Quit

    objExcel.Application.Quit
End Sub
  • Avez-vous essayez d'enregistrer ce qui se passe lorsque vous appuyez sur la touche "bas"?
InformationsquelleAutor user1766898 | 2012-10-22