| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment forcer la compilation d'un classeur à partir de VB
    langage de programmation Visual Basic de Microsoft peut être utilisé pour automatiser des tâches qui peuvent souvent être effectuées manuellement dans de nombreux types d'applications Windows, y compris Microsoft Excel. Compiler les feuilles d' un classeur dans un document central est l'une des choses qui peuvent être faites par écrit un script de l'application VB . Une fois que le script a été écrit , les utilisateurs seront enregistrées la peine et le temps d'avoir à effectuer manuellement la tâche. Instructions
    1

    Ouvrez l'application Visual Basic qui est utilisé pour créer et éditer du code VB et VB applications basées sur .
    2

    Créer un nouveau document VB et initier et de nommer un nouvelle sous- routine , par exemple:

    sous CompileWorkbook ()
    3

    obtenir les feuilles dans le classeur en ajoutant une deuxième ligne de code:
    < p > Sous CompileWorkbook () objX As Object
    4

    a fixé l'objectif de la routine en définissant ce qu'il va faire précisément:

    Sous CompileWorkbook () de objX As ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl (Type: = msoControlButton )
    5

    définir ce que le script doit faire si ses définitions ne sont pas en mesure d' être remplies par l'ajout d'un argument " If Not ":

    Sous CompileWorkbook () objX As ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl (Type: = msoControlButton ) If Not objX n'est rien ThenobjX.ExecuteSet objX = Nothing
    6

    Fermez le script de compilation par l'ajout d'instructions "End" pour le code suivant:

    Sous CompileWorkbook () objX As ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl (Type: = msoControlButton ) If Not objX n'est rien ThenobjX.ExecuteSet objX = NothingEnd IfEnd Sous
    7

    Enregistrez le code VB et intégrer le script dans l'application VB où vous devez effectuer la compilation du classeur .
    < br > Photos

    Previous :

    next :
      articles connexes
    ·Comment faire pour convertir DLL ActiveX 
    ·Comment calculer l'intersection de deux lignes dans Vis…
    ·Comment utiliser les tâches dans VBA 
    ·Comment obtenir Strings pour convertir les entiers en V…
    ·Comment dessiner une grille sur un panneau en VB.NET 
    ·Introduction à Visual Basic 6.0 
    ·Comment déterminer le contrôle avec un courant de mis…
    ·Description de Visual Basic 
    ·Date de comparaison dans VBA 
    ·Comment les numéros d'entrée dans Visual Basic 2005 
      articles en vedette
    ·Comment mettre à jour vBulletin 4 Icônes 
    ·Comment écrire une boucle Pseudocode 
    ·Comment faire pour supprimer le chemin d'un objet CCG 
    ·PHP XML Conversion 
    ·Comment faire pour supprimer Chemin De argv [0] en Pyth…
    ·Comment formater décimaux à l'aide AWK 
    ·Comment faire pour convertir PL /SQL pour Java 
    ·Comment obtenir la version de Python installée 
    ·Comment faire pour configurer PHP pour envoyer du courr…
    ·Comment passer des paramètres à sous-programmes en Pe…
    Copyright © Connaissances Informatiques http://fr.wingwit.com