ник: novex
При импорте данны из файлов MS Excel (*.xls) использую следующий код:
Dim xlApp
Set xlApp = CreateObject("excel.application")
xlApp.Workbooks.Open sFileName
...
Do While I <= cnMS_Excel_MaxRowCount
sStr = xlApp.Workbooks(1).Sheets(1).Cells(I, 1).value
If ((sStr = "") Or IsEmpty(sStr)) Then Exit Do
Execute_SQL("Insert Into tXLS_Date (nCount) Values (" & sStr & ")")
I = I + 1
Loop
...
xlApp.Workbooks(1).Close SaveChanges:=False
xlApp.Quit
Set xlApp = Nothing
|
но после его работы в процессах остается висеть MS Excel и если в последствии открыть какой либо файл *.xls, то кроме открываемого файла вспловет еще и импортируемый.
Как по правильному все сделать?
Еще парит писать разный код для разных типов файлов, ну т.е. в одном 5 столбцов импортируются в таблицу А, в другом 10 в таблицу Б, соответственно структура таблиц разная.
Может есть какой либо способ все упростить?