→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Помогите плииз!!!! 
Автор Сообщение
Начинающий

Регистрация: 15.11.2010
Сообщения: 2

Репутация: 0 [ ? ]
Сообщение Помогите плииз!!!!
Есть поле эдит, есть кнопка, есть файл эксель. Нужно чтобы при нажатии кнопки текст из поля эдит вводился в таблицу с условием, если ячейка пустая, если нет, то в следующую. Вот код.. почему-то не работает.. помогите.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Excel: Variant;
i,n: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Nomer,s : shortstring;
begin
Excel := CreateOleObject('Excel.Application');
i:=1;
Excel.Workbooks.Open['d:\1.xls']; //Открытие существующей книги
while Excel.Cells[i, 1]<>'' do begin
i:=i+1;
end;
Nomer := shortstring(Edit1.Text); //Присвоить текст поля едит
Excel.Cells[i+1, 1] := Nomer; // запись значения в ячейку
Excel.ActiveWorkbook.Close; //Закрытие Excel
Excel.Application.Quit;
end;
end.


15.11.2010 15:27
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


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

Зарегистрированные пользователи: Yahoo [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»