[valeal]

Помогите пожалуйста разобраться. Пользовалась до этого двумя макросами для Excel - e2aspec, один для AutoCad - e2atab. Дома система слетела, а работу поменяла, собственно пытаюсь настроить макросы заново. Импортирую в excel из VBA, импортирую в autocad из из VBA. Запускаю макрос в Excel - не понятно выполняется или нет, запускаю в автокад - на домашнем компе пишет sub or function not defined и указывает на строку с Cells, на рабочем запрашивает точку вставки, выдаёт какое-то число, далее пишет file nill (может вру, но что-то в этом роде). Всё перепробовала, код править боюсь - макросы рабочие, а я в VBA не сильна В чём проблема может быть?

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

Для начала - где код макросов?

[valeal]

Public Sub e2atab()

Dim KV(14) As Integer

KV(1) = 1
KV(2) = 58
KV(3) = 17
KV(4) = 17
KV(5) = 17
KV(6) = 17
KV(7) = 17
KV(8) = 23
KV(9) = 17
KV(10) = 17
KV(11) = 24
KV(12) = 28
KV(13) = 17
KV(14) = 17

i = 1
For Each cc In Selection
If i = 1 Then
Col1 = cc.Column
row1 = cc.Row
End If
cl = cc.Column
rw = cc.Row
i = i + 1
Next cc
col2 = cl
row2 = rw

DataLisp$ = "c:\spec.dat"
Open DataLisp$ For Output As #1

Print #1, col2 - Col1 + 1

Print #1, row2 - row1 + 1

Print #1, Cells(1, Col1).Text

For i = Col1 To col2
For j = row1 To row2

hor = Cells(j, i).HorizontalAlignment

Select Case hor
Case -4108
'Print #1, "C"
al = "C"
Case -4131
'Print #1, "L"
al = "L"
Case -4152
'Print #1, "R"
al = "R"
Case Else
'Print #1, "L"
al = "L"
End Select
'k = Cells(3, i).Value
'Print #1, KV(i)
k = Cells(j, i).Text
'Print #1, k

Print #1, al
Print #1, KV(i)
Print #1, k

Next
Next

'Print #1,
'For i = Col1 To col2
' k = Cells(2, i).Value
' Print #1, k
' k = Cells(3, i).Value
' Print #1, k
'Next
Close #1
End Sub

Проблема видимо с этим кодом, так как после загрузки аналогичного кода с этого форума всё заработало. Глючит на строчке
Print #1, Cells(1, Col1).Text. Выделяет Cells.
Интересно почему, раньше всё работало и я не помню чтобы что-то меняла в коде.

[maximas]

Можно попробовать обойти проблему. Поставить бесплатный Nanocad 3.0 (или позднее) и импортировать exel таблицу. Для етого надо открыть имеющейся документ (расширение только xls), в нанокаде «черчение»-«таблицы»-импортироватх в ехеl.

[Олег (jr.)]

Сообщение от valeal макросы рабочие, а я в VBA не сильна В чём проблема может быть?

Кажись кто-то все же правил... у меня работает в 2009-м, Эксель 2007 Win 7
(возможно пропущена директива Option Explicit)
Скопируй отсюда и сохрани как дубль:

Код:

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

Option Explicit

Public Sub e2atab()
 Dim cc As Range
 Dim i, j, Col1, cl, rw, Row1, Col2, Row2, DataLisp$, hor, Al$, K
Dim KV(14) As Integer
 
KV(1) = 1
 KV(2) = 58
 KV(3) = 17
 KV(4) = 17
 KV(5) = 17
 KV(6) = 17
 KV(7) = 17
 KV(8) = 23
 KV(9) = 17
 KV(10) = 17
 KV(11) = 24
 KV(12) = 28
 KV(13) = 17
 KV(14) = 17

 i = 1
 For Each cc In Selection
 If i = 1 Then
 Col1 = cc.Column
 Row1 = cc.Row
 End If
 cl = cc.Column
 rw = cc.Row
 i = i + 1
 Next cc
 Col2 = cl
 Row2 = rw
 
DataLisp$ = "c:\Test\spec.dat"
 Open DataLisp$ For Output As #1
 
Print #1, Col2 - Col1 + 1
 
Print #1, Row2 - Row1 + 1
 
Print #1, Cells(1, Col1).Text
 
For i = Col1 To Col2
 For j = Row1 To Row2
 
hor = Cells(j, i).HorizontalAlignment
 
Select Case hor
 Case -4108
 'Print #1, "C"
Al = "C"
 Case -4131
 'Print #1, "L"
Al = "L"
 Case -4152
 'Print #1, "R"
Al = "R"
 Case Else
 'Print #1, "L"
Al = "L"
 End Select
 'k = Cells(3, i).Value
'Print #1, KV(i)
 K = Cells(j, i).Text
 'Print #1, k

 Print #1, Al
 Print #1, KV(i)
 Print #1, K

 Next
 Next
 
'Print #1,
 'For i = Col1 To col2
 ' k = Cells(2, i).Value
' Print #1, k
 ' k = Cells(3, i).Value
 ' Print #1, k
 'Next
 Close #1
 End Sub

[valeal]

Проблему вроде как решила путём скачивания аналогичного макроса (по ходу дела того же самого) с сайта. Но этот вариант тоже проверю. Спасибо.