Newsgroup: it.comp.lang.visual-basic
Titolo: [Newbie] AIUTO -  come genero una macro che.........

Buongiorno a tutti,
Premetto che sono assolutamente privo di conoscenze in merito a 
programmazione VB, macro o simili, ma avrei bisogno di incasellare in un 
foglio excel dei dati che mi vengono inviati in formato *.csv in cui ciascun 
dato viene scritto nella riga A1,A2,A3,ecc..... in sequenza continua, 
separato solo da una virgola tra un dato sensibile e l'altro.
Per meglio spiegarmi, vi riporto il contenuto della cella A1:
      Account,OrderID,Instrument,Side,FillQuantity,FillID,Price,UserName,FillType,DateFilled,TimeFilled
a questa, che rappresenta l'intestazione dei dati sensibili, vanno aggiunti 
i dati incolonnatoi, riportati sotto, anch'essi in riga e separati da 
virgola
Cella A2:
      21722509,"163836","XEurex\FDAX\SEP07","Buy","1","XEurex   019458 
774166829 
20070719000000476","8020.5","21722509","Normal","2007-07-19","09:29:51.0000000+02:00"
Cella A3:
      21722509,"163837","XEurex\FDAX\SEP07","Sell","1","XEurex    019675 
774258667 
20070719000000492","8025.5","21722509","Normal","2007-07-19","09:30:07.0000000+02:00"
Ora, io avrei bisogno di separare ciascun dato sensibile ed inserire 
ciascuno di essi in una cella differente al fine di ritrovarmi tutti i dati 
incasellati e ordinati nelle rispettive colonne e righe, come riportato 
sotto
      Account OrderID Instrument Side FillQuantity FillID Price UserName 
FillType DateFilled TimeFilled
      21722509 163836 XEurex\FDAX\SEP07 Buy 1 ecc.
      21722509 163837 XEurex\FDAX\SEP07 Sell 1 ecc...
Questo processo, che dovrebbe ripetersi tante volte consecutivamente, quante 
sono le righe necessarie per esaurire il database (N volte per ogni foglio, 
per N righe in cui sono presenti i dati), so che può essere automatizzato 
con una MACRO, ma dopo aver letto in rete alcune istruzioni e provato a 
"smastricciare" qualcosa, ma con risultati pessimi, ho deciso di chiedere 
umilmente aiuto a voi, ringraziandovi infinitamente per l'aiuto che in caso 
mi saprete fornire.
Come posso impostare la macro per fare ciò ?????
(P.S. Per favore spiegatemi passo passo in quanto sono veramente a zero in 
quanto nozioni di VB)
GRAZIE !!!! 

Scusate, correggo per rendere l'idea dell'incasellamento di cui necessito
     Account     OrderID            Instrument              Side 
FillQuantity   FillID   Price   UserName   ........
     21722509  163836     XEurex\FDAX\SEP07   Buy          1 
ecc...   .....      .......
     21722509  163837     XEurex\FDAX\SEP07   Sell          1 
ecc...   .....       ......
 GRAZIE !!!!

 Come posso impostare la macro per fare ciò ?????
Io ho incollato le prime due tue righe (intestazione e dati), ho avviato il
registratore di macro e ho fatto la procedura a mano DATI / TESTO IN
COLONNE (ecc.)
Questo è il codice che ha tirato fuori. Comunque il Registratore di macro è
ottimo per fare qualcosa e vedere qual è il codice correlato:
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False,
FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)),
_
        TrailingMinusNumbers:=True
(te la incollo come citata per i ritorni a capo)
|     Columns("A:A").Select
|     Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
|         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
|         Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
|         :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
|         Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
|         TrailingMinusNumbers:=True
Ciao

Grazie infinite...............
Non conoscevo affato questa funzione
GRAZIE ANCORA!!!!!!!!!!!!!
Perfetto
"Andrea [Work]" <nos...@invalid.invalid> ha scritto nel messaggio 
news:huf5mi5fjgkn$.1qp9uecmxzlup.dlg@40tude.net...
