有关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