VPF::Запись в Excel и из Excel - Форум программистов

evgenybe

Дата 18.10.2007, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 22.5.2007
Где: Израиль

Репутация: нет
Всего: 1

Есть программа которая должна делать следующее:

1) Взять картинку из поля БД и поместить ее в ячейку Excel.
2) Имея URL картинки в интернете - поместить ее в ячейку Excel
3) Взять картинку с диска и поместить ее в ячейку Excel.

И обратные задачи:

4) Взять картинку из ячейки Excel и записать ее в поле базы данных.
5) Взять картинку из ячейки Excel и записать ее в виде файла на диск.

Как это сделать?

Это сообщение отредактировал(а) evgenybe - 18.10.2007, 16:43

thomas

Дата 18.10.2007, 20:59 (ссылка)

(нет голосов)

Загрузка ...

Доцент... почти

Профиль
Группа: Завсегдатай
Сообщений: 1385
Регистрация: 3.10.2006
Где: " Сказочное королевство"

Репутация: 3
Всего: 65

evgenybe,
Для начала почитать про Excel

--------------------

Крепко жму горло, искренне ваш Thomas. (С)vingrad
Некоторые сорта флоры буквально за одно мгновение превращают нас в фауну!
Проблемы негров шерифа не волнуют.

evgenybe

Дата 19.10.2007, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 22.5.2007
Где: Израиль

Репутация: нет
Всего: 1

Цитата(thomas @ 18.10.2007, 20:59)

evgenybe,
Для начала почитать про Excel

Это то же самое, что на любой вопрос по VB.Net ответить "Для начала почитать про VB.Net"

Experimenter

Дата 22.10.2007, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 8.5.2007
Где: Уфа

Репутация: нет
Всего: 17

Цитата

Это то же самое, что на любой вопрос по VB.Net ответить "Для начала почитать про VB.Net"

тебе ссылку реальную дали, с примерами, а ты возмущаешься. Ты по ней сходил?

--------------------

public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }

evgenybe

Дата 23.10.2007, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 22.5.2007
Где: Израиль

Репутация: нет
Всего: 1

Цитата(Experimenter @ 22.10.2007, 19:14

)

тебе ссылку реальную дали, с примерами, а ты возмущаешься. Ты по ней сходил?

Ну, елки зеленые! Я вообще не понял, что это ссылка. Нет, конечно, если бы я мышку туда подвел, то догадался бы. Но поскольку линк черного, а не привычного синего, цвета, то я подумал, что это просто подчеркнутое слово в тексте и у меня даже рука не дернулась подвести туда мышку. Впредь буду знать!

Так что извиняюсь и smile

Спасибо!

pompei

Дата 23.10.2007, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 7.9.2007

Репутация: нет
Всего: 6

О, смотрите... всеми уважаемый гугл до спама опустился!!!

--------------------

А всё оказывается гораздо проще: пассивные наноструктуры - активные наноструктуры - системы наносистем - молекулярные наносистемы - сингулярность! По пять лет на каждый этап.

pompei

Дата 23.10.2007, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 7.9.2007

Репутация: нет
Всего: 6

А кто-нибудь запись макросов использует чтобы узнать как делать то или другое с экзелем?
Я например сделал так:
Начал запись макроса, и вставил картинку, расположил её как надо, потом остановил запись мактора и посмотрел на него. Вот чё получилось в макросе:

Код


Sub Макрос1()
    ActiveSheet.Pictures.Insert("D:\Download\Photo\GG\003\1-webbig.jpg").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Selection.ShapeRange.ScaleWidth 0.46, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.ScaleHeight 0.46, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.IncrementLeft -489.75
    Selection.ShapeRange.IncrementTop -358.5
    ' Это я сам добавил, чтобы посмотреть значения констант, при выполнении макроса
    msgbox "msoScaleFromBottomRight = " & str(msoScaleFromBottomRight)
    ... и другие константы
End Sub

Вот. Теперь я например в Делфи делаю так:

Код


...
uses ..., Variants, ComObj, ...;
...
Procedure asd;
Var Doc : OLEVariant;
Const msoScaleFromBottomRight = то что высветилось из макроса
... другие константы также
Begin
  // Этот код я долгими пытками вымастрячил
  Doc := CreateOleObject( 'Excel.Application' );
  Doc.Visibility := True;
  Doc.Workbooks.Add;
  Doc.Workbooks[1].Worksheets[1].Activate;

  // а дальше тупо копипастим из макроса, только синтаксис корректируем под паскалевский
  Doc.ActiveSheet.Pictures.Insert('D:\\Download\\Photo\\GG\\003\\1-webbig.jpg').Select;
  Doc.ActiveWindow.ScrollColumn := 2;
  Doc.ActiveWindow.ScrollColumn := 1;
  Doc.ActiveWindow.ScrollRow := 2;
  Doc.ActiveWindow.ScrollRow := 1;
  Doc.Selection.ShapeRange.ScaleWidth( 0.46, msoFalse, msoScaleFromBottomRight );
  Doc.Selection.ShapeRange.ScaleHeight( 0.46, msoFalse, msoScaleFromBottomRight );
  Doc.Selection.ShapeRange.IncrementLeft( -489.75 );
  Doc.Selection.ShapeRange.IncrementTop( -358.5 );
  // и обязательно, а то у меня иногда остаются лишние екзель программы в диспетчере задач
  Doc := Null;
End;

Таким образом я за пол-дня научился из делфи строить сложные крсивые крафики через экзель и олеавтомэйшн, и сразу выводить их на печать или сохранять в файл в любом формате. Если не делать Doc.Visibility := True, а оставить экзель невидимым, то пользователь вообще не видит экзеля, а дельфовая программа как бы сама всё делает.

Вообще оле - крутая вещь, только вот макрасята не хотят её опенсурсить!!!

Это сообщение отредактировал(а) pompei - 23.10.2007, 10:29

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »