当前位置:编程学习 > VB >>

有关Excel中多个Sheet页数据导入MS SqlServer数据库问题!

大家新年好:
    寻求高手帮忙解决问题,我以前写过类似的这类程序。是将一个Excel中第一个Sheet即Sheet1中的数据导入到数据库中。但是现在有一个新的需求。就是将一张Excel表格中多张Sheet页同时导入到数据库中。
    简单的说就是以前只是将表格中的Sheet1导入而现在是将Sheet1,Sheet2,Sheet3...等一次导入(有多少个Sheet不确定)。请问应该怎么写程序处理啊? --------------------编程问答--------------------

    Dim objExcelFile As Excel.Application
    Dim objWorkBook As Excel.Workbook
    Dim objImportSheet As Excel.Worksheet

    Dim EXcelFileName as string  'Excel文件名
    Set objExcelFile = New Excel.Application
    objExcelFile.DisplayAlerts = False
    Set objWorkBook = objExcelFile.Workbooks.Open(EXcelFileName)

    For j = 1 To objWorkBook.Sheets.Count
        Set objImportSheet = objWorkBook.Sheets(j)

        debug.print objImportSheet.Cells(1, 1).Value)  
        ...
    Next

    objExcelFile.Quit
    Set objWorkBook = Nothing
    Set objImportSheet = Nothing
    Set objExcelFile = Nothing

--------------------编程问答-------------------- 多谢了。
需要导入的是整个Excel表格中的一部分。具易做图置是从C19开始到T22结束。应该怎么处理啊? --------------------编程问答-------------------- Select * Into DestTable1 From [Sheet1$C19:T22] --------------------编程问答-------------------- 好的,谢谢!
我马上试试。 --------------------编程问答-------------------- lz要干嘛? --------------------编程问答-------------------- 接分先!
补充:VB ,  VBA
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,