Fråga : Hur kunde de släkta programen anpassas för att vara växelverkande - fråga användaren för numrera av jämnar, och källan sparar och handtag in i Excel.

Det skulle är mycket användbart att ha programet att fråga användaren, hur många jämnar där är, och att vara kompetent att välja ett arkiv och valt spara därefter för processing.

For example,
If som spara formaterades som efter, då svaret till jämnar ifrågasätter skulle är
California
Canada
British skulle Columbia
Manitoba

and för
New York för 2.
United States vänds in i: För New York för
United States California
CanadaBritish Columbia
CanadaManitoba

If
United States spara formaterades som efter, då svaret till jämnar ifrågasätter skulle är för New York för för
Canada
British Columbia
Vancouver

United States för
Los Angeles för
California
San Francisco för
Buffalo
New York City för
New York för 3.
United States för New York för Buffalo
United States för New York City
CanadaBritish ColumbiaVancouver för California Los Angeles för
United States för California San Francisco
United States Related lösningar för class= ": How skulle mig redigerar kodifiera för extra jämnar från: Hur kan jag förbereda, text sparar för import in i…

Svar : Hur kunde de släkta programen anpassas för att vara växelverkande - fråga användaren för numrera av jämnar, och källan sparar och handtag in i Excel.

när draget in i överträffar, du önskar det splittring in i celler eller har flikarna i en cell?

Jag har ändrat exx1976 kodifierar för att användas som 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:

UnderImport1 ()

    Dunkel rngStart som spänner
    Fastställd oFS = CreateObject (”Scripting.FileSystemObject”)
    FOpen = Application.GetOpenFilename (”text sparar (*.txt), *.txt”),
    Fastställdt oFile = oFS.OpenTextFile (FOpen, 1)
    'Fastställdt outfile = oFS.CreateTextFile (”c:\SaveDataFile.txt”)
    Fastställd rngStart = ActiveCell
    'räddning de kluvna datan på currectaktivcellen.
    Dunkel myArr ()
    ReDim myArr (0)
    Dunkel tempArr ()
    Gör stunder inte oFile.AtEndOfStream
        sData = oFile.Readline
        Om InStr (sData, vbTab) därefter
            strarr = splittring (sData, vbTab)
            Om UBound (strarr) <> UBound (myArr) därefter
                ReDim syltmyArr (UBound (strarr))
                myArr (UBound (strarr)) = strarr (UBound (strarr))
            Avsluta om
        Annars
            Om UBound (myArr) > 0 därefter SaveData myArr
            ReDim myArr (0)
            myArr (0) = sData
        Avsluta om
    Kretsa
    SaveData myArr
    oFile.Close
    rngStart.Select-  'flyttningbaksida till början
    

Avsluta suben

Sub SaveData (arr som Variant)

    För I = 0 till UBound (arr)
        ActiveCell.Offset (0, I). Värdera = arr (I)
    Därefter
    ActiveCell.Offset (1, 0). Valt
Avsluta suben
Andra lösningar  
 
programming4us programming4us