Cuestión : Excel VBA: Cómo funcionar dinámicamente creó código/la secuencia

Hey expertos,

I que intenta ejecutar una secuencia que he creado dinámicamente.  Construyo este código a través de un lazo, después quiero ejecutarlo los afterwords.  ¿Hay una función o una manera que puedo hacer esto?  ¿O si no hay, hay una manera alternativa de solucionar mi edición?  Ver el código para lo que estoy intentando a do. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
>Function notpretty RunCode (TotalRows) " del class= " del id= " codeSnippet790765 del 
 TotalRows)
    SelectionString = SelectionString y "), TrailingMinusNumbers: =True”
    MsgBox (SelectionString)
    'Esta secuencia produce con éxito la función para convertir el texto en mi selección a las columnas.
    'Sin embargo, SelectionString es una secuencia obviamente, y parece la función que necesito, pero necesito una manera de ejecutarla.
    'O necesito una manera diferente de hacer esto. El TotalRows cambia cada vez, así que necesito una manera de construir este arsenal grande de “FieldInfo” dinámicamente
    'NOTA: myArray es un arsenal global, no se preocupa de cuál está en él.
Función del final
class= del

Respuesta : Excel VBA: Cómo funcionar dinámicamente creó código/la secuencia


Escribí el código siguiente para otro problema, yo he sacado la materia innecesaria, yo creo que esto es una manera mucho mejor de acercarse a abrir el libro de trabajo dicho, después a cerrarlo, después parando sobresalir

notar la función privada en la parte inferior, también ésta asume que usted agregará una referencia para sobresalir en el proyecto y también para utilizar las importaciones Excel = 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:

Amortiguar el excelApp como Excel.Application
        Amortiguar el WB como Excel.Workbook
        Amortiguar el workbookName como secuencia = “nombre del libro de trabajo de la prueba”

        'Excel abierto al estado reducido al mínimo
        excelApp = nuevos Excel.Application ()
        excelApp.Visible = CBool (Microsoft.Office.Core.MsoTriState.msoTrue)
        excelApp.WindowState = Excel.XlWindowState.xlMinimized

        'libro de trabajo abierto
        WB = excelApp.Workbooks.Open (workbookName, Microsoft.Office.Core.MsoTriState.msoFalse, _
                                     Microsoft.Office.Core.MsoTriState.msoFalse, _
                                     Microsoft.Office.Core.MsoTriState.msoTrue)
	
	WB.close
	excelApp.quit

        la 'necesidad de lanzar estos objetos o los de COM puede seguir siendo abierta en los servicios corrientes
        ReleaseObject (excelApp)
        ReleaseObject (WB)
        ReleaseObject (WS)
        ReleaseObject (blanco)

        excelApp = nada
        WB = nada
        WS = nada
        blanco = nada
        'Erase targetArray

        'funcionar con el colector de basura
        GC.Collect ()

    ReleaseObject secundario privado (ByVal o como objeto)
        Intento
            System.Runtime.InteropServices.Marshal.ReleaseComObject (o)
        Retén ex como excepción
        Finalmente
            o = nada
        Intento del final

    Submarino del extremo
Otras soluciones  
 
programming4us programming4us