用VB將控件中的數(shù)據(jù)逐行逐列的寫入Excle

引用一下excel吧，

dim xls as new excel.application

dim wb as excel.workbook

dim sht as excle.worksheet

'上面為窗體變量

'form load

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

set sht =wb.worksheets(1)

'---'按鈕：

dim r as integer

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

sht(r,1)=text1.text

sht(r,2)=text2.text

wb.save

'---form unload 時

wb.close

xls.quit

Option Explicit

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

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 = ＂＂ Then 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.Application End If 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.Open(path) End If End If

On Error 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

如何把vb中算出來的數(shù)據(jù)導(dǎo)入到excel

沒看你的程序

給你提供點參考

有問題留言

set e = CreateObject(＂Excel.Application＂)

e.visible = 0

set nb = e.workbooks.add

set ns = nb.worksheets(1)

for i = 1 to 10

for j = 1 to 10

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

序列猴子開放平臺

具有長序列、多模態(tài)、單模型、大數(shù)據(jù)等特點的超大規(guī)模語言模型

0

查看詳情

next

next

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)

for i = 1 to 10

for j = 97 to 105

k = chr(j)

ns.range(k&i).value = ＂第＂&i&＂個＂

next:next

ns.saveas ＂c:\a.xls＂

e.quit

VB將數(shù)組的數(shù)據(jù)保存到Excel中

Private Sub Command1_Click()

Dim XlApp As New Excel.Application

Dim xlBook As New Excel.Workbook

Dim xlSheet As New Excel.Worksheet

XlApp.Visible = True

Set xlBook = XlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)

For i=1 to 20 '你這數(shù)組是21個數(shù)不是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)

Next i

End Sub

以上就是用VB將控件中的數(shù)據(jù)逐行逐列的寫入Excle的詳細(xì)內(nèi)容，更多請關(guān)注php中文網(wǎng)其它相關(guān)文章！