Pergunta : Como poderiam os programas relacionados ser adaptados para ser interativos - pedindo o usuário o número de níveis e a lima e a tração de fonte em Excel.

Seria muito útil mandar o programa perguntar ao usuário quantos níveis lá são e para poder escolher um diretório e então uma lima seleta para processing.

por exemplo,
If que a lima foi formatada como o seguinte, a seguir a resposta à pergunta dos níveis seria o
California
Canada
British Columbia
Manitoba

and do
New York de 2.
Estados Unidos seria transformada em: O California
CanadaBritish Columbia
CanadaManitoba

If do
Estados Unidos de New York do do
Estados Unidos a lima foi formatado como o seguinte, a seguir a resposta à pergunta dos níveis seria o
CanadaBritish ColumbiaVancouver do California Los Angeles do
Estados Unidos do California San Francisco do
Estados Unidos de New York City do de New York do do Buffalo
Estados Unidos de New York do do
Canada
British Columbia
Vancouver

Estados Unidos do
Los Angeles do
California
San Francisco do
Buffalo
New York City do
New York de 3.
Estados Unidos class= > " desobstruído " do
soluções >Related class= href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26290349.html " title= de " do How " qRelatedParent " eu editaria o código para níveis adicionais de: Como posso eu preparar limas de texto para a importação… em

Resposta : Como poderiam os programas relacionados ser adaptados para ser interativos - pedindo o usuário o número de níveis e a lima e a tração de fonte em Excel.

quando puxado em prima, você o quer rachado em pilhas ou tem as abas em uma pilha?

Eu modifiquei o código exx1976 a ser usado como Excel 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:

Import1 secundários ()

    rngStart não ofuscante como a escala
    Ajustar o oFS = o CreateObject (“Scripting.FileSystemObject”)
    FOpen = Application.GetOpenFilename (de “limas texto (*.txt), *.txt”)
    oFile ajustado = oFS.OpenTextFile (FOpen, 1)
    'Ajustar outfile = oFS.CreateTextFile (“c:\SaveDataFile.txt ")
    Ajustar o rngStart = o ActiveCell
    'excepto os dados da separação na pilha ativa do currect.
    myArr não ofuscante ()
    myArr de ReDim (0)
    tempArr não ofuscante ()
    Fazer quando não oFile.AtEndOfStream
        sData = oFile.Readline
        Se InStr (sData, vbTab) então
            strarr = separação (sData, vbTab)
            Se UBound (strarr) <> UBound (myArr) então
                myArr da conserva de ReDim (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Terminar se
        Mais
            Se UBound (myArr) > 0 então myArr de SaveData
            myArr de ReDim (0)
            myArr (0) = sData
        Terminar se
    Laço
    myArr de SaveData
    oFile.Close
    movimento  de rngStart.Select 'de volta ao começo
    

Submarino da extremidade

SaveData secundário (arr como a variação)

    Para i = 0 a UBound (arr)
        ActiveCell.Offset (0, i). Valor = arr (i)
    Em seguida
    ActiveCell.Offset (1, 0). Seleto
Submarino da extremidade
Outras soluções  
 
programming4us programming4us