Конференция VBStreets

**fizik_leha** » 01.12.2004 (Ср) 12:47

Необходимо из VB6 получить доступ к Экселевскому файлу и скопировать оттуда в массив два столбца...
Вроде все просто, но необходимо это сделать не открывая экселевский файл...
Каким образом это осуществить?

**alibek** » 01.12.2004 (Ср) 12:52

Шо, опять?
Опять открыть файл не открывая его?

**Snussi** » 01.12.2004 (Ср) 13:00

Может, надо просто не показывать этот файл на экране?
Если так, то просто - готов кусок кода подкинуть

**fizik_leha** » 01.12.2004 (Ср) 13:16

За фрагмент кода буду благодарен...

to alibek: я просто думал, что к экселевскому файлу можно через АDO как и к Access доступ получить...

**alibek** » 01.12.2004 (Ср) 13:18

Можно, строка подключения подглядывается на www.connectionstrings.com.

**fizik_leha** » 01.12.2004 (Ср) 13:28

Спасибо... только что то я не понял структуру sql запроса...

**alibek** » 01.12.2004 (Ср) 13:31

Работаешь абсолютно также, как с обычной БД через ADO.

**fizik_leha** » 01.12.2004 (Ср) 13:41

а вместо имен полей что задавать?
если можно примерчик плиз...

**GSerg** » 01.12.2004 (Ср) 14:27

Имена столбцов, коие в первой строке обретаются...

**fizik_leha** » 01.12.2004 (Ср) 17:08

cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Documents and Settings\All Users\Документы\Входящее\progeck JC\product list 02.11.2004.xls;Extended Properties =""Excel8.0;HDR = Yes;IMEX = 1"""
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
'.Execute "ALTER TABLE japan_cars ADD MyNewColumn1 String(20) NULL" ' Добавление в таблицу нового поля...

End With

Говорит, что не может найти устанавливаемый ISAM

Что я не так делаю?

**Konst_One** » 01.12.2004 (Ср) 17:30

енто батенька тебе прямая дорога на сайт мелкософта в раздел доступа к данным (MDAC) и качать тебе MSJET4.0SP8 как минимум.
и вообще почитай у них, там много чего есть интересного

**fizik_leha** » 01.12.2004 (Ср) 17:53

Самое интересное, что он у меня установлен...
Были проблемы с доступом к ассess 2003 так я себе все поустанавливал....
Мне кажется, что ошибка где то в строке подключения, но не могу понять где именно...

**Konst_One** » 01.12.2004 (Ср) 18:10

проверь IMEX, что то мне кажется там был другой код

**Konst_One** » 01.12.2004 (Ср) 18:28

там что-то я пробельчика у тебя не вижу в строчке ..."Excel 8.0;...

попробуй еще вот так получить доступ:

Код: Выделить всё: Cn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ "DriverId=790;" & _ "Dbq=c:\somepath\mySpreadsheet.xls;" & _ "DefaultDir=c:\somepath;"

**fizik_leha** » 01.12.2004 (Ср) 18:33

Что то не могу понять за что этот Imex отвечает...
Вроде он должен указывать на имена полей в Экселе...
Короче совсем запутался....
точную ссылку на этот апдейт кинуть не можешь?
А то я в этом майкрософте закопался уже...

**fizik_leha** » 02.12.2004 (Чт) 10:32

Ладно... не получается сделать по умному сделаю по другому...
Как открыть экселевский файл так что бы он на экран не выводился?

**GSerg** » 02.12.2004 (Чт) 11:25

IMEX=1 нужен в том случае, когда колонка содержит разные типы данных. Тогда все они будут возвращены как строки.

Чтоб не выводился:
with createobject("excel.application")
.workbooks.open "path"
....
.quit
end with

**fizik_leha** » 02.12.2004 (Чт) 11:33

Спасибо... вроде получилось....

Конференция VBStreets

VB+Excel

VB+Excel

Кто сейчас на конференции