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

Question

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

Answer 1

    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

Answer 2

多谢了。
需要导入的是整个Excel表格中的一部分。具体位置是从C19开始到T22结束。应该怎么处理啊？

Answer 3

Select * Into DestTable1 From [Sheet1$C19:T22]