Vraag : Hoe de verwante programma's kon interactief worden aangepast om te zijn - vragend de gebruiker om het aantal niveaus en het brondossier en trekkracht in Excel.

Het zou zeer nuttig zijn om het programma te hebben de gebruiker vragen hoeveel niveaus er en zijn een folder en toen een uitgezocht dossier voor processing.

kunnen bijvoorbeeld kiezen,
If het dossier geformatteerd was aangezien het volgende, dan het antwoord op de niveaus vraagt zou zijn 2.
Verenigde Staten
New York
California
Canada
British Columbia
Manitoba

and worden omgezet in:
Verenigde Staten New York
Verenigde Staten California
CanadaBritish Columbia
CanadaManitoba

If het dossier geformatteerd was aangezien het volgende, dan het antwoord op de niveaus zou zijn 3.
Verenigde Staten
New York
Buffalo
New York City
California
San Francisco
Los Angeles
Canada
British Columbia
Vancouver

Verenigde Staten New York Buffalo
Verenigde Staten New York New York City
Verenigde Staten California San Francisco
Verenigde Staten California Los Angeles
CanadaBritish ColumbiaVancouver vraagt
Related Oplossingen: How zou ik de code voor extra niveaus van uitgeven: Hoe ik prep tekstdossiers voor de invoer in… kan

Antwoord : Hoe de verwante programma's kon interactief worden aangepast om te zijn - vragend de gebruiker om het aantal niveaus en het brondossier en trekkracht in Excel.

wanneer getrokken in uitblinkt, wilt u het verdeelt in Cellen of hebt de lusjes in één cel?

Ik heb code exx1976 die als Excel VBA moet worden gebruikt gewijzigd.


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 ()

    Schemerige rngStart als Waaier
    Reeks oFS = CreateObject („Scripting.FileSystemObject“)
    FOpen = Application.GetOpenFilename (de „Dossiers van de Tekst (*.txt), *.txt“)
    Vastgestelde oFile = oFS.OpenTextFile (FOpen, 1)
    'Plaats outfile = oFS.CreateTextFile („c:\SaveDataFile.txt“)
    Plaats rngStart = ActiveCell
    'sparen de gespleten gegevens bij de currect actieve cel.
    Schemerige myArr ()
    ReDim myArr (0)
    Schemerige tempArr ()
    Doe terwijl niet oFile.AtEndOfStream
        sData = oFile.Readline
        Als InStr (sData, vbTab) Dan
            strarr = verdeel (sData, vbTab)
            Als UBound (strarr) <> UBound (myArr) Dan
                Het Domein van ReDim myArr (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Eind als
        Anders
            Als UBound (myArr) > 0 toen SaveData myArr
            ReDim myArr (0)
            myArr (0) = sData
        Eind als
    Lijn
    SaveData myArr
    oFile.Close
    rngStart.Select  'beweging terug naar begin
    

Sub van het eind

Sub SaveData (arr als Variant)

    Voor I = 0 aan UBound (arr)
        ActiveCell.Offset (0, I). Waarde = arr (I)
    Daarna
    ActiveCell.Offset (1, 0). Selecteer
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us