[Russik]

Добрый день. Вопрос таков. Переношу данные из таблицы автокада в ексел, а данные переносятся на соседние столбцы. Т.е. Ексел распознает запятую в тексте как (информацию перенести на другой столбец). И мне приходиться копировать таблицу в автокаде и удалять столбцы и по отдному переносить и форматировать потом в екселе. Принскрин прилагаю. Все помещаеться в одну строку.

[trir]

csv?

[Сергей812]

выложите образец таблицы)

[Russik]

Да csv. Но я для примера не могу подгрузить таблицу почему то.

----- добавлено через ~3 мин. -----

[art_rrc]

Так а проблема в чем? В том что не получается именно связь с данными или в том что нет возможности выгрузить в ексель?
ps Готовый vba код умеете использовать?

[Deniska_che]

видимо дело не в файле - экспорт прошел нормально

[Russik]

С файлом все ок. При переносе в csv ( затем в открывании в екселе) данные получаются не в раздельных столбцах. А в одной строке. И работать с данными невозможно долго.

С радостью научусь если есть код. Лиспами пользоваться умею.

[art_rrc]

Если цель просто запихнуть данные в ексель, то будет полезно. Написано на коленке, без отладок, проверок и пр. но работает и может быть полезно.
Запускаешь программу, выделяешь таблицу -> программа создает в той же папке что и файл автокада документ ексель и переписывает туда значения таблицы.
Для быстрого запуска можно создать кнопку или подгрузить лисп-файлик, но это уже немного другая история.

Код:

[Выделить все]

 
'1) Установить VBA Enabler (Если не установлен)
'2) Скопировать код в редактор VBA
'3) Далее с клавиатуры "-Vbarun" "art_TableToExcel"
'Создание нового документа Excel и запись в него выделенной таблицы
Sub art_TableToExcel()
Dim Excel As Object
Dim FullNameEx As String
Dim SelSet1 As AcadSelectionSet
Dim Entry As AcadEntity
Dim Table As AcadTable
Dim i, j As Integer
'Подготавливаем Excel-----------
FullNameEx = Left(ThisDrawing.FullName, Len(ThisDrawing.FullName) - 4) + ".xlsx"
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
    Err.Clear
    Set Excel = CreateObject("Excel.Application")
    If Err <> 0 Then
        MsgBox "Нельзя загрузить Excel.", vbExclamation
        End
    End If
End If
On Error GoTo 0
'Excel.Visible = True
Excel.Workbooks.Add
'Создаем новый лист
Set ExW = Excel.Worksheets.Add
ExW.name = "TableAutoCAD"
'------------------------------
On Error Resume Next
Set SelSet1 = ThisDrawing.SelectionSets.Add("aTtE")
SelSet1.SelectOnScreen
If SelSet1.Count = 0 Then GoTo DavayDoSvidaniya
For Each Entry In SelSet1
    If Entry.ObjectName = "AcDbTable" Then
        Set Table = Entry
        Table.RecomputeTableBlock False
        Table.RegenerateTableSuppressed = True
        For i = 0 To Table.Rows - 1
            For j = 0 To Table.Columns - 1
                With Excel.ActiveWorkbook.Sheets.Application
                .cells(i, j).NumberFormat = "@"
                .cells(i, j) = Table.GetText(i, j)
                End With
            Next j
        Next i
        Table.RegenerateTableSuppressed = False
        Table.RecomputeTableBlock True
    End If
Next
Excel.ActiveWorkbook.SaveAs FullNameEx
DavayDoSvidaniya:
SelSet1.Delete
'Закрываем приложение
Excel.Quit
Set Excel = Nothing
End Sub