求一个导入excel或者access数据库的内容进入mysql数据库的程序实现方法

Question

如何实现呢?通过odbc?

Answer 1

Dim excel_app As excel.Application
    Dim excel_sheet As excel.Sheets
    Set excel_app = CreateObject("excel.application")                  'excel对象
    Set excel_app = New excel.Application
    excel_app.Workbooks.Open FileName:="....\111.xls"
    '''上面打开了excel文件    Set excel_sheet = excel_app.ActiveSheet
    
然后可以直接从excel中读取数据了，比如显示在文本框中
    text1.text=excel_sheet.cells(1,2)
    现在知道怎么往数据库里面插了吧
         最后不要忘记    excel_app.Quit
    Set excel_app = Nothing
    Set excel_sheet = Nothing