如何把EXCEL的内容取出，与ORACLE数据库表中的字段对应的存放到数据库中。急，急。。。

Question

看看下面这段代码,是ORACLE提供的一个与EXCEL编辑数据的例子. Sub Update_Data()  Dim OraSession As Object
  Dim OraDatabase As Object
  Dim EmpDynaset As Object
  Dim ColNames As Object
  Set OraSession = CreateObject("OracleInProcServer.XOraSession")
  Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
  Set EmpDynaset = OraDatabase.DbCreateDynaset("select * from emp", 0&)
  Set ColNames = EmpDynaset.Fields  i = 2
    OraSession.BeginTrans
  While Worksheets("DataSheet").Cells(i, 1).Value <> ""
    EmpDynaset.dbedit
    For j = 1 To ColNames.Count
      ColNames(j - 1).Value = Worksheets("DataSheet").Cells(i, j).Value
    Next j
    EmpDynaset.dbupdate
    EmpDynaset.dbmovenext
    i = i + 1
  Wend
  OraSession.CommitTransEnd Sub

Answer 1

这样可以吗、？具体该怎样做呢？希望得到各们的详解。谢谢