Fråga : Excel VBA: Hur man kör dynamiskt skapat kodifiera/stränga

Hey experter, pröva förmiddag för

I att utföra en stränga som jag har dynamiskt skapat.  Jag bygger denna kodifierar till och med en kretsa, då önskar att utföra den efterordar.  Finns det en fungera, eller långt det jag kan göra denna?  Eller om det inte finns, finns det ett alternativ långt som löser mitt, utfärdar?  Se för att kodifiera för vad I-förmiddagen som är pröva till do. > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
" codeBody " " >Function RunCode (TotalRows) för class= " för TotalRows), SelectionString = SelectionString & ”), TrailingMinusNumbers: =True”, MsgBox (SelectionString) 'Detta stränger producerar lyckat fungera för att konvertera text i mitt val till kolonner. 'Emellertid, SelectionString är en stränga självfallet, och looks gillar fungera som jag behöver, men jag behöver a långt att utföra det. 'Eller jag behöver ett olikt långt att göra detta. TotalRowsen ändrar varje gång, så jag behöver a långt att bygga denna stora ”FieldInfo” samling dynamiskt 'NOTERA: myArray är en global samling, oroar inte om vad är i den. Avsluta fungerar
" klar "

Svar : Excel VBA: Hur man kör dynamiskt skapat kodifiera/stränga


Jag skrev efter kodifiera för ett annat problem, mig har tagit ut det onödigt stoppar, mig tror detta är mycket som var bättre långt att att närma sig att öppna den sagda arbetsboken, då bokslut det, då avsluta överträffa

märka det privat för att fungera längst ner, också detta antar att du ska tillfogar en hänvisa till för att överträffa i projektera och också för att använda importExcel = 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:

Dunkel excelApp som Excel.Application
        Dunkel WB som Excel.Workbook
        Dunkel workbookName som stränger = ”testar den kända arbetsboken”,

        'öppen Excel till minimerat statligt
        excelApp = nya Excel.Application ()
        excelApp.Visible = CBool (Microsoft.Office.Core.MsoTriState.msoTrue)
        excelApp.WindowState = Excel.XlWindowState.xlMinimized

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

        'behov att frigöra dessa com anmärker, eller de kan återstå öppna i springet servar
        ReleaseObject (excelApp)
        ReleaseObject (WB)
        ReleaseObject (WS)
        ReleaseObject (uppsätta som mål),

        excelApp = ingenting
        WB = ingenting
        WS = ingenting
        uppsätta som mål = ingenting
        'Radera targetArray

        'kör avskrädesamlaren
        GC.Collect ()

    Privata underReleaseObject (den ByVal nollan som anmärker)
        Försök
            System.Runtime.InteropServices.Marshal.ReleaseComObject (nolla)
        Fånga före detta som undantag
        Slutligen
            nolla = ingenting
        Avsluta försök

    Avsluta suben
Andra lösningar  
 
programming4us programming4us