перенос в excel

[twist]

здравствуйте! появилась проблема.прошу помощи только неругайтесь что вопрос тупой или простой или еще что, сам найти ответ не смог поэтому решил задать вопрос на вашем форуме.вобщем вот код для примера
Private Sub Command1_Click()
Open "c:\1.xls" For Append As #1
Print #1, "привет"
Close #1
End Sub
вопрос в том как указать в этом коде адрес ячейки в которую нужно записать и вообще возможно ли это в данном коде. т.е.rint #1,'адрес ячейки' 'значение переменной или поля текстбокс' Как то так... вобщем.подскажите. заранее спасибо.

[Денис]

Open "c:\1.xls" For Append As #1

Не-не-не. Это так не делается.

Это делается через CreateObject("Excel.Application")

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

Option Explicit

Private Sub Command1_Click()

Dim C1 As Object
Dim W1 As Object
Dim S1 As Object

Set C1 = CreateObject("Excel.Application")

Set W1 = C1.Workbooks.Open("D:\temp\1.xls")

Set S1 = W1.Worksheets(1)

S1.Cells(1, 1) = "Привет!"

Set S1 = Nothing
W1.Close 1

Set W1 = Nothing
Set C1 = Nothing

End Sub

[twist]

Денис! просто гигантское спасибо! все получилось!

[Денис]

Денис! просто гигантское спасибо! все получилось!

Заметьте, этот код будет работать на машинах, где установлен Excel. Если надо сделать подобное на машине без Excel, то все намного интереснее становится.

[SLIM]

ага ага...нужно знать спецификацию файла, а она ой какая не маленькая

[Хакер]

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

[SLIM]

MS открыли спецификацию.
Иначе не появилось бы всяких Open Office

[iGrok]

Слим, не забывай, что есть реверс-инжиниринг.. )

[SLIM]

Представляю сколько нужно инжинирить для разбора спецификации Excel. Один человек потратит лет 7 работы.

UPD:
Да, нашел, она у меня была, эта спецификация PDF-ный файл 350 страниц

[Денис]

ЕМНИП, OpenOffice разрабатывают дольше семи лет, и все эти годы это красноглазое поделие не могло правильно читать файлы офиса, что явно указывает на реверс-инженеринг, причем далеко неполный.
После этого (я повторяюсь, ЕМНИП), МС делает свои открытые форматы *.???х и с широкого барского плеча открывает спецификации никому уже не нужных бинарных форматов.

[SLIM]

Ну почему же.
Вот у меня спецификация (общая) на Excel 98-2007. С учетом того, что на фирме до сих пор юзают 2003-й, вполне неплохо.

OpenOffice разрабатывают дольше семи лет

Помоему тоже. Как-то читал об этом.

и все эти годы это красноглазое поделие не могло правильно читать файлы офиса

Ну не скажи. Не всегда уж так плохо. Для общих задач хватало. Но функционал урезанный. Я вот недавно столкнулся с тем что OO не умеет юзать сводные таблицы.

[qwertyhp]

Денис, присоединяюсь к автору вопроса - огромное спасибо, мне тоже пригодилось.
Писать в файл, не открывая - это здорово.
Смог сделать S1.Cells(1, 2).Font.Size, S1.Cells(1, 1).ColumnWidth, S1.Cells(1, 2).EntireColumn.AutoFit, - а вот с цветами и рамками не получается... для них требуется обязательное выделение области (т.е. надо открывать файл) - или я чего-то не понимаю?
Просто, если существует возможность монтировать файл(ы) (например, отчёты), НЕ открывая их - это лучший вариант для работы.

[iGrok]

Просто, если существует возможность монтировать файл(ы) (например, отчёты), НЕ открывая их - это лучший вариант для работы.

Пять баллов. Сам-то понял, что написал?

Войти в дверь, не открывая её.
Достать огурец из банки, не открывая её.
Найти вирус в компьютере не включая его.

Как-то так, да?

[Денис]

Сам-то понял, что написал?

Я потихоньку осваиваю телепатию, читая блог нашего гуру телепатии, и мне сейчас кажется, что qwertyhp имел ввиду, что удобно писать в xls файл, просто загружая в память объект excel, но не показывая ничего на экране.

а вот с цветами и рамками не получается... для них требуется обязательное выделение области (т.е. надо открывать файл) - или я чего-то не понимаю?

Сделайте все в Excel, макросами, даже запишите их, потом посмотрите код, выберите все, что нужно и копипастьте себе. В моем примере, я тоже сначала набрал код в Excel VBA, пользуясь удобными интерфейсами, а потом перенес в vb.

[qwertyhp]

Денис совершенно прав - отчёты монтируются автоматом на основе данных, читаемых из ЗАКРЫТЫХ файлов - но во время монтажа происходит мелькание, экран плющит и колбасит, и смотрится это несколько... непрофессионально исполняемым, что ли.
Хочется достичь совершенства )))))
Поэтому хочу не только читать - но и писать в закрытый файл, и форматировать его, не открывая.
В основном со всем разобрался. Для рамок Borders(xlEdgeTop) и т.п. надо писать Borders(3) и т.п., .LineStyle = 0, .Weight = 2 - это ясно. Непонятно только - как сделать в клеточку диапазон ячеек (типа "A1:F6"). Получается только по одной ячейке заключать в квадратик. А вот интервал (в сеточку) - никак.
(Если кому нужны результаты моих изысканий - выложу).
"...Достать огурец из банки, не открывая её." Точно. Как освою методу - буду по ней ходить в прод.маги.)))))

[SLIM]

Вам же объяснили, чудес не бывает.
Это невероятная ошибка - писать в куда-то что-то не открывая это что-то. Это как писать книгу не в непачатую пачку бумаги.
Когда вы создаете COM-объект Excel, и сама программа запускается (посмотрите в процессах).
После загрузки WorkBook, файлы этой книги переходит в состояние "занят". Попробуйте после открытия книги в программе открыть ее через проводник, и увидите.
Так что все открывается, только этого не видно. Об этом и говорил Денис упоминая о телепатии, Вы просто не хотите видеть открытия, но оно таки произойдет.

Просто, если существует возможность монтировать файл(ы) (например, отчёты), НЕ открывая их - это лучший вариант для работы.

Ну это же COM, тут много что можно. OLE позволяет вставлять объекты Excel, например, в Word, или в твою программу. И вообще, вставлять все во все.
Но ты должен понимать, что магии нет, ничего не делается не открывая.

[Antonariy]

И вообще, вставлять все во все.

Ну я бы не был столь категоричен. Скажем, кое-что кое-куда. На самом деле не так уж много ПО поддерживает OLE.

[SLIM]

Ты прав конечно.
Я вообще, на самом деле, кроме как от создателей этого самого OLE, ничего путнего не видел.

[Денис]

Ты прав конечно.
Я вообще, на самом деле, кроме как от создателей этого самого OLE, ничего путнего не видел.

А как же 1С? Он регает в системе свой OLE-сервер. Я, правда, сам не пользовался, но батя грит, "малаца, хорошо зделоли".

[Antonariy]

Ты прав конечно.
Я вообще, на самом деле, кроме как от создателей этого самого OLE, ничего путнего не видел.

А как же 1С? Он регает в системе свой OLE-сервер. Я, правда, сам не пользовался, но батя грит, "малаца, хорошо зделоли".

Да как всегда, путаница терминов. Не OLE, а COM-сервер.

[SLIM]

А что у 1С? COM?

[Денис]

А что у 1С? COM?

COM разума у них. И он рождает чудовищ, да.

[Хакер] :: Мозг Дениса рождают флуд. И если это продолжится, руки Хакера породят предупреждения в сторону Дениса.

[SLIM]

А вообще, раз уж пошла тема.
Кто мне скажет какой-ниубудь распространенный чистый COM-сервер.
Я пока только OLE встречал.

[iGrok]

А вообще, раз уж пошла тема.
Кто мне скажет какой-ниубудь распространенный чистый COM-сервер.
Я пока только OLE встречал.

Ну сказали же, у 1С COM-сервер.
А что ты за OLE-серверы встречал?

[Dmitriy2003]

At the heart of OLE 2 is the "OLE Component Object Model", or COM. COM defines a standard for how cooperating objects communicate to one another. This includes the details of what an "object" looks like, including how methods are dispatched on an object. COM also defines a base class, from which all COM compatible classes are derived. This base class is IUnknown. Although the IUnknown interface is referred to as a C++ class, COM is not specific to any one language — it can be implemented in C, PASCAL, or any other language that can support the binary layout of a COM object.

OLE refers to all classes derived from IUnknown as "interfaces." This is an important distinction, since an "interface" such as IUnknown carries with it no implementation. It simply defines the protocol by which objects communicate, not the specifics of what those implementations do. This is reasonable for a system that allows for maximum flexibility. It is MFC's job to implement a default behavior for MFC/C++ programs.

Кто-то будет долго чесать репу - пытаясь понять, что есть OLE, а что COM

[SLIM]

Да все почти VB-шное -все OLE-шное.
Разве нет? И это не мало?

[Денис]

OLE - это встраиваемые объекты COM. Если у вас на форме торчит лист Excel - это OLE. При этом тот факт, что в момент, когда Вы на своей форме активируете OLE-объект, запускается процесс Excel и отображает на вашей форме весь этот лист - это COM.
Как-то так.

[Antonariy]

Короче, OLE — встраиваемые объекты, COM — dll или ActiveX exe (ага, взаимоисключающие параграфы), ActiveX — ocx, при этом технологически они отличаются мало.
OLE — это когда визуальный объект обрабатывается с помощью COM-exe отдельным процессом, ActiveX — когда визуальный объект обрабатывается COM-dll в том же процессе.

[Хакер]

Вообще-то это почти синонимы.

OLE — раннее название технологии. Название отражает принцип всеобщей внедряемости.
COM — более позднее название технологии. Фишка технологии теперь не только во внедряемости, а скорее в разбиении на компоненты.
ActiveX — вообще технология-надстройка над COM. ActiveX = COM + TLB + IDispatch + ПрогИды + Регистрация-сервера-в-реесте + экспорт-DllGetClassObject.

[Antonariy]

ActiveX = COM+TLB+IDispatch.

Имеется ввиду, что сначала COM-dll были вообще без tlb, даже отдельным файлом?