Excel - элементарный вопрос...

Программирование на Visual Basic for Applications
sanches
El compañero
El compañero
 
Сообщения: 823
Зарегистрирован: 09.01.2003 (Чт) 3:58
Откуда: Р_О_С_С_И_Я ! (Питер)

Excel - элементарный вопрос...

Сообщение sanches » 02.11.2003 (Вс) 15:38

Привет народу :)!
Ситуация такая. Я раньше с объектами MSOffice из VB никогда не работал (ну не было никогда нужды), потому прошу помощи. Грубо говоря прога вычисляет значения функции Y от X. Так вот, необходимо сохранить результаты в Excel'е (таблица в два столбца - первый X, второй Y, количество строк заранее неизвестно). В общем, плз, напишите пример заполнения таблицы :)

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

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 03.11.2003 (Пн) 10:28

Код: Выделить всё
dim xlapp as new excel.application

sub out(arr() as pointapi)
  dim i as long
  with xlapp.activesheet
    for i=1 to ubound(arr)
      .cells(i,1)=arr(i).x
      .cells(i,2)=arr(i).y
    next
  end with
  xlapp.visible=true
end sub
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

sanches
El compañero
El compañero
 
Сообщения: 823
Зарегистрирован: 09.01.2003 (Чт) 3:58
Откуда: Р_О_С_С_И_Я ! (Питер)

Сообщение sanches » 03.11.2003 (Пн) 18:07

а шо за pointapi?
Изображение

sanches
El compañero
El compañero
 
Сообщения: 823
Зарегистрирован: 09.01.2003 (Чт) 3:58
Откуда: Р_О_С_С_И_Я ! (Питер)

Сообщение sanches » 03.11.2003 (Пн) 18:09

ааааа, въехал. Типа
Private Type PointApi
X as double
Y as double
End Type

Короче говоря, СПАСИБО :)
p.s. Извини, сразу ступил че-то :oops:
Изображение


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 50

    TopList