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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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