С новым годом господа Возможно не по теме вопрос но попробую тут его задать. Есть простой код по выводу значений из эксель, но код выводит только обычный текст, а в файле эксель в ячейках формулы. Когда хочешь их вывести автокад зависает и не реагирует. Может знает кто как поправить код?
[vba]
Код
Sub ExcelToAutocad()
Dim AP As Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet
'подключаемся к Excel Set AP = Excel.Application Set WB = AP.Workbooks.Open("C:\Users\.......xlsm") Set WS = WB.Worksheets("Лист...")
'выход из Excel AP.Quit
End Sub
[/vba]
С новым годом господа Возможно не по теме вопрос но попробую тут его задать. Есть простой код по выводу значений из эксель, но код выводит только обычный текст, а в файле эксель в ячейках формулы. Когда хочешь их вывести автокад зависает и не реагирует. Может знает кто как поправить код?
[vba]
Код
Sub ExcelToAutocad()
Dim AP As Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet
'подключаемся к Excel Set AP = Excel.Application Set WB = AP.Workbooks.Open("C:\Users\.......xlsm") Set WS = WB.Worksheets("Лист...")
т. е шапку таблицы выводит (обычный текст), а на значениях ячеек зависает (формулы)
[vba]
Код
'получение атрибутов If BlockRef.HasAttributes = True Then att = BlockRef.GetAttributes For I = LBound(att) To UBound(att) If att(I).TagString = "Атрибут" Then att(I).TexString = Cells(3, 1)
[/vba]
я проверял его таким образом [vba]
Код
truba = Cells(1, 1) MsgBox truba
[/vba]
т. е шапку таблицы выводит (обычный текст), а на значениях ячеек зависает (формулы)
[vba]
Код
'получение атрибутов If BlockRef.HasAttributes = True Then att = BlockRef.GetAttributes For I = LBound(att) To UBound(att) If att(I).TagString = "Атрибут" Then att(I).TexString = Cells(3, 1)
Tort, вы в бан хотите? у вас уже есть замечание. оформите пост как положено Помогающим просьба воздержаться от ответов в этой теме до исправления замечания [moder]исправлено[/moder]
Tort, вы в бан хотите? у вас уже есть замечание. оформите пост как положено Помогающим просьба воздержаться от ответов в этой теме до исправления замечания [moder]исправлено[/moder]китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Возможно не по теме вопрос но попробую тут его задать. Есть простой код по выводу значений из эксель, но код выводит только обычный текст, а в файле эксель в ячейках формулы. Когда хочешь их вывести автокад зависает и не реагирует. Может знает кто как поправить код?
