в свое время я подобным образом радовался тому, что подключил Excel через OLE - оказалось, что для функций запроса к данным (по крайней мере) - это далеко не самый выдающийся способ... 

А можно краткую инструкцию по подключению?
Или ссылку на подобную инструкцию?

>>Если _база.Соединение("DRIVER=Microsoft Excel Driver (*.xls); DBQ=" +СокрЛП(_имя)) =0 Тогда

Имя это что? Путь файла или имя DSN ?

Цитата:

О, Славко, это надо в FAQ!

DrACe писал(а) 15. Ноября 2006 :: 10:47:


Адназначна!

Вот, с болью в сердце выдираю из контекста:

    With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
        .Connection = Array(Array( _
        "ODBC;DRIVER=SQL Server;SERVER=МойSERVER;UID=;APP=Microsoft Office 2003;WSID=;Network=DBMSSOCN;Address=МойSERVER,1433;Trusted_" _
        ), Array("Connection=Yes"))
        .CommandType = xlCmdSql
        .CommandText = _
        "SELECT ИмяТипаТаблицы.Реферер, ИсчоОднаТаблица.ТоргМарка, Sum(ОпятьБлинИмяТаблицы.ВыхСумма) AS 'Вых', Sum(ОпятьБлинИмяТаблицы.КолВо) AS 'Кол'" _
         & Chr(13) & "" & Chr(10) & "FROM ИмяТипаБазы.dbo.ИмяТипаТаблицы ИмяТипаТаблицы, ИмяТипаБазы.dbo.ОпятьБлинИмяТаблицы " _
         & "ОпятьБлинИмяТаблицы, ИмяТипаБазы.dbo.ИсчоОднаТаблица ИсчоОднаТаблица" & Chr(13) & "" & Chr(10) &  _
         "WHERE ОпятьБлинИмяТаблицы.ПолеСвязиКлиент = ИмяТипаТаблицы.ПолеСвязиКлиент AND ОпятьБлинИмяТаблицы.ПолеСвязиТовар = ИсчоОднаТаблица.ПолеСвязиТовар" _
         & Chr(13) & "" & Chr(10) & "GROUP BY ИмяТипаТаблицы.Реферер, ИсчоОднаТаблица.ТоргМарка"
        .CreatePivotTable TableDestination:="", TableName:="СводнаяТаблица1", _
        DefaultVersion:=xlPivotTableVersion10
    End With
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("СводнаяТаблица1").AddFields RowFields:=Array( _
        "Реферер", "Данные"), ColumnFields:="ТоргМарка"
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Вых")
        .Orientation = xlDataField
        .Caption = "СумВых"
        .Position = 1
        .NumberFormat = "# ##0"
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Кол")
        .Orientation = xlDataField
        .Caption = "СумКол"
        .NumberFormat = "# ##0"
    End With 

[quote author=kms link=1163586032/0#0 date=1163586032]Блин, вы прикиньте, я совершил прорыв.
Впервые за все это время и загрузил файл Excel через ODBCRecordSet - и мне это понравилось.

А ведь еще можно делать наоборот - экспортировать в Excel через ODBCRecordSet.
Обалдеть. :)
[/quote]

Мало того, в запросе можно джойнить разные файлы, обращаясь к таблице таким образом:
[code]SELECT * FROM `\\tss\share\data`.[Material$] Material[/code]
Но подключение должно быть . [code]"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FileUsage=0;Dbq=" + КаталогИБ() + "Siemens;DefaultDir=" + КаталогИБ() + "Siemens\;ReadOnly=1;"[/code]
;ReadOnly = 0 позволит апдейтить таблицы.
;HDR=No Позволит обращаться к колонкам как F1, F2, F3 и т.д.
[hr]

Если имя таблицы имеет пробел или специальный символ, то надо обращаться так [Таблица 1$]
[hr]

А ты попробуй олю, там еще шустрее работает :)
Только до сих пор не решена проблема [url]http://itland.ru/forum//index.php?showtopic=15469&hl=ole&st=15[/url]
Но как там и написано, для первого листа это решается SELECT * FROM [A:FF], т.е. задаем заведомо больший диапазон. Драйвер все равно ограничит выборку реальными данными.

Подключение [code]OLEDBData = СоздатьОбъект("OLEDBData");
OLEDBData.Соединение("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Каталог + ИмяФайла + ";Extended Properties=""Excel 8.0;HDR=No""");
Command = OLEDBData.СоздатьКоманду();[/code]
[hr]

Ложка дегтя. Драйвер САМ определяет тип колонки по первым 15 строкам (значение правится в реестре). И если у тебя сперва идут цифры, то дальнейший текст в выборке исчезнет. Решение проблемы я так и не нашел. И сей факт накладывает большие ограничения на использование запросов к ехелю :(

И... не срабатывет
Я уже это проходил

По крайней мере Win2003 + Office 2003

Ага, вот нашел:

http://support.microsoft.com/kb/194124/EN-US/

Setting IMEX=1 tells the driver to use Import mode. In this state, the registry setting ImportMixedTypes=Text will be noticed. This forces mixed data to be converted to text.

Quan, Arta

Я вас поместил в фак

Кстати, для эксп. форм можно выкрутиться так:

	_м =СоздатьОбъект("Math");
	Сообщить(_м.Double("5.00011e+010"));
 

Отвечаю сам себе. Поле станет текстовым (и драйвер не будет его никак конвертировать) при IMEX=1 и типе эхельной колонки не Текстовый, а только Общий.

HeiHeShang писал(а) 18. Ноября 2006 :: 12:13:



Твоя проблема решается ;ReadOnly = 0  в Extended properties

Может строка подключения неправильная ?

Driver={Microsoft Excel Driver (*.xls)}riverId=790;Dbq=F:\MyExcel.xls;DefaultDir=F:\;ReadOnly=0;

Очень очень давно я пользовал DDE из 1с6 - завязывался на excel. Интересно сейчас это кто-нибудь пользует?

Arta писал(а) 18. Ноября 2006 :: 08:04:

Как же это сцуко мне сегодня нервов попортило.

Оказывается, в обратную сторону - те же грабли.
Если сперва идет текст, - то дальнейшие цифры в выборке тоже исчезают.

Причем не спасают ни общий формат ячеек, ни IMEX=1.
Пришлось весь лист переформатировать в чистый текст.

Маразм, блин. Как непостоянна любовь.  

Arta писал(а) 06. Декабря 2006 :: 21:30:

Прикинь, я только что догнал, в чем проблема!

У меня первые 8 значений - чистый текст.
Т.е. нет как такового факта "MixedTypes" - только текст, стало быть любые числа после - это NULL, а указание ImportMixedTypes - игнорируется, т.к. неприменимо.

Можно, конечно, поставить TypeGuessRows=0, но будут тормоза.

Короче, я понял, это как раз из серии "чтоб всем ребятам всем трулялятам было веселей"

А я вот, пока набросал макрос для трансформации первых колонок в текст:
Цитата:

Как это написать красиво? Это мой первый шедевр на VBA.

kms писал(а) 06. Декабря 2006 :: 22:57:


Я бы сделал так:

Sub formatnum()
    LastRow = Cells(1, 1).End(xlDown).Row
    Row = 1
    Do While Row <= LastRow
	  Col = 1
	  Do While Col <= 3
		v = Cells(Row, Col).Value
		If IsNumeric(v) Then
		    Cells(Row, Col).Value = "'" + CStr(v)
		End If
		Col = Col + 1
	  Loop

	  Row = Row + 1
    Loop
End Sub
 

	_база =СоздатьОбъект("ODBCDatabase");
	Если _база.Соединение("DRIVER=Microsoft Excel Driver (*.xls); DBQ=" +СокрЛП(_имя)) =0 Тогда
		Предупреждение("Ошибка открытия файла", 60);
		Возврат;
	КонецЕсли;

	_рс =СоздатьОбъект("ODBCRecordSet");
	_рс.УстБД(_база);

	_стр ="
	|select *
	|from ИмяТаблицы
	|";

	_ит =СоздатьОбъект("ИндексированнаяТаблица");
	_рс.ВыполнитьИнструкцию(_стр, _ит); 

Я конечно новичек, но я бы попробовал так:

	|from [ИмяТаблицы$ДиапазонЯчеек] 

Мой личный пример:

	|from [Лист1$A10:AZ] 

Выборка производится начиная с 10-й строки Листа1 до конца данных.
10-я строка становится заголовком таблицы.

Это точно проверено, также и на компах где никогда не устанавливался Офис.

Zloslaw писал(а) 17. Августа 2009 :: 10:24:

так читай ветку сначала.
Только лучше делать в exel в пустой файл
также можно получать dbf и его читать в Exsel.
Еще можно использовать Йоксел.