Question : Comment pourraient les programmes relatifs être adaptés pour être interactifs - demande de l'utilisateur le nombre de niveaux et le fichier source et la traction dans Excel.

Il serait très utile de faire demander le programme à l'utilisateur combien de niveaux là sont et pour pouvoir choisir un annuaire et puis un dossier choisi pour processing.

par exemple, le
If que le dossier a été composé en tant que suivant, puis la réponse à la question de niveaux serait le
California
Canada
British Columbia
Manitoba

and du
New York de 2.
Etats-Unis serait tournée dans : Le California
CanadaBritish Columbia
CanadaManitoba

If du
Etats-Unis de New York de du
Etats-Unis le dossier a été composé en tant que suivant, puis la réponse à la question de niveaux serait le
CanadaBritish ColumbiaVancouver du California Los Angeles du
Etats-Unis du California San Francisco du
Etats-Unis de New York City de de New York de du Buffalo
Etats-Unis de New York de du
Canada
British Columbia
Vancouver

Etats-Unis du
Los Angeles du
California
San Francisco du
Buffalo
New York City du
New York de 3.
Etats-Unis class= > " clair " de
solutions >Related class= href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26290349.html " title= de " de How " qRelatedParent " j'éditerais le code pour les niveaux additionnels de : Comment ose je préparer les dossiers des textes pour l'importation dans…

Réponse : Comment pourraient les programmes relatifs être adaptés pour être interactifs - demande de l'utilisateur le nombre de niveaux et le fichier source et la traction dans Excel.

quand est-ce que tiré dans excelez-vous, vous le voulez-vous coupez en cellules ou avez les étiquettes en une cellule ?

J'ai modifié le code exx1976 à employer comme 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 secondaires ()

    Faible rngStart comme gamme
    Placer l'oFS = le CreateObject (« Scripting.FileSystemObject »)
    FOpen = Application.GetOpenFilename (« dossiers des textes (*.txt), *.txt »)
    oFile réglé = oFS.OpenTextFile (FOpen, 1)
    'Placer outfile = oFS.CreateTextFile (« c:\SaveDataFile.txt ")
    Placer le rngStart = l'ActiveCell
    'sauf les données de fente à la cellule active de currect.
    Faible myArr ()
    myArr de ReDim (0)
    Faible tempArr ()
    Faire tandis que pas oFile.AtEndOfStream
        sData = oFile.Readline
        S'InStr (sData, vbTab) puis
            le strarr = s'est dédoublé (sData, vbTab)
            Si UBound (strarr) <> UBound (myArr) puis
                myArr de conserve de ReDim (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Finir si
        Autrement
            Si UBound (myArr) > 0 puis myArr de SaveData
            myArr de ReDim (0)
            myArr (0) = sData
        Finir si
    Boucle
    myArr de SaveData
    oFile.Close
    mouvement  de rngStart.Select 'de nouveau au commencement
    

Sous-marin d'extrémité

SaveData secondaire (arr comme variante)

    Pour I = 0 à UBound (arr)
        ActiveCell.Offset (0, i). Valeur = arr (i)
    Après
    ActiveCell.Offset (1, 0). Choisi
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us