'----------------------------------------------
' 函数名称： InsertFromTable(datasource,fold,sheet,row)
' 作用：　　从excell表中插入数据到指定的数据表
' 参数说明： datasource: 指定的数据库名称
'                           fold: excell文件目录
'                          sheet: 指定的sheet，sheet名称为数据表的名称
'                          '      row= all ,那么插入该sheet下的所有行数据
                           '      row =2 ，3等序数，则插入数据指定的行数
'----------------------------------------------
Sub InsertFromTable(datasource,fold,sheet,row)
     Set excell = CreateObject("Excel.Application")
  excell.Visible = false
  excell.WorkBooks.Open(fold)
  excell.WorkSheets(sheet).Activate
  '得到该sheet的总列数
  col = excell.worksheets(sheet).UsedRange.columns.count
  '得到该sheet的总行数
  If row = "all" Then
      rows = excell.WorkSheets(sheet).UsedRange.Rows.Count
       For indexi = 2 to rows
        strSql = ""
        For indexj = 1 to col
        If indexj = col Then
         strSql = strSql +"'" +  CStr(excell.Cells(indexi, indexj).Text) + "'"
        else
         strSql = strSql + "'" +  CStr(excell.Cells(indexi, indexj).Text) + "',"
        End If
       Next
        '插入数据的sql
        sql = "insert into " + sheet +  " values(" + strSql + ")"
        Call InsertOne(datasource,sql)
      Next
  else
      For index = 1 to col
       If index = col Then
        strSql = strSql +"'" +  CStr(excell.Cells(row, index).Text) + "'"
       else
        strSql = strSql + "'" +  CStr(excell.Cells(row, index).Text) + "',"
       End If
         Next
        sql = "insert into AUCTION_BUYER_ANONY values(" + strSql + ")"
        Call InsertOne(datasource,sql)
     End If
  excell.ActiveWorkbook.Close(0)
  excell.Quit()
End Sub
如要在dbc中插入数据，则可以使用下面的方法：
fold = "d:\test.xls"
sheet = "AUCTION_BUYER_ANONY"
call InsertFromTable(devdbc,fold,sheet,"all")