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"?
Vous devez vous connecter pour publier un commentaire.
Cela devrait résoudre le problème pour vous. Ajouter ce droit après
objWorkbook.Worksheets(1).Activate
Et de changer le cours des trois prochaines lignes à ceci:
Mise à jour
Puisqu'il semble que vous exécutez ce code à l'intérieur d'Excel lui-même, je vais vous montrer comment vous pouvez vraiment propre ce code et de lui permettre de courir plus vite et être plus facile à déchiffrer. Voir le code ci-dessous:
Merci Scott Holtzman
J'ai eu un problème similaire, bien que j'ai dû changer certains paramètres, mais après quelques jours longs, vous êtes venu à mon secours. Merci bien pour l'aide.
Voici un code que j'ai mis en œuvre, ainsi que votre réponse m'a aidé.