PDA

Показать полную графическую версию : [решено] Скрипт VBS для Чтения из файла Excel и записи в Access


NecroTYN
22-01-2012, 21:26
Добрый вечер господа програмисты !!!
Помогите пожалуйста создать пару скриптов для чтения из файла *.xls и записи в таблицу Б/Д Access

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

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

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

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

NecroTYN
25-01-2012, 23:22
А что, на форуме людям больше не помогают ????

Iska
26-01-2012, 02:12
Помогают. NecroTYN, что именно у Вас не получается?

NecroTYN
26-01-2012, 18:51
что именно у Вас не получается? »

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

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

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

NecroTYN
27-01-2012, 12:18
Разработчик для примера выложил скрипт'читаем текстовый файл
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



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




© OSzone.net 2001-2012