Astuces Excel
  1. Astuces Excel
  3. Comment utiliser l'object Excel à une autre procédure dans vba
Intereting Posts
Trier par deux niveaux de colonnes à l'aide du countur pour déterminer la scope Formule Excel avec IF … ELSE Lecture de la valeur de la string à partir de Excel avec HSSF mais c'est double Les personnages de Mojibake montrent après l'export excel Le code de requête Export to Excel j supprime 0 dans excel après l'export Pourquoi Selenium WebDriver ne changera-t-il pas sur mon nouvel onglet qui est un rapport excel Comment ouvrir le mode lecture seule du file Excel sur C #? Erreur de fonction Excel MATCH Comparaison des cellules Excel pour former une boucle while dans C # Comment puis-je get des adresses cellulaires pour la zone graphique outlook vba application.goto Calcul de la valeur d'une formule récursive dans EXCEL en utilisant POI Excel VBA – Vérifiez si des données existantes existent déjà avant la copy La validation / la formule de table Excel n'est pas copiée dans la nouvelle ligne de table Comment entrer une formule de tableau multiple

Comment utiliser l'object Excel à une autre procédure dans vba

J'ai besoin d'utiliser un object Excel (qui est défini dans une procédure), à ​​une autre procédure dans le même module. Mais pas capable de le faire. Aidez-moi à faire de même. Voici mon code. 

Public Sub FirstProc() 'Here the excel object is defined Set xlApp = CreateObject("Excel.Application") Set xlWorkbook = xlApp.Workbooks.Open(ReportTemplateDirectory\Test.xlsx") xlApp.Visible = True ... ... 'all work goes here FINE ... SecondProc 'calling second proc End Sub

Voici ma deuxième procédure, 

 Public Sub SecondProc() ' In this procedure i need to delete a sheet of the same excel file which is generated in above procedure. xlWorkbook.Sheets(4).Delete End Sub

Mais je reçois l'object RunTime Error 424 requirejs. Toute aide serait appréciée.

Alors que je voudrais simplement append cette ligne au premier module, vous pourriez essayer quelque chose comme ça (testé dans Outlook).

DisplayAlerts désactivé pour éviter un message de vérification lorsque la feuille est supprimée. 

 Public Sub FirstProc() 'Here the excel object is defined Dim xlApp As Object Dim xlWorkbook As Object Set xlApp = CreateObject("Excel.Application") xlApp.displayalerts = False Set xlWorkbook = xlApp.Workbooks.Add xlApp.Visible = True Call SecondProc(xlWorkbook) 'calling second proc xlApp.displayalerts = True End Sub Public Sub SecondProc(xlWorkbook As Object) ' In this procedure i need to delete a sheet of the same excel file which is generated in above procedure. xlWorkbook.Sheets(2).Delete End Sub