Вопрос : Эксел VBA: Как побежать динамический, создал Кодего/шнур

Hey специалисты,

I am пытаясь исполнить шнур который я динамический, создавал.  Я строю это Кодего через петлю, тогда хочу исполнить ее afterwords.  Функция или дорога что я могу сделать это?  Или если не, то, другая дорога разрешить мой вопрос?  См. Кодего для я пытаюсь к do. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
>Function RunCode " class= " id= " codeSnippet790765 
 TotalRows)
    SelectionString = SelectionString & "), TrailingMinusNumbers: =True»
    MsgBox (SelectionString)
    'Этот шнур успешно производит функцию для того чтобы преобразовать текст в моем выборе к колонкам.
    'Однако, SelectionString будет шнуром очевидно, и смотрит как функция, котор мне, но мне нужна дорога исполнить ее.
    'Или мне нужно другой способ сделать это. TotalRows изменяет each time, поэтому мне нужна дорога построить этот большой блок «FieldInfo» динамический,
    'ПРИМЕЧАНИЕ: myArray глобальный блок, не тревожится о находится в ем.
Функция конца
class=

Ответ : Эксел VBA: Как побежать динамический, создал Кодего/шнур


Я написал следующий Кодего для другой проблемы, я принимал вне ненужное вещество, я верю это будет гораздо лучшее дорога причалить раскрывать сказанный workbook, тогда закрывать его, тогда прекращающ первенствуйте

заметьте приватную функцию на дне, также этом принимает вы добавит справку для того чтобы первенствовать в проекте и также использовать ввозы Эксел = 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:

Затемните excelApp как Excel.Application
        Затемните WB как Excel.Workbook
        Затемните workbookName как шнур = «имя Workbook испытания»

        'раскройте Эксел к уменьшенному положению
        excelApp = новые Excel.Application ()
        excelApp.Visible = CBool (Microsoft.Office.Core.MsoTriState.msoTrue)
        excelApp.WindowState = Excel.XlWindowState.xlMinimized

        'открытый 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

        'потребность выпустить эти предметы или их com может остать открытой в идущих обслуживаниях
        ReleaseObject (excelApp)
        ReleaseObject (WB)
        ReleaseObject (WS)
        ReleaseObject (цель)

        excelApp = ничего
        WB = ничего
        WS = ничего
        цель = ничего
        'Erase targetArray

        'побегите сборник отброса
        GC.Collect ()

    Приватное Sub ReleaseObject (ByVal o как предмет)
        Попытка
            System.Runtime.InteropServices.Marshal.ReleaseComObject (o)
        Задвижка ex как исключение
        Окончательно
            o = ничего
        Попытка конца

    Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us