StringGrid В Excel и обратно !!!

[musicdawn]

Привет, дорогие форумчани
Я всего как месяц пересел на builder c++ (до этого сидел на delphi) по этому много чего ещо не знаю. Возник такой вопрос: Как Записать в stringGrid значения с файла
Excel.
В эксель записать из stringGrid получилось а вот наоборот не выходит  
Помогите а(((
Вот код: Записи в эксель , а надо обратно.

Код

void __fastcall TForm2::N2Click(TObject *Sender)
{
 WideString str;
TStringList *sl = new TStringList;
for(int i = 0 ; iStringGrid1->RowCount ;++i)
{
for(int j = 0; j StringGrid1->ColCount;++j)
str +=StringGrid1->Cells[j][i]+ "\t";
sl->Add(Trim(str));
str = "\n\r" ;
}
if (SaveDialog1->Execute())
sl->SaveToFile(SaveDialog1->FileName);
delete sl;
}
//---------------------------------------------------------------------------
 

[volvo877]

Я всего как месяц пересел на builder c++ (до этого сидел на delphi) по этому много чего ещо не знаю.

Если сидел на Дельфи - должен знать о наличии DRKB. Там приведено несколько способов экспорта данных StringGrid->XLS, и импорта StringGrid

[musicdawn]

Увы не знал но что -то не выходит
Можешь кусок кода написать -буду очень благодарен

[volvo877]

По второй ссылке есть кусок кода. С ним что-то не так?

[musicdawn]

Все вроде бы работает но при сохранении (когда сам ехе-шник уже запущен и жмешь кнопку save ), а точнее нажатии на кнопку где прописано

Код

void __fastcall TForm2::Button2Click(TObject *Sender)
{
 
    Variant app = CreateOleObject("Excel.Application");
    //CreateOleObject("Excel.Application");
    Variant wbs = app.OlePropertyGet("Workbooks");
    Variant wb = wbs.OleFunction("Open", "OpenDialog1->FileName");
  Variant wss = wb.OlePropertyGet("Worksheets");
    Variant ws = wss.OlePropertyGet("Item", 1);
 
      for (int r = 0; r  StringGrid1->RowCount; r++)
         for (int c = 0; c  StringGrid1->ColCount; c++)
         {
                       Variant cell = ws.OlePropertyGet("Cells", r + 1, c + 1);
                      cell.OlePropertySet("Value", WideString(StringGrid1->Cells[c][r]));
         }
 
   wb.OleProcedure("Save");
               app.OleProcedure("Quit");
}

Выдает ошибку :  Неверный тип переменной
 

[musicdawn]

вроде дело в этой строчке
Variant wb = wbs.OleFunction("Open", "D:\\Grid.xls");

поэтому заменил её на
Variant wb = wbs.OleFunction("Open", ""OpenDialog1->FileName");

Но таже хрень с той кнопкой !!!

HEEEELP ME!!!!

[volvo877]

Во-первых, не "OpenDialog1->FileName", а просто OpenDialog1->FileName (ты же не хочешь, чтобы открылся файл "OpenDialog1->FileName.XLS", правда?) А во-вторых,

Код

Variant wb = wbs.OleFunction("Open", WideString(OpenDialog1->FileName));

должен тебе помочь

[musicdawn]

 А во-вторых,

Код

Variant wb = wbs.OleFunction("Open", WideString(OpenDialog1->FileName));

должен тебе помочь
[/quote]

При нажатии само окно открытия OpenDialog1 не открывается , а сразу пишет " файл 'gride.txt'
уже существует. Заменить?" Почему тхт и где само окошко сохранения?

Если прописать вот так
Variant wb = wbs.OleFunction("Open", OpenDialog1->FileName.c_str());

то говорит что просто не нашло файл, проверти правильность имени и тд.

Помоги а, курсовая  плачет  

[volvo877]

Окошко сохранения - это TSaveDialog. Не надо вводить в заблуждение ни себя ни того, кто будет проверять курсовую. Положи на форму TSaveDialog и вызывай так:

Код

void __fastcall TForm1::Button2Click(TObject *Sender)
{
       if(SaveDialog1->Execute())
  {
               Variant app = CreateOleObject("Excel.Application");
            Variant wbs = app.OlePropertyGet("Workbooks");
            Variant wb = wbs.OleFunction("Open", WideString(SaveDialog1->FileName));
           // дальше по тексту
          app.OleProcedure("Quit");
      }
}

[musicdawn]

слышал можно через XLSReadWrite открыть но в rad studio xe2 его нет((

[musicdawn]

Окошко сохранения - это TSaveDialog. Не надо вводить в заблуждение ни себя ни того, кто будет проверять курсовую.

Извини я имел ввиду  TOpenDialog. Просто уже долго работаю - закипел
Как хоть как-нибудь добавить в стринг грид из ексель???,

[Mimik]

хм а циклом заполнить стрингГрид не никак?

[musicdawn]

Ты не понял, мне надо заполнить данными что лежат в xls файле

[Mimik]

Ну так этож проще паренной репы =)
получать данные из экселя умееш?
если будеш указывать количество ячеек и строк руками для импорта ничего страшного? или же стоит искать данные руками?

[musicdawn]

Ну так этож проще паренной репы =)
получать данные из экселя умееш?

В том то и дело что нет, а надо всего лишь занести в стрингГрид данные из файла ексель (*.xls)  
как указывать копируемые ячейки мне всеравно лишь бы скопировало в стринГрид  

Хелп !!!!

[Mimik]

жди

[musicdawn]

Ты моя последняя надежда, ЖДУ

[Mimik]

Вот там, тестовый эксель фаил лежит открой его с помощью кнопки баттон 1  
затем отпишись так ли тебе было нужно
мой класс работы с экселем приложен думаю разберешся, он правда тут сырой и косячный но для такой мелочи пойдет..

[Mimik]

думаю развернуть циклы в эксель будет не сложно....
хм вроде срочно было...

[musicdawn]

Ругается на Workbooks.Exec(Procedure("Open") а именно на оператор
 
Можешь попроще описать, именно в самой кнопке

[Mimik]

ничего не должно ругатся, какая у тебя версия билдера?

[musicdawn]

rad studio xe2: c++ builder
напиши здесь кусок рабочего кода, самый примитивный- лишь бы хоть что-то скопировал из екселя в стрингГрид  

[Mimik]

Бло. в моем класе работы с экселем, посмотри функция GetValue
Ты Тестил мою прожку? пробовал ей?
оберни ИмяФайла в АНсиСтринг

Код

 Workbooks.Exec(Procedure("Open") AnsiString(FileName) );
 

Так запарило это, переделываю корявый клас работы с экселем. щас все ок будет

[Mimik]

Итак проблем еще актуален? я переделал клас переделал удачно, все отладил работает на RadStudio надо?
я тут понимаеш ради него отбросил книги по DirectX. а он пропал понимаеш!

[musicdawn]

о да!!! Ещо как...

[Mimik]

на вот =)  благодарности в валютно-рублевом эквиваленте приветствуются =)))

[musicdawn]

Программа работает - Всем спасибо!!!!!

[CodeTavr]

Добрый день, товарищи! Вижу, что тема 4х-летней давности, но вот теперь и я столкнулся с тем же.
По всей видимости, решение было найдено, однако проект с исходниками уже к сожалению загрузке не подлежит :-( что очень печально. Может ли кто-нибудь выложить его повторно?
Ну, или помочь разобраться со следующим: пробовал, приведенной выше код. Как и автор, я столкнулся с проблемой в строке

Код

Variant wb = wbs.OleFunction("Open", WideString(SaveDialog1->FileName));

Тоже "Выдает ошибку :  Неверный тип переменной"
Пробовал менять WideString и на Анси и просто Стринг. Все равно ошибка. Подскажите в чем тут дело?
Спасибо заранее!

[S0mbre]

А так?

Код

Variant wb = wbs.OleFunction("Open", (SaveDialog1->FileName).w_str());