С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
 Аватар для катериночка777
1 / 1 / 0
Регистрация: 19.11.2012
Сообщений: 15

Занести данные в конкретную ячейку Excel

19.12.2012, 13:59. Показов 2173. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
заносим в excel
в первом edit вводим любые данные
во втором edit вводим номер самой ячейки в EXCEL в которую юудет заносить данные.
Программу написала а она мне выдает ошибку в чём дело понять не могу
компилируется жму ок и вылетает ошибка!
http://www.fayloobmennik.net/2458995

Добавлено через 1 час 34 минуты
Ошибка такова пишет
[Error] Unit1.pas(38): Too many actual parameters
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.12.2012, 13:59
Ответы с готовыми решениями:

Как картинку из файла jpeg поместить в конкретную ячейку Excel?
Здравствуйте! Подскажите, как картинку из файла jpeg поместить в конкретную ячейку excel с помощью Delphi? В интернете полно...

Данные из ячейки Excel занести в ListView
procedure TForm1.FormShow(Sender: TObject); begin c:='D:\'; if FindFirst(ExtractFilePath(ParamStr(0))+'*.xlsx', faAnyFile, sr)=0 ...

Работа с Excel. Суть: Если номер строки в Excel четный тогда объеденяем эту ячейку с последующей.
Здравствуйте. Помогите, пожалуйста .Я вот в Delphi осуществляю работу с документов в Excel, как я могу записать, чтобы выполнялся алгоритм:...

9
 Аватар для Andrys74
217 / 81 / 6
Регистрация: 23.04.2012
Сообщений: 340
19.12.2012, 14:02
Немного непонятно: когда выдаёт ошибку - при компиляции, или при запуске Excel?
Если при запуске Excel, то возможно у вас не добавлен ComObj в секции USES
0
 Аватар для катериночка777
1 / 1 / 0
Регистрация: 19.11.2012
Сообщений: 15
19.12.2012, 14:12  [ТС]
Цитата Сообщение от Andrys74 Посмотреть сообщение
Немного непонятно: когда выдаёт ошибку - при компиляции, или при запуске Excel?
Если при запуске Excel, то возможно у вас не добавлен ComObj в секции USES
А то есть не комплируется потому что ошибка [Error] Unit1.pas(38): Too many actual parameters
на param кидаёт и говорит ошибка s
дописала в секции uses ComObj выдает ошибку всё равно!!!!!!!
0
 Аватар для Andrys74
217 / 81 / 6
Регистрация: 23.04.2012
Сообщений: 340
19.12.2012, 14:32
Во, у меня заработало (только путь в экселевскому файлу поменяйте на свой)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var FileName1: OleVariant;
begin
ExcelApplication1.Connect;
Filename1:= 'C:\2\2.xls';
ExcelApplication1.Workbooks.Open(Filename1, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,   false, 0);
Edit1.Text:=ExcelApplication1.Range[Form1.Edit2.Text, EmptyParam].Text;
ExcelApplication1.Disconnect; end;
end.
лишка EmptyParam
0
 Аватар для катериночка777
1 / 1 / 0
Регистрация: 19.11.2012
Сообщений: 15
19.12.2012, 14:47  [ТС]
Цитата Сообщение от Andrys74 Посмотреть сообщение
Во, у меня заработало (только путь в экселевскому файлу поменяйте на свой)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var FileName1: OleVariant;
begin
ExcelApplication1.Connect;
Filename1:= 'C:\2\2.xls';
ExcelApplication1.Workbooks.Open(Filename1, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,   false, 0);
Edit1.Text:=ExcelApplication1.Range[Form1.Edit2.Text, EmptyParam].Text;
ExcelApplication1.Disconnect; end;
end.
лишка EmptyParam
У вас записывает в excel ?
Если не сложно можно скинуть в архив и на файлообменик и оправить ссылку посмотрю у меня
компилируется задаю ячейку но вот только там не сохраняется в Excel текст который набрала.
0
 Аватар для Andrys74
217 / 81 / 6
Регистрация: 23.04.2012
Сообщений: 340
19.12.2012, 14:55
Стоп!!! Какая нафиг запись в Эксель, если у Вас стоит чтение из него
0
 Аватар для катериночка777
1 / 1 / 0
Регистрация: 19.11.2012
Сообщений: 15
19.12.2012, 15:00  [ТС]
Цитата Сообщение от Andrys74 Посмотреть сообщение
Стоп!!! Какая нафиг запись в Эксель, если у Вас стоит чтение из него
ну вообще нужно записать в edit 1 текст в edit2 ячейку и нажать button чтоб записал!

Добавлено через 3 минуты
а он не пишет!
0
 Аватар для Andrys74
217 / 81 / 6
Регистрация: 23.04.2012
Сообщений: 340
19.12.2012, 15:08
А вот годовой об стену не надо, особенно такой красивой

попробуй так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, ExcelXP, ComObj;
 
type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
E: variant;
begin
  E:=CreateOleObject('Excel.Application');
  E.WorkBooks.Open('C:\2\2.xls');
  E.Range[Edit2.Text, EmptyParam]:=Form1.Edit1.Text;
  E.Visible:=true;
  E:=unassigned;
  end;
end.
зы: "спасибо" в виде плюсика - приветствуются
1
 Аватар для катериночка777
1 / 1 / 0
Регистрация: 19.11.2012
Сообщений: 15
19.12.2012, 15:23  [ТС]
Цитата Сообщение от Andrys74 Посмотреть сообщение
А вот годовой об стену не надо, особенно такой красивой

попробуй так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, ExcelXP, ComObj;
 
type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
E: variant;
begin
  E:=CreateOleObject('Excel.Application');
  E.WorkBooks.Open('C:\2\2.xls');
  E.Range[Edit2.Text, EmptyParam]:=Form1.Edit1.Text;
  E.Visible:=true;
  E:=unassigned;
  end;
end.
зы: "спасибо" в виде плюсика - приветствуются
ой спасибо милашка так да работает
1
 Аватар для Andrys74
217 / 81 / 6
Регистрация: 23.04.2012
Сообщений: 340
19.12.2012, 15:28
Цитата Сообщение от катериночка777 Посмотреть сообщение
ой спасибо милашка
ну прям таять начал
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.12.2012, 15:28
Помогаю со студенческими работами здесь

Как данные с StringGrid занести в массив?
У меня два StringGrid-а я в 1-й StringGrid вставляю данные из файла! Мне надо чтоб при нажатии на кнопку данные из 1-го SrtingGrid-а...

Программно занести данные в ранее созданный Edit
Есть матрица типа TEdit. Она формируется и выводится на второстепенную форму при нажатии кнопки на главной форме. Все Edit изначально...

Как из второй формы занести данные в первую форму
Здраствуйте, подскажите пожалуйста. Такой вопрос: есть у меня 2 формы. Из компонента Mainmemo я вызываю форму2. Для этого в uses...

Перенос из Edit в ячейку Excel
Создаю анкету. У меня есть пункт ФИО. Нужно перенести текст из Edit в ячейку Excel. В интернете толком не нашла,а то что нашла не работает....

Dbgrid передать данные в конкретную ячейку другой таблицы
Есть проект подключил базу данных Acces. Эта же база подключена на четырех формах в четыре разных DbGrid. У каждой Dbgrid свои...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru