Frage : Wie die in Verbindung stehenden Programme angepasst werden konnten, um wechselwirkend zu sein - Bitten des Benutzers um die Zahl Niveaus und die Quellakte und -zug in Excel.

Es sein sehr nützlich, das Programm fragen zu lassen den Benutzer, wieviele Niveaus dort und in der Lage zu sein, ein Verzeichnis und dann eine auserwählte Akte für processing.

zum Beispiel zu wählen sind,
If, welches die Akte als das folgende formatiert, dann sein die Antwort zur Niveaufrage 2.
Vereinigte Staaten
New York
California
Canada
British Columbia
Manitoba

and geverwandelt in:
Vereinigte Staaten New York
Vereinigte Staaten California
CanadaBritish Columbia
CanadaManitoba

If die Akte formatiert als das folgende, dann sein die Antwort zur Niveaufrage 3.
Vereinigte Staaten
New York
Buffalo
New York City
California
San Francisco
Los Angeles
Canada
British Columbia
Vancouver

Vereinigte Staaten New York Buffalo
Vereinigte Staaten New York New York City
Vereinigte Staaten California San Francisco
Vereinigte Staaten California Los Angeles
CanadaBritish ColumbiaVancouver
Related Lösungen: von How redigieren ich den Code für zusätzliche Niveaus von: Wie ich kann, prep Textdateien für Import in…

Antwort : Wie die in Verbindung stehenden Programme angepasst werden konnten, um wechselwirkend zu sein - Bitten des Benutzers um die Zahl Niveaus und die Quellakte und -zug in Excel.

wann gezogen in, übertreffen Sie wünschen es aufspalten in Zellen oder haben die Vorsprünge in einer Zelle?

Ich geändert den als Excel VBA verwendet zu werden Code exx1976.


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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

VorImport1 ()

    Schwaches rngStart als Strecke
    oFS = CreateObject („Scripting.FileSystemObject“) einstellen
    FOpen = Application.GetOpenFilename („Textdateien (*.txt), *.txt“)
    Gesetztes oFile = oFS.OpenTextFile (FOpen, 1)
    'Outfile einstellen = oFS.CreateTextFile („c:\SaveDataFile.txt ")
    rngStart = ActiveCell einstellen
    'außer den Spaltedaten an der currect aktiven Zelle.
    Schwaches myArr ()
    ReDim myArr (0)
    Schwaches tempArr ()
    Tun während nicht oFile.AtEndOfStream
        sData = oFile.Readline
        Wenn InStr (sData, vbTab) dann
            strarr = aufspaltete (sData, vbTab)
            Wenn UBound (strarr) <> UBound (myArr) dann
                ReDim Konserve myArr (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Beenden wenn
        Sonst
            Wenn UBound (myArr) > 0 dann SaveData myArr
            ReDim myArr (0)
            myArr (0) = sData
        Beenden wenn
    Schleife
    SaveData myArr
    oFile.Close
    rngStart.Select  'Bewegung zurück zu Anfang
    

Enden-Unterseeboot

VorSaveData (arr als Variante)

    Für i = 0 zu UBound (arr)
        ActiveCell.Offset (0, i). Wert = arr (i)
    Zunächst
    ActiveCell.Offset (1, 0). Auserwählt
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us