[SVitaliy]

Добрый день!
Заранее прошу прощения за ламерский вопрос - под автокад писать макросы до селе не приходилось.
Не подскажете ли, уважаемые форумчане, как организовать перебор ячеек в Excel из VBA AutoCAD?
В частности, не понятно как в команде
Excel.ActiveWorkbook.Sheets.Application.Range("A1") = "Значение"
вместо явной ячейки A1 установить значение, зависящее от счётчика цикла.

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

Попробуй использовать метод .Cell

[p_sh]

Сообщение от SVitaliy Добрый день! Заранее прошу прощения за ламерский вопрос - под автокад писать макросы до селе не приходилось. Не подскажете ли, уважаемые форумчане, как организовать перебор ячеек в Excel из VBA AutoCAD? В частности, не понятно как в команде Excel.ActiveWorkbook.Sheets.Application.Range("A1") = "Значение" вместо явной ячейки A1 установить значение, зависящее от счётчика цикла.

можно использовать offset(i.j)

[SVitaliy]

Спасибо, использовал .Cell и всё получилось

[SVitaliy]

Сообщение от p_sh можно использовать offset(i.j)

p_sh, ради любопытства, как можно использовать Ваш вариант? Что-то в справочнике по VBA ничего подобного нет

[mmax]

Application.Range("A1").Value = "Значение" 'меняет значение
Value = Application.Range("A1").Value2 'читать значение

иногда очень полезно номер колонки перевести в букву функцией
которую я написал для VB/NET, но ее несложно подправить под VB6

Код:

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

Public Function NinL(ByVal num As Integer)
        Dim str As String
        Dim str0 As String
        str0 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        If num < 27 Then
            NinL = Mid(str0, num, 1)
        End If
        If num > 26 Then
            Dim dblrazr As Double
            dblrazr = CDbl(num) / 26.0
            Dim razr As Integer
            razr = Fix(dblrazr)
            Dim bukva1 As String
            bukva1 = Mid(str, razr, 1)
            Dim usl As Boolean
            usl = True
            Dim midBukva As Integer
            midBukva = num
            Dim i As Integer

            For i = 1 To razr
                midBukva = midBukva - 26
            Next
            midBukva = Math.Abs(midBukva)
            If midBukva = 0 Then
                midBukva = 26
                bukva1 = Mid(str, razr - 1, 1)
            End If
            Dim bukva2 As String
            bukva2 = Mid(str, midBukva, 1)
            NinL = bukva1 + bukva2
        End If
    End Function

256 колонок получаются без проблем. Довести до "ZZ" не пробовал.

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

Адрес последней ячейки листа: IV65536 (256 столбцов). Больше создать невозможно, как я понимаю.
P.S. MS Excel 2003.