Utilisez VB pour écrire les données du contrôle dans Excel ligne par ligne et colonne par colonne-connaissances en informatique-php.cn

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

WBOY

Libérer： 2024-01-14 22:45:05

avant

963 Les gens l'ont consulté

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