|
Création , l'accès et l'ajout ou la suppression de données dans Excel est possible grâce à Visual Basic 6 . Quelques brèves lignes de code en Visual Basic accompliront les deux premières actions . Toutefois, l'évolution des données Excel est plus complexe et nécessite beaucoup plus d'explications que possible dans cet article. L'écriture de programmes pour ce faire peut être utile si le développeur a besoin pour simplifier l'utilisation d'Excel pour les utilisateurs inexpérimentés. Utilisation des formulaires Visual Basic permettent plus de modification et d'instruction que pourrait être possible dans Excel. Instructions
1 Ouvrez le programme Microsoft Visual Basic 6 ; ». Nouveau projet" cliquez sur "Fichier " et choisissez " Standard.EXE " à partir de la liste des modèles . Un nouveau formulaire s'ouvre sur l'écran, intitulé " Projet 1 - Form1 (formulaire ) . " Double -cliquez trois fois sur l'icône du bouton de commande dans le panneau de gauche d'ajouter trois boutons pour la forme . Enregistrez le formulaire avec un nom de fichier de votre choix.
2 Cliquez sur "View" et "Propriétés " Pages (ce qui peut déjà être affiché dans le panneau de droite) et cliquez sur le premier bouton sur le formulaire . Dans la fenêtre Propriétés , double -cliquez sur " Légende " et changer le texte pour " Ouvrez Feuille de calcul existante . " Changer la seconde légende du bouton "Créer nouvelle feuille de calcul . " Répétez l'opération pour le troisième bouton , mais le changement de cette légende à " Quitter". Faites glisser les deux premiers boutons de sorte qu'ils sont en face de l'autre . Placez le troisième dessous des deux autres.
3 Double -cliquez sur le bouton "Ouvrir feuille de calcul existante " . Cela change le point de vue de « l'objet » à « Code» et insère une nouvelle procédure. Tapez ces lignes exactement comme ils apparaissent entre le " Private Sub Command1_Click () " et " End Sub ", qui devrait déjà être là.
Option ExplicitDim MyExcel As New Excel.ApplicationDim MyWorkbook Comme Excel. WorkbookDim MaFeuille Comme Excel.WorksheetDim nom que StringFileName = InputBox (" Entrez le nom complet et l'emplacement du fichier Excel ") Set MyWorkbook = MyExcel.Workbooks.Open ( nom de fichier) Set MaFeuille = MyExcel.ActiveSheetMyExcel.Visible = True
< br > 4 Double -cliquez sur le "Créer une nouvelle feuille de calcul " et taper ces lignes de code.
Set MyWorkbook = MyExcel.Workbooks.AddSet MaFeuille = MyWorkbook.Worksheets ( "Sheet1" ) Set MaFeuille = MyExcel.ActiveSheetMyExcel.Visible = True
5 Terminez le code en double- cliquant sur le bouton "Quitter" sur la forme et le type de ces lignes.
MyExcel.QuitEnd
6 tester le programme en appuyant sur la touche "F5 ". Si cela ne fonctionne pas , revenir en arrière et revérifier le code. Il doit être exact . Si vous obtenez une erreur disant que le fichier existant ne peut pas être trouvée, vérifier l'emplacement et assurez- vous entré exactement. Quand tout fonctionne , cliquez sur « Fichier», puis «faire» et le suivre par le nom que vous avez assigné au projet dès le début . Cela va créer une version exécutable que vous pouvez exécuter directement .
|
