Flushing zmian wprowadzonych do VBProject.Komponenty VB w Excelu za pomocą VBA

Tutaj... Udało mi się obejść ten dziwny problem, ale nie znalazłem prawdziwego rozwiązania. Oto co zrobiłem.

1. Moja pierwsza próba po wrzuceniu pytania była taka (spoiler: to prawie zadziałało):

   Usuwaj oddzielnie od importu, ale w tej samej procedurze. Oznacza to, że miałem 3 pętle-jedną do przechowywania listy nazw modułów( jako zwykłe ciągi), drugą do usuwania modułów, a drugą do importowania modułów z plików (na podstawie nazw które zostały zapisane na powyższej liście).

   Problem: niektóre moduły były nadal w projekcie, gdy pętla usuwania się skończyła. Dlaczego? Nie potrafię tego wyjaśnić. Zaznaczę to jako głupi problem nr 1 . Następnie próbowałem umieścić Remove Wywołanie dla każdego modułu wewnątrz pętli, która próbowała usunąć ten pojedynczy moduł, dopóki nie mógł go znaleźć w projekcie. To utknęło w nieskończonej pętli dla pewnego modułu - nie mogę powiedzieć, co jest takiego specjalnego w tym konkretnym module.

   W końcu zorientowałem się, że moduły zostały naprawdę usunięte dopiero po tym, jak Excel znajdzie trochę czasu na oczyszczenie swoich myśli. To nie zadziałało z aplikacją.Czekaj (). Aktualnie uruchomiony kod VBA faktycznie musiał się skończyć, aby to się stało. Dziwne.

2. Druga próba obejścia (spojler: znowu, to prawie zadziałało):

   Aby Dać Excelowi wymagany czas na oddychanie po usunięciu, umieściłem pętlę usuwania wewnątrz przycisku Click handler (bez " wywołania Remove until it 's gone" loop), a importowanie pętli w obsłudze kliknięcia innego przycisku. Oczywiście potrzebowałem listy nazw modułów, więc zrobiłem z niej globalną tablicę ciągów. Został utworzony w programie obsługi kliknięć, przed pętlą usuwania i miał być dostępny przez pętlę importowania. Powinno zadziałać, prawda?

   Problem: wspomniana tablica łańcuchów znaków była pusta podczas uruchamiania pętli importowania (wewnątrz innego programu obsługi kliknięć). To było na pewno tam, kiedy pętla usuwania zakończona-wydrukowałem ją z Debug.Drukuj. Myślę, że został zdekonspirowany przez przeprowadzki (??). To byłby głupi problem nr 2 . Bez tablicy łańcuchowej zawierającej nazwy modułów, pętla importująca nic nie zrobiła, więc to obejście nie powiodło się.

3. Ostateczne, funkcjonalne obejście. Ten działa.

   Wziąłem pracę wokół numeru 2 i zamiast przechowywania nazw modułów w tablicy łańcuchowej, zapisałem je w wierszu arkusza pomocniczego (nazwałem ten arkusz "Devel").

Mógłbym dodać kod, aby zilustrować głupi problem nr 2 , ale ta odpowiedź jest już długa. Jeśli to, co zrobiłem, nie było jasne, umieszczę to tutaj.

Aby uniknąć duplikatów podczas importowania, zmodyfikowałem skrypt następującą strategią:

• Zmień nazwę istniejącego modułu
• moduł importu
• Usuń przemianowany moduł

Nie mam już duplikatu podczas importu.

Sub SaveCodeModules()

'This code Exports all VBA modules
Dim i As Integer, name As String

With ThisWorkbook.VBProject
For i = .VBComponents.Count To 1 Step -1

    name = .VBComponents(i).CodeModule.name

    If .VBComponents(i).Type = 1 Then
        ' Standard Module
        .VBComponents(i).Export Application.ThisWorkbook.Path & "\trunk\" & name & ".module"
    ElseIf .VBComponents(i).Type = 2 Then
        ' Class
        .VBComponents(i).Export Application.ThisWorkbook.Path & "\trunk\" & name & ".classe"
    ElseIf .VBComponents(i).Type = 3 Then
        ' Form
        .VBComponents(i).Export Application.ThisWorkbook.Path & "\trunk\" & name & ".form"
    Else
        ' DO NOTHING
    End If
Next i
End With

End Sub

Sub ImportCodeModules()

Dim i As Integer
Dim delname As String
Dim modulename As String

With ThisWorkbook.VBProject
For i = .VBComponents.Count To 1 Step -1

    modulename = .VBComponents(i).CodeModule.name

    If modulename <> "VersionControl" Then

        delname = modulename & "_to_delete"

        If .VBComponents(i).Type = 1 Then
            ' Standard Module
            .VBComponents(modulename).name = delname
            .VBComponents.Import Application.ThisWorkbook.Path & "\trunk\" & modulename & ".module"
            .VBComponents.Remove .VBComponents(delname)

        ElseIf .VBComponents(i).Type = 2 Then
            ' Class
            .VBComponents(modulename).name = delname
            .VBComponents.Import Application.ThisWorkbook.Path & "\trunk\" & modulename & ".classe"
            .VBComponents.Remove .VBComponents(delname)

        ElseIf .VBComponents(i).Type = 3 Then
            ' Form
            .VBComponents.Remove .VBComponents(modulename)
            .VBComponents.Import Application.ThisWorkbook.Path & "\trunk\" & modulename & ".form"
        Else
            ' DO NOTHING
        End If

    End If
Next i

End With

End Sub

Kod do wklejenia w nowym module "VersionControl"

Zmagam się z tym problemem od kilku dni. Zbudowałem prymitywny system kontroli wersji podobny do tego, choć nie używając tablic. Moduł kontroli wersji jest importowany w Workbook_Open, a następnie wywoływana jest procedura uruchamiania, aby zaimportować wszystkie moduły wymienione w module kontroli wersji. Wszystko działa świetnie, z wyjątkiem programu Excel zaczął tworzyć zduplikowane moduły kontroli wersji, ponieważ importowałby nowy moduł przed zakończeniem usuwania istniejącego. I work around to poprzez dodanie Delete do poprzedniego modułu. Problem w tym, że były jeszcze dwie procedury o tej samej nazwie. Chip Pearson ma jakiś kod do programowego usuwania procedury, więc usunąłem kod startowy ze starszego modułu kontroli wersji. Mimo to napotkałem problem, w którym procedura nie została usunięta do czasu wywołania procedury uruchamiania. W końcu znalazłem rozwiązanie na innym wątku przepełnienia stosu, które jest tak proste, że sprawia, że chcę położyć głowę przez ścianę. Wszystko, co musiałem zrobić, to zmienić sposób, w jaki nazywam moją procedurę uruchamiania za pomocą

Application.OnTime Now + TimeValue("00:00:01"), "StartUp"    

Kontrola źródłowa modułów kodu Excel VBA

Obejście zmiany nazwy, importu i usunięcia nie zadziałało w moim przypadku. Wydaje się (ale to czysta spekulacja), że Excel może zapisać skompilowane obiekty w swoim .Plik XLMS, a po ponownym otwarciu tego pliku obiekty te są przeładowywane w pamięci przed wystąpieniem funkcji ThisWorkbook_open. Powoduje to, że zmiana nazwy (lub usunięcie) niektórych modułów nie powiedzie się lub zostanie opóźniona (nawet gdy próbuje się wymusić to wywołaniem DoEvents). Jedyne obejście, jakie znalazłem, to użycie .Format binarny XLS. Dla niektórych niejasny powód (podejrzewam, że skompilowane obiekty nie są wiązane w pliku), działa dla mnie.

Musisz wiedzieć, że nie będziesz w stanie ponownie zaimportować żadnego modułu, który był/był używany lub odwoływany w momencie uruchomienia kodu importowego (zmiana nazwy nie powiedzie się z błędem 32813/usunięcie modułu będzie opóźnione do momentu, gdy spróbujesz zaimportować, dodając irytujące '1' na końcu nazw modułów). Ale dla każdego innego modułu powinien działać.

Jeśli cały kod źródłowy musi być zarządzane, lepszym rozwiązaniem byłoby "zbudowanie" skoroszytu od podstaw za pomocą jakiegoś skryptu lub narzędzia, lub przejście na lepiej dopasowany język programowania (tj. taki, który nie mieszka w oprogramowaniu pakietu biurowego;) nie próbowałem tego, ale można zajrzeć tutaj: Source control of Excel VBA code modules .