Pytanie : Przodować VBA: Dlaczego dlaczego tworzyć kod/sznurek

Hej Ekspert,

I am sznurek który I tworzyć tworzyć.  I budować ten kod przez pętla, then chcieć ono afterwords.  Być tam  funkcja lub sposób że I móc być?  Lub jeżeli tam  być, być tam  alternatywny sposób mój zagadnienie?  Widzieć Kod dla do. I próbować do. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function RunCode (TotalRows)
    Ciemnawy SelectionString Sznurek
    Ćmić kontuar Jako Integer
        SelectionString = "Selection.TextToColumns Miejsce przeznaczenia: =ActiveCell, datatype: =xlFixedWidth, FieldInfo: =Array ("
        
        Jeżeli (kontuar = (0)) Wtedy
            SelectionString = SelectionString & "Szyk (" & myArray (kontuar) & ", 2)"
        Inny
            SelectionString = SelectionString & ", Szyk (" & myArray (kontuar) & ", 2)"
        Kończyć Jeżeli
        kontuar = kontuar + (1)
    Zapętlać Until (kontuar > TotalRows)
    SelectionString = SelectionString & "), TrailingMinusNumbers: =True"
    MsgBox (SelectionString)
    'Ten sznurek pomyślnie produkować the funkcja tekst w mój wybór kolumna.
    ', SelectionString być sznurek oczywiście, i spojrzenie jak the funkcja I potrzebować, ale I potrzebować sposób ono.
    'Lub I potrzebować inny sposób to. The TotalRows zmieniać szyk, więc I potrzebować sposób ten ampuła "FieldInfo" szyk ten
    'NOTATKA: myArray być globalny szyk, martwić się o ono być w ono.
Końcówka Funkcja

Odpowiedź : Przodować VBA: Dlaczego dlaczego tworzyć kod/sznurek


I napisać the następujący kod dla inny problem, i brać inny the niepotrzebny materiał, I wierzyć ono być lepszy sposób the mówić workbook, then ono, then rezygnować przodować

zauważać the intymny funkcja przy the dno, także, zakładać ty dodawać odniesienie w the projekt i także use Import Przodować = microsoft.blah.blah.blha

(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Ciemnawy excelApp Jako Excel.Application
        Ciemnawy WB Jako Excel.Workbook
        Ciemnawy workbookName Sznurek = "Próbny Workbook Imię"

        'otwarty Przodować pomniejszony stan
        excelApp = Nowy Excel.Application ()
        excelApp.Visible = CBool (Microsoft.Office.Core.MsoTriState.msoTrue)
        excelApp.WindowState = Excel.XlWindowState.xlMinimized

        'otwarty workbook
        WB = excelApp.Workbooks.Open (workbookName, Microsoft.Office.Core.MsoTriState.msoFalse, _
                                     Microsoft.Office.Core.MsoTriState.msoFalse, _
                                     Microsoft.Office.Core.MsoTriState.msoTrue)
	
	WB.close
	excelApp.quit

        'potrzeba te com przedmiot lub móc otwarty w the działający usługa
        ReleaseObject (excelApp)
        ReleaseObject (WB)
        ReleaseObject (WS)
        ReleaseObject (cel)

        excelApp = Nic
        WB = Nic
        WS = Nic
        cel = Nic
        'Wymazywać targetArray

        'biegać śmieciarski poborca
        GC.Collect ()

    Intymny Okręt podwodny ReleaseObject (ByVal o Przedmiot)
        Próba
            System.Runtime.InteropServices.Marshal.ReleaseComObject (o)
        Chwyt wyjątek Jako Wyjątek
        W końcu
            o = Nic
        Końcówka Próba

    Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us