[gizmo_zx]

Бодрого дня.
Подсобите нубу.

В програмке в место строка 22:

' *****
Set r = rw

Использовать текущую активную ячейку (которую я сам могу ткнуть), не просто перенимать значения с "rw"

Код:

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

 
Public Sub selectob()

Dim MyExcel As Object
Dim txt As String
Dim i, countobj As Integer
Dim Obj As Variant
Dim FilterType As Integer
Dim FilterData As String
'Dim ww As String

Set MyExcel = GetObject(, "Excel.Application")
Set rw = MyExcel.Workbooks(1).WorkSheets(1).Cells(1, 1)


line1:
ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.Clear
ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.SelectOnScreen
countobj = ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.count


' *****
Set r = rw

For i = 0 To countobj - 1
    Set Obj = ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.Item(i)
        If Obj.ObjectName = "AcDbText" Or Obj.ObjectName = "AcDbMText" Then
            txt = Obj.TextString
            r.Value = txt
            Set r = r.Offset(0, 1)
            
                    
        End If
Next i
Set rw = rw.Offset(1, 0)
rw.Activate
GoTo line1
End Sub

Сообщение от gizmo_zx Set r = rw

Код:

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

Set r = Selection

Не?
Ну или даже лучше:

Код:

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

Set r = ActiveCell

[gizmo_zx]

Сообщение от AlphaGeo Код: [Выделить все] Set r = Selection Код: [Выделить все] Set r = ActiveCell

Не работает. Но направление верно (:

Сообщение от gizmo_zx Не работает. Но направление верно (:

Ну да... Я только сейчас понял, что речь о VBA в AutoCAD. Тогда, если определение переменной rw устраивает, то и для r стоит поступать так же, заменяя конечное .Cells(1,1) наt .ActiveCell
Так, наверное, должно заработать.

[gizmo_zx]

Сообщение от AlphaGeo заменяя конечное .Cells(1,1) наt .ActiveCell

Тоже не заработало (:

Сообщение от gizmo_zx Тоже не заработало (:

Ну и правильно! Наивно надеятся, что ActiveCell сработает для неактивного листа
Если не надоело, я могу продолжить гадать дальше?
Так вот, в таком случае, перед запросом ActiveCell нужно сначала активировать рабочий лист:

Код:

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

MyExcel.Workbooks(1).WorkSheets(1).Activate
Set r = ActiveCell

Вариант, когда адрес активной ячейки сохраняется до деактивации листа, я так понимаю, нам не подойдет, поскольку макрос запускается из AutoCAD?

[gizmo_zx]

неправильный метод или свойство.
Set r = ActiveCell

[trir]

offtop: А чем ctrl+c/ctrl+v не устраивает?

Сообщение от gizmo_zx неправильный метод или свойство.

Тогда я пас. Видимо, .Activate в VBA для AutoCAD работает только для объектов самого AutoCAD. А как из AutoCAD обратится к Excel я не знаю.

[Кулик Алексей aka kpblc]

Сообщение от AlphaGeo как из AutoCAD обратится к Excel

Как к любому стороннему приложению...

[gizmo_zx]

Сообщение от trir ctrl+c/ctrl+v

Очень много и переключаться туда сюда. Чужая спецификация и несколько текстов в одной ячейке. Таблица рисованная.
Огромное спасибо AlphaGeo. Просто .Activate надо было не к WorkSheets прикручивать, а к Application.

Код:

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

 
Public Sub texttoexcelvb()

Dim MyExcel As Object
Dim txt As String
Dim i, countobj As Integer
Dim Obj As Variant
Dim FilterType As Integer
Dim FilterData As String
'Dim ww As String

Set MyExcel = GetObject(, "Excel.Application")
Set rwx = MyExcel.Workbooks(1).WorkSheets(1).Cells(1, 1)

line1:
ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.Clear
ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.SelectOnScreen
countobj = ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.count

Set rw = MyExcel.ActiveCell
Set r = rw

For i = 0 To countobj - 1
    Set Obj = ThisDrawing.Application.ActiveDocument.ActiveSelectionSet.Item(i)
        If Obj.ObjectName = "AcDbText" Or Obj.ObjectName = "AcDbMText" Then
            txt = Obj.TextString
            r.Value = txt
            Set r = r.Offset(0, 1)
        Else
            ' выход при выборе не текста и колличестве =1
            If i = 0 Then
                    End
            End If
        End If
Next i

'переход на новую строку
Set rw = rw.Offset(1, 0)
rw.Activate


GoTo line1
End Sub

Сообщение от gizmo_zx Просто .Activate надо было не к WorkSheets прикручивать, а к Application.

Что ж, мои поздравления.