как сортиовать данные перенесенные в Excel

Тема в разделе "Lotus - Программирование", создана пользователем alb, 25 сен 2008.

  1. alb

    alb Well-Known Member

    Регистрация:
    13 июл 2005
    Сообщения:
    212
    Симпатии:
    0
    вопрос в сабже
    пишу вот что
    Set xl = CreateObject("Excel.Application")
    ......
    .....
    .....
    xl.Range("A5:T31").Select
    здесь область выделяется нормально
    xl.Selection.Sort xl.Range("A5"), 1, 1,1, False, 1,0 засада вот тут вываливается ошибкой неверная ссылка

    как правильно ссылкуто передавать
     
  2. alb

    alb Well-Known Member

    Регистрация:
    13 июл 2005
    Сообщения:
    212
    Симпатии:
    0
    так и не смог решить
    решил переносимый массив сначало сортировать средствами лотуса потом перенести.
     
  3. Lexa-xa

    Lexa-xa Гость

    Возможно вставил мало запятых (параметров)
    У меня вот так работает
    .Range(tmpCol1 & row & ":" & tmpCol2 & (row + cntM)).Select
    Call .Selection.Sort(.Range(tmpCol1 & row),1, , , , , , 0, 1, False, 1, , 0, , )

    в Range всякие параметры, не обращай внимания :unsure:

    из Хелпа
    expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    А с параметрами всё в порядке?
    Вот выдрал из хелпа:
    У тебя явно что-то не так.
    Key2 равен 1. А должен быть или текст, или Range.
    Order2 равен False. А допустимые значения 1 или 2.
    И т.д.
     
  5. alb

    alb Well-Known Member

    Регистрация:
    13 июл 2005
    Сообщения:
    212
    Симпатии:
    0
    visual basic?

    шя попробую как у вас, я просто написал макрос в екселе и по его подобию в лотус скрипте пытался.
    в том что выдал макрос и в правду мало парметров чем вы указали

    точно дело было в парметрах
    только у меня со скобками не работает
    а вот так работает

    xl.Range("A5:T31").Select
    xl.Selection.Sort xl.Range("A5"),1, , , , , , 0, 1, False, 1, , 0, ,


    спасибо
     
Загрузка...

Поделиться этой страницей