#引用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＂). 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 Err.Clear x = xls.Name If Err.Number 0 Then Set Err.Clear x = xls.Name If Err.Number
0 Then Set Err.Clear x = xls.Name If Err.Number0 Then Set Err.Clear x = xls.Name If Err.Number
0 Then Set Set Then Set xls = New Excel.Application End If x = wb.Name If Err.Number0 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
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 至 105
k = chr(j)
ns.range(k&i).value = ＂第＂&i&＂個＂
next:next
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###以上是用VB將控制項中的資料逐行逐列的寫入Excle的詳細內容。更多資訊請關注PHP中文網其他相關文章！
