Список листов *.xls "нестандартно"

[SergT]

Доброе время суток всем жителям форума.
Вопрос мой может показаться дурацким, но...
Как получить список имен листов xls файла (~ 3Mb), который лежит в локальной сети, НЕ ИСПОЛЬЗУЯ :
1) New Excel.Application
2) DAO

На компе не установлен MS Ofice. Подключение через DAO выдает ошибку, если другой юзер открыл файл для редактирования.

Получить список листов, собственно, могу вручную - открыв файл xls блокнотом. Там все имена лежат в конце файла. Хотел получить это через Open for input #1, но , к своему стыду, получил фигу.
Очень надеюсь на вашу помощь.

[SSecurity]

Получить список листов, собственно, могу вручную - открыв файл xls блокнотом. Там все имена лежат в конце файла. Хотел получить это через Open for input #1, но , к своему стыду, получил фигу.
Очень надеюсь на вашу помощь.

А ты попробуй через OPEN .. For BINARY as 1 если конечно тебя прильщает такой вариант.
(в пременную MyVal забираешь где-то 10 -20 кБ с конца ищешь текст Worksheets, все после отрезаешь, оно не нужно ... и все что ДО осталось анализируешь в пределах 1 кБ ) можешь из переменной сразу MyVal = Replace(MyVal, chr(0),"")

Второй вариант через ADO. Также как ты можешь создать DSN для файла точно также коннектишься и перебираешь его листочки

С Уважением,
Сергей

[SergT]

А ты попробуй через BINARY если конечно тебя прильщает такой вариант.

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

Второй вариант через ADO. Также как ты можешь создать DSN для файла точно также коннектишься и перебираешь его листочки

Думаю, что проблема с доступом останется, когда кто-то редактирует файл

[SSecurity]

КОД ПОДПРАВИЛ

Код: Выделить всё


Dim MyVal as String * 20000
FileName = "C:\Test.xls"
X = FileLen(FileName)
Open FileName For BINARY as #1
  GET #1, X - len(myVal), myVal
Close
PP = Instr(1,myVal, "Worksheet")
if PP = 0 then
  msgbox "надо кусок больше забирать"
else
  'урезали до воркшита
  myVal2 = left$(myVal,PP-1)
  'тут уже обрабатываешь выковыривая удобчитаемые слова
  'у меня где-то за 5 тыс символов до конца он встречается
 
end if


[SergT]

Спасибо, завтра испробую. Задача облегчается(?) тем, что я всегда(?) знаю имя первого листа

[SergT]

Собственно, начало описания листов можно найти по комбинации:

Код: Выделить всё

sDelim = Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0)

v1 = InStr(1, Str1, Chr(11) & sDelim & Chr(11) & sDelim & _
Chr(11) & sDelim & Chr(11) & sDelim & Chr(30) & Chr(16), vbTextCompare)
If v1 <> 0 Then Str1 = Mid(Str1, v1)

... а окончание по:

Код: Выделить всё

v1 = InStr(1, Str1, Chr(12) & Chr(16) & Chr(2), vbTextCompare)

Как только нашли начало, то сразу после Chr(16) (Если смотреть как Asc())-цифра, означающая кол-во листов.

Но далее - такой гимор! Делители между именами могут быть разными(в зависимости от написания имени и еще чего-то). A еще Chr(0) - проблема для текстового отображения.
Я просмотрел множество файлов, с разным кол-вом листов, и понял, что с наскоку это не одолеть. Мне повезло, что интересующие меня файлы однотипны и я знаю название первого листа. Далее ищу Chr(7) или Chr(8) . НО ДОВЕРИЯ к такой схеме - нет!

Если у кого-то есть мысли по теме, поделитесь пожалуйста!

[kibernetics]

SergT
а через ADO можно?

[SergT]

Блин! Хороший форум, но первое письмо не прошло! Попытка №2

SergT
а через ADO можно?

Нельзя
Идея- отказаться от связей с Excel. Вот Экзешник. Потестируйте, пожалуйста , на разных офисах. Я перепробовал 500 файлов на Office 2000 - работал адекватно. Если найдете несоответствие, пожалуйста, пришлите в личку файл без данных! Если не найдете несоответствия, выложу исходник. Пока не могу, стыдно за бардак в коде. Сам многое не понимаю

Если идея "прокатит", выложу exe для чтения Excel файлов, без установленного Excel (на VS FlexGrid8)

Добавлено позже:
На другом компе уже нашел несоответствия. Попробую исправит после 21 октября!