Convertir le formulaire utilisateur VBA Excel en VB

formulaire utilisateur vba excel vers vb

Ouvrez le fichier FRM avec un éditeur de texte,

VERSION 5.00

Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 'Ceci doit être modifié pour Begin VB.Form Form1

Légende = "UserForm1"

Hauteur du client = 3120

ClientGauche = 45

ClientTop = 435

ClientWidth = 4710

OleObjectBlob = "UserForm1.frx":0000 'Supprimer cette ligne

StartUpPosition = 1 'Centre des propriétaires

Fin

Attribut VB_Name = "UserForm1"

Attribut VB_GlobalNameSpace = False

Attribut VB_Creatable = False

Attribut VB_PredeclaredId = True

Attribut VB_Exposed = False

'D'autres objets effectuent également des modifications similaires

Importer des données d'Excel vers VB

Pour appeler Excel en VB, vous devez ouvrir l'élément "Référence" dans le menu "Projet" de l'environnement de programmation VB et sélectionner l'élément "Bibliothèque d'objets MicrosoftExcel 11.0" dans le projet. Puisque votre version d'Excel est différente, le numéro de version de cette option est également différent.

Étant donné qu'EXCEL organise les objets dans une structure hiérarchique, son modèle objet contient de nombreux éléments d'objet différents.

Première couche : objet d'application, c'est-à-dire Excel lui-même ;

La deuxième couche : ensemble d'objets de classeurs, fait référence au fichier de classeur Excel

Le troisième calque : l'ensemble d'objets de feuilles de calcul, qui représente une feuille de calcul dans Excel

 ;

Niveau 4 : objets Cellules et Plage, pointant vers des cellules dans la feuille de calcul Excel.

Dim xlapp As Excel.Application 'Objet Excel

Dim xlbook As Excel.Workbook 'Workbook

Dim xlsheet As Excel.Worksheet 'Worksheet

Set xlapp = CreateObject(＂Excel.Application＂) 'Créer un objet EXCEL

Set xlbook = xlapp.Workbooks.Open("D:data.xls") 'Ouvrez le fichier de classeur data.xls existant

xlapp.Visible = True 'Définit l'objet EXCEL pour qu'il soit visible (ou invisible)

Set xlsheet = xlbook.Worksheets(1) 'Définir la feuille de calcul active''

''~~~La première feuille du classeur actuel, vous pouvez également la changer ici en "nom de la feuille" tel que "Feuille1"

【Vous pouvez définir vous-même la partie du tableau】

Attribuez la valeur d'une cellule du tableau à une variable, telle qu'un élément dans un tableau

arr(1,1)=xlsheet.Range(＂B2＂).Value

……

Dernière fermeture :

xlbook.Fermer

xlapp.quit

Ensuite, mettez les trois objets dans le néant

Comment introduire des données Excel dans un tableau bidimensionnel vb

Utilisez la méthode de requête de base de données

Lisez-le et placez-le dans un tableau bidimensionnel

Dim cnn2 comme nouveau ADODB.Connection

Dim rs2 comme nouveau ADODB.Recordset

cnn2.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=＂ & Text1.Text & ＂;Extended＂

rs2.Open "Sélectionner le nom, le sexe à partir de [sheet1$]", cnn2, adOpenKeyset, adLockOptimistic

i=0

s = rs2.ields.Item(0).Value 'Lisez le nom et le sexe dans la feuille 1

Si IsNull(s), alors quittez Do

a(i)=rs2.fields.Item(0).Value 'Nom

b(i)=rs2.Fields.Item(1).Value 'Gender

i=i+1

rs2.MoveNext

Boucle

Définir rs2 = Rien

Définissez cnn2 = Rien

Un expert VB enseigne : Comment importer des données d'une feuille de calcul vers VB

Code pour lire la cellule A2 : (Les données sont dans la variable R, MICROSOFT EXCEL OBJECT LIBRARY doit être cité avant le projet)

ExcelApp privé comme Excel.Application

Sous-commande privée2_Click()

Définir excelApp = Nouvelle excel.Application

excelApp.Visible = Vrai

excelApp.Workbooks.Open FileName:=＂C:student.xls＂

excelApp.Range(＂A2＂).Select

r = excelApp.ActiveCell.FormulaR1C1

Debug.Print r

excelApp.Quitter

Définir excelApp = Rien

Fin du sous-marin

'Si vous ne voulez pas que tout le monde voie l'interface EXCEL, supprimez simplement excelApp.Visible = True.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!