求用VBA写的EXCEL内容导入ORACLE数据库的代码——较急

Question

由于刚开始接触VBA，所以很菜，希望XDJM们能帮忙。
一个ORACLE数据库，用户名：USER1 密码：1234 SID：ASP  服务器名：ASPEN
现要将EXCEL中的几行数据导入到ORACLE数据库的表中（表已在ORACLE中建立的）。
希望大家都给个代码例子，先在此谢谢了！

Answer 1

还有EXCEL连ORACLE数据库的方法（代码），谢！

Answer 2

没用oracle做过，给你个Excel导入sql的例子：'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
    cn.CursorLocation = adUseClient
    cn.Open    
    cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=c:\Test.xls;','select * from [Sheet1$]')"
    cn.Close
    Set cn=Nothing
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

理論上只要把連接字符串改掉就行了。
cn.ConnectionString的值。

Answer 4

http://community.csdn.net/Expert/topic/4520/4520975.xml?temp=.5039484

Answer 5

各位大侠： 
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=c:\Test.xls;','select * from [Sheet1$]')"
这段看不明白，能不能帮着解释下，而且我的SQL用的INTER。

Answer 6

运行的时候老是说  Dim cn As New ADODB.Connection
这句有错，用户定义类型未定义啊！

Answer 7

没有引用Microsoft.Activex  Data Object ......

Answer 8

哦！知道了！
from [Sheet1$]
提示错误说数据库引擎找不到‘[Sheet1$]’？？？
怎么回事？

Answer 9

OLE DB提供程序'Microsoft.Jet.OLEDB4.0'报错
提供程序未给出有关错误的任何信息
？？？
这是怎么回事？？

Answer 10

我是这么写的！
    Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=SQLOLEDB;Data Source=YUBO;" & _
        "Initial Catalog=test;User ID=sa;Password="    'Import by using OPENDATASOURCE.
    strSQL = "SELECT * INTO ciq_main FROM " & _
        "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
        "'Data Source=C:\abc.xls;" & _
        "Extended Properties=Excel 8.0')...[Sheet1$]"
    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff报错：
运行时错误：'2147217900 (80040e14)'
OLE DB提供程序'Microsoft.Jet.OLEDB4.0'报错
提供程序未给出有关错误的任何信息
错误行是
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
高手帮忙看看啊！

Answer 11

运行时错误：'2147217900 (80040e14)'
OLE DB提供程序'Microsoft.Jet.OLEDB4.0'报错
提供程序未给出有关错误的任何信息
-----------------------------------
在打开Excel（指你要导出的Excel文件:C:\abc.xls）的情况下运行上面的代码，一般就会报上面所描述的错误，把Excel关闭再运行就好了

Answer 12

最简单的是引用好后
直接用 PROJECT ->add dataEnvironment  建好后   
属性  --->提供程序----> microsoft oledb provider for oracle 
然后填入你的信息
再  If DataEnvironment1.Connection1.State = 0 Then
         DataEnvironment1.Connection1.Open
     End If
     DataEnvironment1.Connection1.Execute( SQL 语句)
----
DataEnvironment1.Connection1.close