Astuces Excel
  1. Astuces Excel
  3. Excel vba accédant aux instances du classur à partir de différentes applications Excel
Intereting Posts
VBScript Ouverture du dossier pour convertir csv en xls L'automation C # Excel ne fonctionne que lorsque Excel est visible Excel Calculer les vacances sockets en fonction de 3 bits de critères Formule pour éliminer les valeurs de fraction des strings de text? Excel TextToColumns FixedWidth ASP.NET MVC Obtenez de la valeur de deux colonnes à une colonne Insertion de formule avec problème target.column La fonction de boucle continue d'exécuter VBA Excel Comment append différentes sorties R dans une feuille de calcul excel Validation des données Excel – Comment limiter l'input aux numbers et aux tirets? VBA Error 1004: PasteLa méthode spéciale de la class de scope a échoué Fonction moyenne pondérée Sauvegarder la valeur de la textbox, VBA, Excel Index Excel de l'élément inférieur dans la colonne mais> 0 Insérez OLEObject dans une cellule spécifique avec une largeur et une hauteur spécifiques

Excel vba accédant aux instances du classur à partir de différentes applications Excel

Donc disons que vous avez deux classurs distincts ouverts pour écrire chacun dans un process Excel distinct, comment accéder à l'autre classur et apporter des modifications à travers VBA? Existe-t-il un moyen de parcourir toutes les applications Excel et de voir quels livres de travail ont-ils ouverts? Aide grandement appréciée!

Trouvé une solution peu élégante en utilisant AppActivate puis SendKeys. SendKeys tape une touche d'access rapide à une macro qui contiendrait un code pour faire ce que je veux que ce classur fonctionne, comme se fermer de manière ordonnée afin que la première application puisse l'ouvrir.

Les éléments suivants affichent les noms des classurs ouverts, les noms des feuilles en leur sein et la valeur de la cellule A1. Cela devrait suffire pour vous aider. 

Dim InxWB As Long Dim InxWS As Long For InxWB = 1 To Workbooks.Count With Workbooks(InxWB) Debug.Print "Workbook """ & .Name & """ contains the following sheets:" For InxWS = 1 To .Sheets.Count Debug.Print " " & .Sheets(InxWS).Name Debug.Print " Cell A1 contains: " & _ .Sheets(InxWS).Cells(1, 1).Value Next End With Next