用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＂). 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.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 至 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)

以上是用VB將控制項中的資料逐行逐列的寫入Excle的詳細內容。更多資訊請關注PHP中文網其他相關文章！