• mel
  • Восстановленный участник
  • На форуме с 15 мая 2006г.
  • Сообщений: 7
  • Спасибо: 0

Тема: заполнение таблицы Excel

Умные шарящие люди, помогите пожалуйста...
Найдите ошибку, или просто объесните что я делаю не так и как сделать подругому.
Dim ExcelSheet   As Excel.WorkSheet
......
For i = 1 To i = 12
ExcelSheet.Columns(i).AutoFit
Next i
Вот если отдельно писать
ExcelSheet.Columns(1).AutoFit
ExcelSheet.Columns(2).AutoFit
ExcelSheet.Columns(3).AutoFit и т.д.
то все выравнивается, а в цикле - нет :(
и так во всех циклах связанных с Excel
Подскажите что-нибудь конструктивное?
P.S>
или я циклы писать не умею? :((

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: заполнение таблицы Excel

Угу, не умеете!:)

For i = 1 To 12

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: заполнение таблицы Excel

Вариант

ExcelSheet.Columns("A:L").AutoFit

или

ExcelSheet.Columns.AutoFit

  • mel
  • Восстановленный участник
  • На форуме с 15 мая 2006г.
  • Сообщений: 7
  • Спасибо: 0

Re: заполнение таблицы Excel

to Сидор Лютый (2006-05-23 05:15:25)
Вы даже не представляете - вы спасли мне жизнь :)))
Спасибо!
P.S.
вечно палюсь на глупых ошибках.
to brigval
и вам спасибо!
( ура-ура... побежала дописывать код :)

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: заполнение таблицы Excel

Да не за что.
И эта.. brigval-то прав. Если выравниваете столбцы подряд, без шага, то цикл и не нужен совсем, в смысле оптимизации. Лучше выровнять диапазон.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: заполнение таблицы Excel

вот как я выравнивал все ячейчи, обратите внимание на Cells(1, 1) одиночный такой вызов делает AutoFit для всех ячеек 

objExcel.ActiveWorkbook.ActiveSheet.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit

  • mel
  • Восстановленный участник
  • На форуме с 15 мая 2006г.
  • Сообщений: 7
  • Спасибо: 0

Re: заполнение таблицы Excel

to Сидор Лютый
да дело в том, что выравнивание - не единственный "цикл". Там еще и заполнение "глючило".  А выравнивание я так и сделала, с точки зрения оптимизации :).
To Smel
классно. тоже нужный вариант! спасибо!

  • mel
  • Восстановленный участник
  • На форуме с 15 мая 2006г.
  • Сообщений: 7
  • Спасибо: 0

Re: заполнение таблицы Excel

И можно еще один ламерский вопросец?
как сделать так, чтобы приложение запускалось из командной строки?
(т.е. набираешь "PROGA" и поехали)
я опять что-то принципиально не дописываю в коде... :)

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: заполнение таблицы Excel

Вот упрощенный вариант того, что у меня написанно
lisp

(defun C:RUN  (/ PATH)
  (vl-vbarun "RUNVBA")
  (gc)
)

VBA

public sub RUNVBA()
shell "notepad.exe"
[i]'либо воспользуйтесь Declare Function ShellExecute Lib "shell32.dll" ...[/i]
end sub

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: заполнение таблицы Excel

> mel
Для твоей программы будет следующий вариант:

;;сохранить как RunElectro.lsp
;;В Автокаде: Tools->Load Application
;;грузишь этот файл и все, команду набирать
;;не нужно, здесь автозапуск
(defun C:ELC ()
  (vl-load-com)
  (vl-vbaload (findfile "Project-2.dvb"))
  (vl-vbarun
    (strcat (findfile "Project-2.dvb") "!Electro.Electro")
  )
  (vla-unloaddvb
    (vla-get-application
      (vla-get-activedocument
    (vlax-get-acad-object)))
    "Project-2.dvb")
  (princ)
)
(C:ELC)
(princ)

Держись студент
~'J'~