Verwenden Sie VB, um Daten im Steuerelement Zeile für Zeile und Spalte für Spalte in Excel zu schreiben

Verwenden Sie VB, um die Daten im Steuerelement Zeile für Zeile und Spalte für Spalte in Excel zu schreiben

Bitte zitieren Sie Excel,

XLS als neue Excel-Anwendung dimmen

WB als Excel-Arbeitsmappe dimmen

sht als Excel-Arbeitsblatt dimmen

'Das Obige ist die Formularvariable

'Formular laden

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

set sht =wb.worksheets(1)

'---'-Taste:

dim r als Ganzzahl

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

sht(r,1)=text1.text

sht(r,2)=text2.text

wb.save

'---beim Entladen des Formulars

wb.close

xls.quit

Option explizit

XLS als Excel.Application dimmen, wb als Excel.Workbook dimmen, Sht als Excel.Worksheet dimmen

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

Private Sub TryOpenXls() On Error Resume 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. Anwendungsende Wenn x = wb.Name Wenn Err.Number 0 Dann bei Fehler GoTo 0 Wenn Len(Dir(path)) = 0 Dann wb = xls.Workbooks.Add wb.SaveAs path festlegen Sonst wb = xls.Workbooks festlegen. Open(path) End If End If

Bei Fehler GoTo 0 Set sht = wb.Worksheets(1) End Sub

Private Sub Form_Unload(Cancel As Integer) On Error Resume Next 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

So importieren Sie in VB berechnete Daten in Excel

Habe dein Programm nicht gelesen

Geben Sie eine Referenz

Hinterlassen Sie eine Nachricht, wenn Sie Fragen haben

set e = CreateObject(＂Excel.Application＂)

e.visible = 0

set nb = e.workbooks.add

set ns = nb.worksheets(1)

für i = 1 bis 10

für j = 1 bis 10

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

nächstes

nächstes

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)

für i = 1 bis 10

für j = 97 bis 105

k = chr(j)

ns.range(k&i).value = „the“&i&“th“

nächster:nächster

ns.saveas ＂c:a.xls＂

e.quit

VB speichert Array-Daten in Excel

Private Sub Command1_Click()

XlApp als neue Excel-Anwendung dimmen

Dim xlBook As New Excel.Workbook

XLSheet als neues Excel-Arbeitsblatt dimmen

XlApp.Visible = True

Setzen Sie xlBook = XlApp.Workbooks.Add

Setzen Sie xlSheet = xlBook.Worksheets(1)

Für i=1 bis 20 'Ihr Array hat 21 Zahlen, nicht 20 Zahlen

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)

Als nächstes

End Sub

Das obige ist der detaillierte Inhalt vonVerwenden Sie VB, um Daten im Steuerelement Zeile für Zeile und Spalte für Spalte in Excel zu schreiben. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!