| Код | procedure TForm3.Button2Click(Sender: TObject);
const
xlCellTypeLastCell = $0000000B; //Метка пустой страницы (вроде как :))
var
row, col, num: Integer;
XLApp, Sheet: OLEVariant;
begin
// Добавление в базу
Base := CreateOleObject('Excel.Application');
Base.Visible := False;
Base.Workbooks.Open(Path+'\DB.xls');
Base.Activesheet.Cells.Item[1, 1].Value := 'Данные01';
Base.Activesheet.Cells.Item[2, 1].Value := 'Данные02';
Base.Activesheet.Cells.Item[3, 1].Value := 'Данные03';
Base.Activesheet.Cells.Item[4, 1].Value := 'Данные04';
Base.Activesheet.Cells.Item[5, 1].Value := 'Данные05';
Base.Activesheet.Cells.Item[6, 1].Value := 'Данные06';
Base.Activesheet.Cells.Item[7, 1].Value := 'Данные07';
Base.Activesheet.Cells.Item[8, 1].Value := 'Данные08';
Base.Activesheet.Cells.Item[9, 1].Value := 'Данные09'; Base.Activesheet.Cells.Item[10, 1].Value := 'Данные10';
Base.Activesheet.Cells.Item[11, 1].Value := 'Данные11';
Base.Activesheet.Cells.Item[1, 2].Value := Edit1.Text;
Base.Activesheet.Cells.Item[2, 2].Value := Edit2.Text;
Base.Activesheet.Cells.Item[3, 2].Value := Edit3.Text;
Base.Activesheet.Cells.Item[4, 2].Value := Edit4.Text;
Base.Activesheet.Cells.Item[5, 2].Value := Edit5.Text;
Base.Activesheet.Cells.Item[6, 2].Value := Edit6.Text;
Base.Activesheet.Cells.Item[7, 2].Value := Edit7.Text;
Base.Activesheet.Cells.Item[8, 2].Value := Edit8.Text;
Base.Activesheet.Cells.Item[9, 2].Value := Edit9.Text;
Base.Activesheet.Cells.Item[10, 2].Value := Edit10.Text;
Base.Activesheet.Cells.Item[11, 2].Value := Edit11.Text;
Base.Workbooks.Close;
// Добавление в базу вроде кое-как работает, хотя с её структурой мне ещё надо разбираться, не знаю как лучше её организовать, либо
// на каждый лист по набору данных, либо всё на одном листе. Дайте совет, если кто может :)
// Добавление записи журнал (а вот это не работает :( )
Jrn := CreateOleObject('Excel.Application');
Jrn.Visible := False;
Jrn.Workbooks.Open(Path+'\JR.xls'); // Журнал данных
Sheet := Jrn.Workbooks[Path+'\JR.xls'].WorkSheets[1]; // Ругается на это, пробовал и 0 и 1. Хотя там всего один лист.
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
Row := Jrn.ActiveCell.Row; // Значение последнего столбца
Col := Jrn.ActiveCell.Column; // Значение последней строки
if Jrn.Activesheet.Cells.Item[1, 1].Value = '' then // Если база пустая, ставим номер 1, и добавляем следом данные
begin
Jrn.Activesheet.Cells.Item[1, 1].Value := '1';
Jrn.Activesheet.Cells.Item[Col, Row + 1].Value := Edit2.Text;
Jrn.Activesheet.Cells.Item[Col, Row + 4].Value := Edit5.Text;
if Checkbox1.Checked = True then Jrn.Activesheet.Cells.Item[Col, Row + 5].Value := 'Да'
else Jrn.Activesheet.Cells.Item[Col, Row + 5].Value := 'Нет'
end
else
begin
Jrn.Activesheet.Cells.Item[Col, Row].Value := Jrn.Activesheet.Cells.Item[Col-1, 1] + 1; // по идее, должен прибавлять к предыдущему номеру +1, но что-то мне очень подсказывает, что оно не работает...
Jrn.Activesheet.Cells.Item[Col, Row + 1].Value := Edit2.Text;
Jrn.Activesheet.Cells.Item[Col, Row + 4].Value := Edit5.Text;
if Checkbox1.Checked = True then Jrn.Activesheet.Cells.Item[Col, Row + 5].Value := 'Да'
else Jrn.Activesheet.Cells.Item[Col, Row + 5].Value := 'Нет'
end;
|
Такой вот код. Помогите пожалуйтса сделать его рабочим, диплом горит 
Приложение - Как выглядит журнал
Журнал:
| Код | -------------------------------------------------------------------------
| # | Дата | Пустое поле | Пустое поле | Краткое содержание | Исполнено |
|------------------------------------------------------------------------
| 1 | 2008 | ----------- | ----------- | О выполнении дел:) | Да |
| 2 | 2008 | ----------- | ----------- | О невыполнении дел | Нет |
------------------------------------------------------------------------- |
БД:
| Код | ----------------------
| Данные01 | Текст01 |
| Данные02 | Текст02 |
| Данные03 | Текст03 |
| Данные04 | Текст04 |
---------------------- |
|
А если делать по-твоему, то понятно, что выдаётся ошибка, ты же к строковому типу пытаешься число добавить.