用VB将控件中的数据逐行逐列的写入Excle

用VB将控件中的数据逐行逐列的写入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中算出来的数据导入到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)

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将数组的数据保存到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 '你这数组是21个数不是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