我想做一個程式：程式中調入excel，下圖中文本中寫入內容，按確定他會添加到excel中，且界面上的excel就會添入資料。
然后到網上下了一個可以顯示的，但是有好多不符合，首先運行后excel能顯示出來但是excel上面的性別，名字不知從哪里來的
代碼如下：
Option Explicit
Dim xlApp As Excel.Application '定義EXCEL類
Dim xlBook As Excel.Workbook '定義工件簿類
Dim xlsheet As Excel.Worksheet '定義作業表類
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = False '設定EXCEL不可見
Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打開EXCEL作業簿
Set xlsheet = xlBook.Worksheets(1) '打開EXCEL作業表
'xlsheet.Activate '激活作業表
Dim litem
For i = 2 To 7 '行/記錄條數
Set litem = ListView1.ListItems.Add()
litem.Text = xlsheet.Cells(i, 1)
litem.SubItems(1) = xlsheet.Cells(i, 2)
litem.SubItems(2) = xlsheet.Cells(i, 3)
litem.SubItems(3) = xlsheet.Cells(i, 4)
'MsgBox xlsheet.Cells(i, j)
Next
xlBook.Close (True) '關閉EXCEL作業簿
xlApp.Quit '關閉EXCEL
Set xlApp = Nothing '釋放EXCEL物件
End Sub
uj5u.com熱心網友回復：
Option ExplicitDim xlApp As Excel.Application '定義EXCEL類
Dim xlBook As Excel.Workbook '定義工件簿類
Dim xlsheet As Excel.Worksheet '定義作業表類
private sub form_load()
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = true '設定EXCEL可見
Set xlBook = xlApp.Workbooks.add
Set xlsheet = xlBook.Worksheets(1) '打開EXCEL作業表
'xlsheet.Activate '激活作業表
end sub
Private Sub Command1_Click()
''給第一個單元格賦值
xlsheet.Cells(1, 1)="sofhoisfhoisf"
End Sub
private form_unload()
set xlsheet=nothing
set xlbook=nothing
xlapp.quit
set xlapp=nothing
end sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/123897.html
標籤：VBA
下一篇：求演算法！比較難！急！