返回列表下一主題上一主題發帖

[發問] excel vb語法請教

bqwangs

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: win xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-5-22
最後登錄: 2020-3-9

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-6-3 10:43 | 只看該作者

[發問] excel vb語法請教

excel 我已設了一個按鈕將三個欄位copy 到access
vb碼如下執行會發生錯誤請教各位大大要如何修改

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim connstr As String
Dim dbPath As String
Dim filePath As String

dbPath = TXT_DATAPATH.Text 'Excel文件路?
filePath = TXT_FILEPATH.Text 'MDB文件路?

'?接?据?
'==============================================================================
connstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & dbPath
conn.Open connstr
sql = "SELECT * FROM user where id=-1"
rs.Open sql conn 1 3
rs.AddNew

'打?excel
'=============================================================================
Set xlApp = CreateObject("Excel.Application") '?建EXCEL?用?

xlApp.Visible = False '?置EXCEL不可?

Set xlBook = xlApp.Workbooks.Open(filePath) '打?EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打?EXCEL工作表
'xlApp.Activate '激活工作表

'插入?据 ?里需要根据你excel文件格式和mdb文件格式改?
'=============================================================================
rs("uname") = xlApp.Range("C4").Value
rs("usex") = xlApp.Range("E4").Value
rs("ubirth") = xlApp.Range("G4").Value
rs("uaddtime") = Now()

'保存
'=============================================================================
rs.Update
rs.Close

'清理工作
'=============================================================================
conn.Close
Set rs = Nothing
Set conn = Nothing
xlBook.Close (True) '??EXCEL工作簿
xlApp.Quit '??EXCEL
Set xlApp = Nothing '?放EXCEL?象

End Sub