Newsgroup: it.comp.lang.visual-basic
Titolo: Da excel & vb

Su dei post precedenti avevo chiesto di spiegarmi come potevo modificare un
file di excel in modo da
averlo su un file di testo con  il testo
Il mio problema che chi mi ha aiutato, l'ha scritto dentro un file di excel,
quindi ho estratto il codice da excel e qui entra in gioco la vera domanda:
"Come posso adattarlo dentro al prog di vb?"
Devo caricare un ole!?!
Grazie in anticipo
PS
Questo è il linguaggio che uso per trasformarlo
Public Sub Esporta()
On Error GoTo errore
Dim stringa As String
Dim categoria As String
Dim prezzo As String
Range("B1").Select  'seleziona la prima cella della categoria per la
partenza
Open "c:\cartel1.txt" For Output As #1
Do  'ciclo per le categorie
categoria = ActiveCell.Value
If categoria = "" Then Exit Do
ActiveCell.Offset(0, -1).Range("A1").Select 'va alla prima colonna
Do  'ciclo per i dettagli
ActiveCell.Offset(1, 0).Range("A1").Select 'seleziona la lista dei
componenti della categoria
stringa = ActiveCell.Value
If stringa = "" Then Exit Do
ActiveCell.Offset(0, 2).Range("A1").Select 'seleziona il prezzo della stessa
riga
prezzo = ActiveCell.Value
Print #1, stringa & "," & categoria & ","; £; prezzo
ActiveCell.Offset(0, -2).Range("A1").Select
Loop
ActiveCell.Offset(0, 1).Range("A1").Select
Loop
Close #1
Exit Sub
errore:
Beep
Close #1
End Sub

 "Come posso adattarlo dentro al prog di vb?"
il problema è che .... non lo so!!!   :-(   :-(
Forse è sufficiente "istanzionare" un oggetto excel ed inizializzarlo con il
foglio nel file.xls
Dopodiche potrebbe essere abbastanza precedere le istruzioni che si
riferiscono alle celle dalla variabile
oggetto creata...
Guardando indietro ho visto che, nel thread precedente, ti aveva risposto
anche Borrelli con....
IL CODICE DA USARE!!!!
Probabilmente puoi fare un mix dei due codici (il mio ed il suo) in modo da
ottenere quello che desideri.
Facci sapere..
PS
Perchè hai esposto il mio bruttissimo codice??? faccio una preghiera ai guru
della news:
 [Critico MODE OFF PLEASE!]     :-)
Ciao

Semplicemente, ipotizzando che tu abbia già aperto excel,
creati un riferimento alla Excel.app
e sposta i riferimenti agli oggetti sottostanti.
Una cosa tipo quella sotto dovrebbe già funzionarti, pur essendo molto poco
ottimizzata...
ciao
ugo
Public Sub Esporta()
On Error GoTo errore
Dim MyExcelApp As Object
Dim stringa As String
Dim categoria As String
Dim prezzo As String
Set MyExcelApp = GetObject(, "Excel.Application")
With MyExcelApp
.Range("B1").Select  'seleziona la prima cella della categoria per la
partenza
Open "c:\cartel1.txt" For Output As #1
Do  'ciclo per le categorie
categoria = .ActiveCell.Value
If categoria = "" Then Exit Do
.ActiveCell.Offset(0, -1).Range("A1").Select 'va alla prima colonna
Do  'ciclo per i dettagli
.ActiveCell.Offset(1, 0).Range("A1").Select 'seleziona la lista dei
componenti della categoria
stringa = .ActiveCell.Value
If stringa = "" Then Exit Do
.ActiveCell.Offset(0, 2).Range("A1").Select 'seleziona il prezzo della
stessa riga
prezzo = .ActiveCell.Value
Print #1, stringa & "," & categoria & ","; £; prezzo
.ActiveCell.Offset(0, -2).Range("A1").Select
Loop
.ActiveCell.Offset(0, 1).Range("A1").Select
Loop
Close #1
End With


 ottimizzata...
l'importante è che funzioni no?   : )    : )
vi prego, ABBIATE PIETA' DI UN POVERO DILETTANTE   : (   : (
(e ricordate il [Critico MODE OFF])
Ciao
PS
Wizard, MI HAI ROVINATO!!!                   ;-)

 Close #1


 (e ricordate il [Critico MODE OFF])
Su questo sě sono d'accordo.
Tutti abbiamo cominciato, tutti abbiamo "cappellato", tutti riscriveremmo di
sana pianta (e a volte lo si fa davvero) del codice vecchio solo perchč non
ci soddisfa piů semplicemente sul piano estetico...
:-)
ciao
ugo

 strutturato...
Sono d'accordo anch'io!!!!!!!!!!!!!!!!
Sono apertissimo a tutti i consigli utili che vorrai/vorrette darmi...
in una scala da 1 a 10 mi giudico un 4 e quindi  "sprofondamente"
insufficiente  :(  :(
Se avete tempo da perdere, fatemi qualche esempio.
Ciao e grazie.
Fabio
