Вопрос : Как smogли родственные программы быть приспособлены для того чтобы быть взаимодействующи - просить потребитель число уровней и архива и тяги источника в Эксел.

Было бы очень полезно иметь программу спросить потребителю сколько уровни там и мочь выбрать директорию и после этого отборный архив для processing.

например,
If, котор архив был форматирован как следующий, тогда ответом к вопросу о уровней было бы
California
Canada
British Columbia
Manitoba

and нью-йорка
2.
Соединенные Штаты был бы повернут в: California
CanadaBritish Columbia
CanadaManitoba

If
Соединенные Штаты нью-йорка
Соединенные Штаты архив было форматировано как следующий, тогда ответом к вопросу о уровней было бы
CanadaBritish ColumbiaVancouver California Лос-Анджелес
Соединенные Штаты California Сан-Франциско
Соединенные Штаты Нью-Йорк нью-йорка Buffalo
Соединенные Штаты нью-йорка
Canada
British Columbia
Vancouver

Соединенные Штаты
Лос-Анджелес
California
Сан-Франциско
Buffalo
Нью-Йорк нью-йорка
3.
Соединенные Штаты class= " ясное " >
Related: href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26290349.html " title= " How я редактировал бы Кодего для дополнительных уровней от: Как могу я подготовьте архивы текста для ввоза в…

Ответ : Как smogли родственные программы быть приспособлены для того чтобы быть взаимодействующи - просить потребитель число уровней и архива и тяги источника в Эксел.

после того как я вытягиваны в первенствуете, вы хотите его разделяете в клетки или имеете платы в одной клетке?

Я дорабатывал Кодего exx1976, котор нужно использовать как Эксел VBA.


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:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Sub Import1 ()

    Тусклое rngStart как ряд
    Установите oFS = CreateObject («Scripting.FileSystemObject»)
    FOpen = Application.GetOpenFilename («архивы текста (*.txt), *.txt»)
    Установленное oFile = oFS.OpenTextFile (FOpen, 1)
    'Установите outfile = oFS.CreateTextFile («c:\SaveDataFile.txt ")
    Установите rngStart = ActiveCell
    'за исключением данных по разделения на клетке currect активно.
    Тусклое myArr ()
    myArr ReDim (0)
    Тусклое tempArr ()
    Сделайте пока не oFile.AtEndOfStream
        sData = oFile.Readline
        Если InStr (sData, vbTab) после этого
            strarr = разделило (sData, vbTab)
            Если UBound (strarr) <> UBound (myArr) после этого
                myArr заповедника ReDim (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Закончитесь если
        Еще
            Если UBound (myArr) > 0 после этого myArr SaveData
            myArr ReDim (0)
            myArr (0) = sData
        Закончитесь если
    Петля
    myArr SaveData
    oFile.Close
    движение  rngStart.Select 'назад к началу
    

Подводная лодка конца

Sub SaveData (arr как вариант)

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