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

[NecroTYN]

Добрый вечер господа програмисты !!!

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



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



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



2. нужно создать скрипт для чтения определенных данных из файла Раскрой Инф и записать в таблицу tblDataCutting "Данные о раскрое"

нужно выбрать следующие данные:

Данные из строки ''заказ'' нужно записать в поле OrderName

Данные из строки ''Материал'' нужно записать в поле Material

Данные из строки ''Дата'' нужно записать в поле DateIn

Данные из строки ''Размер плиты'' нужно записать в поле PlateSize

Данные из строки ''Количество плит материала'' нужно записать в поле AmountPlates



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

Вложения

Database111.zip

(12.35 КБ) 0 скачиваний

Database111.zip

(12.35 КБ) 0 скачиваний

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

[NecroTYN]

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

[NecroTYN]

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

[Iska]

Цитата Iska:



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

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

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



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

[Delirium]

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

Излагай свои мысли, наработки и т.п. Вот тогда поможем.

[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

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