Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1724244 Wed, 10 Oct 2007 09:02:14 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1724244 pvr копирование.
2 Rust - спасибки - по виду самое оно!
пробовать не буду - уже далеко ушел.
Думаю линк в ФАК добавить стоит.


С учетом поста Rust думаю можно закрывать тему.]]> Nick Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1724163 Wed, 10 Oct 2007 08:27:34 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1724163 Nick
Так какая строка моего кода подвисает -
Copy или PasteSpecial ???]]> pvr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1724126 Wed, 10 Oct 2007 08:13:23 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1724126 Цитата Nick @
Создать в нем макрос определенного содержания - не решено
Передать управление екселю и запустить макрос - не решено
по окончании выполнения макроса - удалить все макросы в екселе - не решено

Динамическое добавление и запуск макроса на языке VBA в среде разработки Visual Basic]]> Rust Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1723945 Wed, 10 Oct 2007 06:18:50 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1723945 Даже операция выделения непустых ячеек - это 1-3 секунды если запускаешь макрос в екселе (по упомянутому тобой F8) против 5 минут - если это делаешь в аксесе.
Операция копирования в твоём коде приводит к подвисанию связки (это если дождаться пока оно все выделит) - на работе процесора и памяти данный процес никак не отражается почему-то... :unsure:
в моём же коде процес идет, но на каждую ячейку тратится очень много времени (10-20ячеек за секунду) при минимальном размере 2000*40 - это на долго....


:'( :blink: :'(]]> Nick Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1723679 Tue, 09 Oct 2007 18:25:11 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1723679 Nick
С точки зрения выполнения макроса - абсолютно всё-равно, кто его запускает, работать будет одинаково.
Попробуй мой код выполнить по F8 из аксесса - какой его участок тормозит?

И тот же код из самого Excel - только objExcel замени на Application.

У меня одинаково отрабатывает.....

Может у тебя при старте Excel куча каких-нибудь надстроек грузится?]]> pvr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722931 Tue, 09 Oct 2007 07:50:00 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722931 pvr даааа.....
Повис ексель с аксесом и надежно - снял только через три пальца и то через 10 мин.
То ли лыжи не едут толи я не лыжник....
может как-то можно в екселе создавать макрос-запускать на выполнение-удалять макрос-закрывать с сохранением?


pvr- все равно спасибо - показал иной подход.


Вопрос остаётся открытым... :no-sad:

Добавлено
Манипуляции привели к твердому решению - никаких действий с ячейками в екселе из под объекта в аксесе. Уже на выделении ячеек связка виснет на минут 5.

Следовательно уточняю задачу:

Открыть ексель - это решено
Создать в нем макрос определенного содержания - не решено
Передать управление екселю и запустить макрос - не решено
по окончании выполнения макроса - удалить все макросы в екселе - не решено
сохранить и закрыть ексель - это решено
передать управление аксесу - не решено]]> Nick Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722662 Mon, 08 Oct 2007 20:18:26 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722662
    For Each tt In objExcel.Selection.Cells


Вот так будет быстрее:
    Const xlPasteValues = -4163
    Const xlCellTypeBlanks = 4
    Const xlPasteSpecialOperationAdd = 2
     
    Dim objExcel As Object, sse As String
    sse = "D:\My_doc\sliv.xls"
     
    Set objExcel = CreateObject("Excel.application")
    With objExcel
        .Workbooks.Open Filename:=sse, ReadOnly:=False
        .Cells.SpecialCells(xlCellTypeBlanks).Copy
        .ActiveSheet.UsedRange.PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
        .DisplayAlerts = False
        .Workbooks(1).SaveAs Filename:=sse
        .Quit
    End With
    Set objExcel = Nothing
]]> pvr Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722338 Mon, 08 Oct 2007 13:21:13 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722338
    sse = "D:\My_doc\sliv.xls"
     
    Dim objExcel As Object
     
    Set objExcel = CreateObject("Excel.application")
    With objExcel
    .Workbooks.Add Template:=sse
    .Visible = True
    End With
     
    objExcel.ActiveSheet.UsedRange.Select
    For Each tt In objExcel.Selection.Cells
        tt.Value = tt.Value
        rreee = tt.Address
    Next tt
    objExcel.Application.DisplayAlerts = False
    objExcel.Workbooks(1).SaveAs sse
    objExcel.Application.Quit
    Set objExcel = Nothing

Но грабли вылезли в следующем: на полной базе это займет около часа (напомню в екселе это занимает 20 сек)
Может есть нормальный способ выливать в ексель числа чтобы не приходилось так корячиться????
напомню: при экспорте в ексель из аксеса числовые поля стают текстом - спасает от этого только процедура повторного присвоения значения(см код выше)

ХЕЛП!!!!!!!!!! :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wacko: :wacko: :wacko:]]> Nick Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722233 Mon, 08 Oct 2007 12:15:41 +0000 Как из Access открыть Excel выполнить в Excel макрос и закрыть с сохранением. https://forum.sources.ru/index.php?showtopic=205987&view=findpost&p=1722233 Хотя скорее всего уже не раз обсасывалось.

из Аксеса хочу открыть екселевский файл в который экспортировал данные. Числовые поля которые упрямо воспринимаются как текст привести в нормальный вид следующим кодом:
    ActiveSheet.UsedRange.Select
    For Each tt In Selection.Cells
        tt.Value = tt.Value
    Next tt



____________________________
Хор Веревки: :whistle: :whistle: :whistle: :whistle: :whistle: :whistle: :whistle: :whistle: :whistle: :whistle: :whistle:

Добавлено
    Shell "cmd /X /C start c:\mydoc\example.xls"
открывает - но как дальше выполнить там макрос пока не ясно.

Добавлено
Вот что получилось:
    sse = "D:\My_doc\sliv.xls"
     
    Dim objExcel As Object
     
    Set objExcel = CreateObject("Excel.application")
    With objExcel
    .Workbooks.Add Template:=sse
    .Visible = True
    End With
     
    objExcel.ActiveSheet.UsedRange.Select
    For Each tt In objExcel.Selection.Cells
        tt.Value = tt.Value
    Next tt
    objExcel.Workbooks(1).Save
    objExcel.Application.Quit
     
    Set objExcel = Nothing

Единственное думает очень долго....
Если исходный макрос запускать из екселся - раз в 20 быстрее.

за наведение на мысль спасибо Mongol и maxim84_]]> Nick Visual Basic: Общие вопросы