標題: [發問] excel vb語法 請教 [打印本頁]

---

作者: bqwangs    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)