excel-import file txt

[prog_jlaw]

ciao a tutti
ho importato un file di testo ed il risultato e' questo
"1" "2" "3" "4"
"5" "6" "7" "8"
"0" "0" "0" "0"
in ogni cella il numero ha "" e vorrei non averlo per ovvi mitivi che non riesco a gestire il valore. come fare?

piccolo approfondimento di quello che faccio:
importo il file txt in un foglio con il metodo:
With ActiveSheet.QueryTables.Add(Connection:="Text;C:\....\xxx.txt", _
Destination:=Range("A1")).....
dopo con il metodo copia ed incolla copio le celle che mi interessano e le incollo in un altro foglio che uso come database .

durante il primo passaggio subito dopo l'import mi sarebbe piaciuto 'ripulire' i valori da "" ma non so come!

chiunque mi aiuti GRAAAAZIE
NB e' 1/2 settimane che mi sono avvicinato al VBA di excel quindi nell'eventuale aiuto non date per scontato niente sulla mia conoscenza!

ciao a tutti

[Erick]

Il file è del tipo txt? Sono già ordinati in colonne come dovrebbe essere il risultato finale? Se si basta che apri direttamente il file con excel e dopo qualche passaggio guidato dovresti avere ciò che vuoi.

[prog_jlaw]

forse mi sono spiegato male ....
il file e' formatto cosi:
"valore","valore","valore",.........
dopo aver importato il file con il metodo sopra descritto ottengo
in ogni cella:
"valore"
io volevo 'ripulire' il valore dagli apici ottenendo in ogni cella solo il valore
altrimento non riesco a gestire le operazioni sucessive.

spero di essere stato chiaro.
nb:il tutto da VB ..non voglio fare nessuna opeazione 'manuale'
<<<basta che apri direttamente il file con excel e dopo qualche passaggio guidato >>>>

ciao e grazie

[prog_jlaw]

ho trovato !!!
n tutte le celle comprese tra A1:W100 se ci sono degli apici li sostituisco con uno spazio qundi nulla!

a chi interessase questo e' il codice:

ActiveSheet.Range("A1:W100").Replace What:="""", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="""", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate


bye