在Excel里打开Visual Baisic 编辑器后,引用ADO( 工具/引用/Microsoft ActiveX Data Object 2.X Library)然后就可以像在vb里一样编程了: Private Sub CommandButton1_Click() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.Open "Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=XXX;" '查询Oracle的数据 rs.Open "select * from tableName", cn, adOpenDynamic, adLockOptimistic '插入数据 cn.Execute ("insert into tableName ......") '...... End Sub
Private Sub CommandButton1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.Open "Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=XXX;"
'查询Oracle的数据
rs.Open "select * from tableName", cn, adOpenDynamic, adLockOptimistic
'插入数据
cn.Execute ("insert into tableName ......")
'......
End Sub