очередная проблема с гридом

[kazantip]

Здесь уже задавали вопрос по поводу сохранения данных грида в excel, я воспользовался приведённым кодом, но сохранить так и не получилось . Подскажите пожайлуста в чем у меня ошибка. Очень нужно сделать этот перенос. Вот мой код:

Код: Выделить всё

CommonDialog1.Filter = "электронные таблицы (*.xls)|*.XLS"
    CommonDialog1.ShowSave
    Set Excel = CreateObject("excel.application")
     If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Output As #1
         For a = 1 To MSFlexGrid1.Rows
         For b = 1 To MSFlexGrid1.Cols
      print#1, Excel.worksheets(1).cels(a, b).value = MSFlexGrid1.TextMatrix(a - 1, b - 1)
        Next b
        Next a
End if


выдаёт ошибку run-time error 1004 application-defined or object-defined error и выделяет строку

Код: Выделить всё

Excel.worksheets(1).cels(a, b).value = MSFlexGrid1.TextMatrix(a - 1, b - 1)


Если сможете чем-нибудь помочь буду очень благодарен.

[uhm]

Excel.worksheets(1).cells?

[uhm]

Хм... прочитал теперь код.
Откуда ты его взял?!

Зачем там FileName, #1 и Print?

Что ты вообще хочешь сделать?

[kazantip]

Excel.worksheets(1).cells?

Ошибка где-то в другом месте, это я просто опечатался
Я хочу что бы данные которые в гриде сохранялись в документре excel....

[uhm]

Делай так: создаешь Excel (это ты уже сделал), в нем создаешь новую книгу (Workbooks.Add), в ней исполняешь

Код: Выделить всё

         For a = 1 To MSFlexGrid1.Rows
         For b = 1 To MSFlexGrid1.Cols
         avb.worksheets(1).cells(a, b).value = MSFlexGrid1.TextMatrix(a - 1, b - 1)
        Next b
        Next a


- без всякого Print, где avb - твоя созданная книга. Потом сохраняешь книгу (Workbook.SaveAs) с именем из твоего CommonDialog'а.

[Konst_One]

это помесь какая-то слона с носорогом

зачем файл открыл то на запись?
эксель уже есть , так и добавляй свои данные прямо в открытый Sheet, а потом выполни сохранение в файл нужного тебе имени из экселя его же командой

[Konst_One]

uhm
уже все тебе разжевал

[kazantip]

Делай так: создаешь Excel (это ты уже сделал), в нем создаешь новую книгу (Workbooks.Add), в ней исполняешь

Напиши пожайлуста строку для создания кники, а то он у меня пишет синтаксическую ошибку. И ОГРОМНОЕ спасибо за помощь, я основной код проги написал, все нормально работает, а вот с сохранялкой какой-то гимор получился....

[uhm]

Оч. просто:

Код: Выделить всё

Set avb=Excel.Workbooks.Add


[kazantip]

Ой......... Что-то дела совсем плохо.... пишу я avb.saveas.... А он заявляет, что невозможно св-во saveas для класса workbook :

[uhm]

Пишешь ли ты путь сохранения? (avb.SaveAs имя_файла)? И является ли это имя нормальным (в смысле, правильным)?

[kazantip]

Всем огромное спасибо за помощь. Я сделал эту сохранялку, всё работает
p.s отдельное спасибо uhm!

[uhm]

Всегда пжалста!