Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 Аватар для lifeforce
266 / 211 / 89
Регистрация: 27.09.2010
Сообщений: 1,234

Exel в StringGrid (шиты , примечания) изберательно

25.03.2013, 21:26. Показов 1147. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Привет всем!
У меня на екселе есть описание всех усилителей и место их нахождения (моя старая база).
теперь нужно эту инфомацию перекинуть в программу (StringGrid) .
вся проблема состоит в том - что усилители находятся на разных колонках и много шитов.
допустим шит 1 (картинка)
задача
номер шита к примеру записываю в колонку 1 стрингрид.
все имена усилителей нужно перенести в колонку 2 стринггрид.
и их примечания в колонку 3 стрингрида.
но все это нужно скопировать до зеленой полосы (все что после зеленой полосы не нужно!)
но проблема еще и в том что в разных шитах зеленая полоса находиться на разных номерах строк!

1. как мне в цыкле перекинуть все имена усилителей и в соседней колонке их соответственное примечание?
2. как можно определить строку закрашенную зеленым?

нашел сообщение от nick42 - очень помогло но только чистая копия ( нужно изберательная копия возможно нужен if )
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <ComObj.hpp>
 
void __fastcall TForm2::Button5Click(TObject *Sender)
{
 // AnsiString file = "i:\\Temp Mozilla\\справка магистрална мрежа Дружба.xls";
   Variant Excel=CreateOleObject("Excel.Application");
   if (OpenDialog1->Execute())
   {
   Variant Book=Excel.OlePropertyGet("Workbooks").OlePropertyGet("Open",OpenDialog1->FileName.c_str());
   Variant Sheet=Book.OlePropertyGet("Worksheets", 2);
  
   for(int i=1;i<6;i++) for(int j=1;j<6;j++)
       StringGrid1->Cells[j-1][i-1]=Sheet.OlePropertyGet("Cells",i,j);
   if (!Excel.IsEmpty())
   {
     Excel.OleProcedure("Quit");
     Excel.Clear();
   }
 
   }
 
}
в конечном итоге мне нужно получить в стринге как показано на картинке 2

С надеждой на помощь!
Миниатюры
Exel в StringGrid (шиты , примечания) изберательно   Exel в StringGrid (шиты , примечания) изберательно  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.03.2013, 21:26
Ответы с готовыми решениями:

EXEL в StringGrid
Подскажите как оптимизировать код, чтобы можно было выбрать нужный файл для импорта? void __fastcall TForm1::Button6Click(TObject...

Импорт из EXEL в StringGrid
Подскажите пожалуйста, как реализовать импорт данных из EXEL в StringGrid в C++ Builder? Это очень важно! Заранее спасибо!

Сохранение StringGrid в EXEL
Как данные StringGrid сохранить в EXEL? Помогите плз.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.03.2013, 21:26
Помогаю со студенческими работами здесь

Экспорт таблицы StringGrid в Exel
помогите пожалуйста(((((((( вроде все правильно написала:help::help::help::help::help::help::help:

Перенос таблицы из StringGrid в exel и word
Нашёл вот это &quot;Для того, чтобы запустить приложение Word или Excel из программы на &quot;Borland C++ Builder&quot; достаточно...

Как StringGrid сохранить в Exel (xls file)?
приветствую тебя мой посетитель! собственно тема и есть мой вопрос :) есть стрингрид с текстом. хочу его сохранить в формате Exel ,...

Как сохранять файл из StringGrid в Exel и Word в Андроид-приложениях?
Добрый день. Я бы хотел включить в андроид приложении кнопку для сохранения документа Exel и Word которые соответственно будут брать...

Передача данных в Exel (закрывается рабочая форма при открытии Exel)
Помогите пожалуйста. почему закрывается моя форма при открытии Exel? procedure TForm26.suiButton22Click(Sender: TObject); const...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru