Utilisez VB pour écrire les données du contrôle dans Excel ligne par ligne et colonne par colonne

Utilisez VB pour écrire les données du contrôle dans Excel ligne par ligne et colonne par colonne

Veuillez citer Excel,

dim xls comme nouvelle application Excel

dim wb comme excel.workbook

dim sht comme excle.worksheet

'Ce qui précède est la variable de formulaire

'chargement de formulaire

set wb =xls.workboods.add("F:data.xls")

set sht =wb.worksheets(1)

Bouton '---' :

dim r comme entier

r=sht.range(＂A65536＂).end(xlsup).row+1

sht(r,1)=text1.text

sht(r,2)=text2.text

wb.save

'---quand le formulaire est déchargé

wb.close

xls.quitter

Option explicite

Dim xls comme Excel.Application Dim wb comme Excel.Workbook Dim sht comme Excel.Worksheet

Private Sub Command1_Click() TryOpenXls Dim r As Integer r = sht.Range(＂A65536＂).End(xlUp).Row + 1 Si r = 2 Et sht.Range(＂A1＂).Value = ＂＂" Et sht .Range(＂B1＂).Value = ＂＂ Alors r = 1 sht.Cells(r, 1) = Text1.Text sht.Cells(r, 2) = Text2.Text wb.Save End Sub

Private Sub TryOpenXls() En cas d'erreur Reprendre Next Dim x As String Dim path As String path = App.path & "abc.xls＂ Err.Clear x = xls.Name If Err.Number 0 Then Set xls = New Excel. Fin de l'application Si x = wb.Name If Err.Number 0 Then On Error GoTo 0 If Len(Dir(path)) = 0 Then Set wb = xls.Workbooks.Add wb.SaveAs path Else Set wb = xls.Workbooks. Ouvrir(chemin) Fin si Fin si

En cas d'erreur GoTo 0 Set sht = wb.Worksheets(1) End Sub

Sous-formulaire privé_Unload (Annuler en tant qu'entier) En cas d'erreur Reprendre ensuite Set sht = Nothing If Not wb Is Nothing Then wb.Save: wb.Close If Not xls Is Nothing Then xls.Quit Set wb = Nothing Set xls = Nothing End Sub

Comment importer des données calculées en vb dans Excel

Je n'ai pas lu votre programme

Donnez-vous une référence

Laissez un message si vous avez des questions

set e = CreateObject(＂Excel.Application＂)

e.visible = 0

set nb = e.workbooks.add

set ns = nb.worksheets(1)

pour i = 1 à 10

pour j = 1 à 10

ns.cells(i,j) = cstr(i) & ＂,＂ & cstr(j)

suivant

suivant

ns.saveas ＂c:a.xlsx＂

e.quit

set e = CreateObject(＂Excel.Application＂)

e.visible = 0

set nb = e.workbooks.add

set ns = nb.worksheets(1)

pour i = 1 à 10

pour j = 97 à 105

k = chr(j)

ns.range(k&i).value = "le"&i&"ème"

suivant :suivant

ns.saveas ＂c:a.xls＂

e.quit

VB enregistre les données du tableau dans Excel

Sous-commande privée1_Click()

Dim XlApp en tant que nouvelle application Excel

Dim xlBook comme nouveau Excel.Workbook

Dim xlSheet comme nouveau Excel.Worksheet

XlApp.Visible = Vrai

Définissez xlBook = XlApp.Workbooks.Add

Définissez xlSheet = xlBook.Worksheets(1)

Pour i=1 à 20 'Votre tableau contient 21 nombres, pas 20

xlSheet.Range(xlSheet.Cells(1,i).Value=a1(i)

xlSheet.Range(xlSheet.Cells(2,i).Value=b1(i)

xlSheet.Range(xlSheet.Cells(3,i).Value=c1(i)

xlSheet.Range(xlSheet.Cells(4,i).Value=d1(i)

xlSheet.Range(xlSheet.Cells(5,i).Value=e1(i)

xlSheet.Range(xlSheet.Cells(6,i).Value=f1(i)

Suivant je

Fin du sous-marin

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!