Questione : Come potrebbero i programmi relativi adattarsi per essere interattivi - chiedere all'utente il numero dei livelli e l'archivio sorgente ed il tiro in Excel.

Sarebbe molto utile fare chiedere il programma all'utente quanto livelli là sono e potere scegliere un indice ed allora una lima prescelta per processing.

per esempio,
If che la lima è stata formattata come quanto segue, quindi la risposta alla domanda dei livelli sarebbe
California
Canada
British Columbia
Manitoba

and del
New York di 2.
Stati Uniti si trasformerebbe in: Il California
CanadaBritish Columbia
CanadaManitoba

If del
Stati Uniti di New York del del
Stati Uniti la lima è stato formattato come quanto segue, quindi la risposta alla domanda dei livelli sarebbe
CanadaBritish ColumbiaVancouver del California Los Angeles del
Stati Uniti del California San Francisco del
Stati Uniti di New York City del di New York del del Buffalo
Stati Uniti di New York del del
Canada
British Columbia
Vancouver

Stati Uniti del
Los Angeles del
California
San Francisco del
Buffalo
New York City del
New York di 3.
Stati Uniti class= > " libero " del
soluzioni >Related class= href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26290349.html " title= " di How " qRelatedParent " pubblicherei il codice per i livelli supplementari da: Come posso preparare le lime di testo per l'importazione… in

Risposta : Come potrebbero i programmi relativi adattarsi per essere interattivi - chiedere all'utente il numero dei livelli e l'archivio sorgente ed il tiro in Excel.

quando tirato in eccellete, lo volete tagliate in cellule o avete le linguette in una cellula?

Ho modificato il codice exx1976 da usare come 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 secondari ()

    rngStart fioco come gamma
    Regolare il oFS = CreateObject (“Scripting.FileSystemObject„)
    FOpen = Application.GetOpenFilename (“lime di testo (*.txt), *.txt„)
    oFile stabilito = oFS.OpenTextFile (FOpen, 1)
    'Regolar outfile = oFS.CreateTextFile (“c:\SaveDataFile.txt ")
    Regolare il rngStart = ActiveCell
    'salvo i dati di spaccatura alla cellula attiva del currect.
    myArr fioco ()
    myArr di ReDim (0)
    tempArr fioco ()
    Fare mentre non oFile.AtEndOfStream
        sData = oFile.Readline
        Se InStr (sData, vbTab) allora
            lo strarr = ha spaccato (sData, vbTab)
            Se UBound (strarr) <> UBound (myArr) allora
                myArr della conserva di ReDim (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Concluder se
        Altrimenti
            Se UBound (myArr) > 0 allora myArr di SaveData
            myArr di ReDim (0)
            myArr (0) = sData
        Concluder se
    Ciclo
    myArr di SaveData
    oFile.Close
    movimento  di rngStart.Select 'di nuovo ad inizio
    

Sommergibile dell'estremità

SaveData secondario (arr come variante)

    Per i = 0 a UBound (arr)
        ActiveCell.Offset (0, i). Valore = arr (i)
    Dopo
    ActiveCell.Offset (1, 0). Prescelto
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us