InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comWed, 19 Nov 2008 20:01:21 GMT20http://www.relib.com/forums/Topic877834-11-1.aspxК примеру: [url]http://www.freevbcode.com/ShowCode.Asp?ID=6856[/url]Fri, 12 Aug 2005 19:07:00 GMTComanchehttp://www.relib.com/forums/Topic877834-11-1.aspx[quote="Comanche"]А ещё можно вспомнить, что книга MS Excel - это т.н. "OLE Compound Object". Затем поднять соотв. спецификацию, написАть с её помощью соотв. код - и вуаля: можно выдёргивать из экселевских книг содержимое, [bold]вообще не имея на компе Экселя![/bold]Но это ещё та задачка... по сути придётся написАть "маленький эксель"...:)[/quote]Хех... :-) Можно собрать велосипед... но мааааленький. :-)А вообще то... интересно... надо посмотреть, когда будет свободное время.Fri, 12 Aug 2005 02:59:00 GMTСумракhttp://www.relib.com/forums/Topic877834-11-1.aspxА ещё можно вспомнить, что книга MS Excel - это т.н. "OLE Compound Object". Затем поднять соотв. спецификацию, написАть с её помощью соотв. код - и вуаля: можно выдёргивать из экселевских книг содержимое, [bold]вообще не имея на компе Экселя![/bold]Но это ещё та задачка... по сути придётся написАть "маленький эксель"...:)Thu, 11 Aug 2005 16:38:00 GMTComanchehttp://www.relib.com/forums/Topic877834-11-1.aspxУстановить ссылку на ADO :-))) Или Ссылки по другому... Меню ссылки или Реверенс.Thu, 11 Aug 2005 16:25:00 GMTСумракhttp://www.relib.com/forums/Topic877834-11-1.aspxругается, что неизвестно, что такое ADODB :-) как в EXCEL подключить его ?Thu, 11 Aug 2005 11:28:00 GMTchudlohttp://www.relib.com/forums/Topic877834-11-1.aspxПолучаем 2 поле из Листа:[code]Private Sub ПолучитьПолe()On Error GoTo bayDim adoCn As ADODB.ConnectionDim adoRs As ADODB.RecordsetSet adoCn = New ADODB.ConnectionSet adoRs = New ADODB.Recordset''___________________________________With adoCn .Provider = "Microsoft.Jet.OLEDB.4.0" .CursorLocation = adUseClient .ConnectionString = "Data Source=" & ПутьКфайлуExcel & ";Extended Properties=Excel 8.0;" .OpenEnd WithWith adoRs .Open "SELECT [ВтороеПоле] FROM [Перемещение$] WHERE Not [ВтороеПоле] is Null", adoCn, adOpenStatic, adLockReadOnly If Not .BOF And Not .EOF Then MsgBox "Всего записей: " & .RecordCount End If .CloseEnd WithSet adoRs = NothingadoCn.CloseSet adoCn = NothingExit Subbay:Debug.Print Err.DescriptionEnd Sub[/code]Wed, 10 Aug 2005 17:19:00 GMTСумракhttp://www.relib.com/forums/Topic877834-11-1.aspxСейчас выложу какойнить код... Гляну что есть в персонале...Wed, 10 Aug 2005 17:07:00 GMTСумракhttp://www.relib.com/forums/Topic877834-11-1.aspxдаже не знаю. Сумрак, если не сложно, давай спишемся на chudlo@ukr.netWed, 10 Aug 2005 13:40:00 GMTchudlohttp://www.relib.com/forums/Topic877834-11-1.aspxда работала и с путями \\...ExecuteExcel4Macro хороша если данных немного (ну там шапку у таблицы прочитать, или еще чего), а если наоборот, прислушайтесь к совету Сумрака...Wed, 10 Aug 2005 12:50:00 GMTMasalovhttp://www.relib.com/forums/Topic877834-11-1.aspxhttp://www.j-walk.com/ss/excel/tips/tip82.htm хорошая вещь. но пишет : file not found в тесте. возможно оно не умеет читать по сети ?, т.к. все файлы лежат в сети... пути выглядят типа: \\server\folder\excel\..Wed, 10 Aug 2005 11:19:00 GMTchudlo