Автоматизировать Импорт нескольких Excel рабочих таблиц в SQL

Question

В VB6:

мне нужно, чтобы позволить пользователю выбрать файл Excel, а затем загрузить все листы в таблицу SQL. Я не уверен, как это сделать. Формат каждого листа точно такой же. Формат рабочего листа соответствует формату таблицы SQL.

Я действительно стучу головой о стену здесь. Если бы кто-нибудь мог предложить предложение, пример кода и т. Д., Я бы ДЕЙСТВИТЕЛЬНО оценил это.

Спасибо, ребята.

Answer 1

Вы можете использовать поставщик ODBC для файлов Excel. Вот код, написанный в javascript для импорта файла Excel в таблицу SQL Server. Каждая рабочая таблица рассматривается как отдельная таблица. Есть некоторые проблемы с типами данных, потому что драйвер ODBC выводит тип данных каждого столбца, читая его первые значения, поэтому, если столбец имеет номера в первых строках данных, весь столбец будет считан как числовой и каждый «не числовой», значение будет считано NULL.

var objCat = new ActiveXObject("ADODB.Connection"); 
var objRSExcel = Server.CreateObject("ADODB.Recordset"); 
objRSExcel.CursorLocation = 3; 
var file = "imported_file.xls"; 
var TableName = "[Sheet1$]" 

// Database Creation 
objCat.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + file + ";Extended Properties=Excel 8.0;";      
objCat.Open(); 
objRSExcel.Open("SELECT * FROM " + TableName, objCat); 

var rsInsert = Server.CreateObject("ADODB.Recordset"); 
rsInsert.Open("SELECT * FROM [TARGET_TABLE]", cn, 1, 3); 

while (!objRSExcel.EOF) { 
    rsInsert.AddNew(); 
    for (var j=0;j<objRSExcel.Fields.Count; j++) { 
     rsInsert.Fields(j).Value = objRSExcel.Fields(j).Value; 
    } 
    rsInsert.Update(); 
    objRSExcel.MoveNext(); 
} 
objRSExcel.Close(); 
rsInsert.Close();