Cuestión : Cómo se podrían los programas relacionados adaptar para ser interactivos - el pedir el usuario el número de niveles y el archivo y el tirón de fuente en Excel.

Sería muy útil hacer que el programa pregunte a usuario son cuántos niveles allí y poder elegir un directorio y entonces un archivo selecto para processing.

por ejemplo,
If que el archivo fue dado formato como el siguiente, después la respuesta a la pregunta de los niveles sería el
California
Canada
British Columbia
Manitoba

and del
Nueva York de 2.
Estados Unidos sería dada vuelta en: El California
CanadaBritish Columbia
CanadaManitoba

If del
Estados Unidos de Nueva York del del
Estados Unidos el archivo fue dado formato como el siguiente, después la respuesta a la pregunta de los niveles sería el
CanadaBritish ColumbiaVancouver del California Los Ángeles del
Estados Unidos del California San Francisco del
Estados Unidos de New York City del de Nueva York del del Buffalo
Estados Unidos de Nueva York del del
Canada
British Columbia
Vancouver

Estados Unidos del
Los Ángeles del
California
San Francisco del
Buffalo
New York City del
Nueva York de 3.
Estados Unidos class= > " claro " del
soluciones >Related class= href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26290349.html " title= del " del How " qRelatedParent " corregiría el código para los niveles adicionales de: Cómo puedo preparar los archivos de texto para la importación en…

Respuesta : Cómo se podrían los programas relacionados adaptar para ser interactivos - el pedir el usuario el número de niveles y el archivo y el tirón de fuente en Excel.

¿cuándo tirado en sobresale, usted lo quiere parte en las células o tiene las lengüetas en una célula?

He modificado el código exx1976 que se utilizará 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 secundarios ()

    rngStart dévil como gama
    Fijar el oFS = CreateObject (“Scripting.FileSystemObject”)
    FOpen = Application.GetOpenFilename (“archivos de texto (*.txt), *.txt”)
    oFile determinado = oFS.OpenTextFile (FOpen, 1)
    'Fijar outfile = oFS.CreateTextFile (“c:\SaveDataFile.txt ")
    Fijar el rngStart = ActiveCell
    'excepto los datos de la fractura en la célula activa del currect.
    myArr dévil ()
    myArr de ReDim (0)
    tempArr dévil ()
    Hacer mientras que no oFile.AtEndOfStream
        sData = oFile.Readline
        Si InStr (sData, vbTab) entonces
            el strarr = partió (sData, el vbTab)
            Si UBound (strarr) <> UBound (myArr) entonces
                myArr del coto de ReDim (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Terminar si
        
            Si UBound (myArr) > 0 entonces myArr de SaveData
            myArr de ReDim (0)
            myArr (0) = sData
        Terminar si
    Lazo
    myArr de SaveData
    oFile.Close
    movimiento  de rngStart.Select 'de nuevo al principio
    

Submarino del extremo

SaveData secundario (arr como variante)

    Para i = 0 a UBound (arr)
        ActiveCell.Offset (0, i). Valor = arr (i)
    Después
    ActiveCell.Offset (1, 0). Selecto
Submarino del extremo
Otras soluciones  
 
programming4us programming4us