[решено] Скрипт VBS для Чтения из файла Excel и записи в Access

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Скрипт VBS для Чтения из файла Excel и записи в Access

Добрый вечер господа програмисты !!!
Помогите пожалуйста создать пару скриптов для чтения из файла *.xls и записи в таблицу Б/Д Access

Файлы ексель и настройки полей с именами таблиц прикладываю

1. нужно создать скрипт для экспорта данных из файла Смета.xls и записать в таблицу tblEstimatedOrder "Смета заказа"

2. нужно создать скрипт для чтения определенных данных из файла Раскрой Инф и записать в таблицу tblDataCutting "Данные о раскрое"
нужно выбрать следующие данные:
Данные из строки ''заказ'' нужно записать в поле OrderName
Данные из строки ''Материал'' нужно записать в поле Material
Данные из строки ''Дата'' нужно записать в поле DateIn
Данные из строки ''Размер плиты'' нужно записать в поле PlateSize
Данные из строки ''Количество плит материала'' нужно записать в поле AmountPlates

Файлы *.xls, таблицы и настройки имен полей прикладываю...

А что, на форуме людям больше не помогают ????

Помогают. NecroTYN, что именно у Вас не получается?

Цитата:

Цитата Iska

что именно у Вас не получается? »

Работа с Б/Д происходит через программу использующую язык Transact-SQL

Я не знаю как создать скрипты для выполнения вышеизложеных задач...

NecroTYN, короче говоря, ты просишь не помочь, а решить задачу за тебя, а это разные вещи. Выложил в аттаче все данные для решения и сидишь ждешь готового продукта. Так не получится.
Излагай свои мысли, наработки и т.п. Вот тогда поможем.

Разработчик для примера выложил скрипт'читаем текстовый файл

Код:

If oFso.FileExists("C:\File1.txt") Then

     Set vStream = oFso.OpenTextFile("C:\File1.txt", 1, True) 'открываем файл для чтения (1 - ForReading, 2 - ForWriting) и получаем объект Stream (поток данных)

     Do Until vStream.AtEndOfStream 'цикл по строкам файла

          sLine = vStream.ReadLine 'чтение строки в переменную

          MsgBox "Прочитана строка: " & sLine, vbInformation, "Чтение текстового файла" 'показываем прочитанную строку в сообщении

     Loop

     vStream.Close 'закрываем файл

End If

и говорит что надо отталкиваться от него, но т.к. я не програмер, то и не знаю с чего начать...