VB6 - Istruzione Write # ed Excel.

[LMondi]

Pe salvare i dati su HD uso i file sequenziali con l'istruzione Write# e Filter con l'estenzione .csv - per intenderci:

...
.Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.Txt)|"
        .FilterIndex = 1
        .DefaultExt = "csv"
...
...
Open FileName For Output As #FileNum
        Write #FileNum, strCL1, dblCL2, dblCL3,..., ...
    Close #FileNum

Il codice funziona bene sia per salvare che per aprire; il punto è che se apro il predetto file con Excel le informazioni sono contenute tutte nella prima cella e non ciascun dato in una cella.
C'é un modo per salvare i dati e far sì che poi siano leggibili correttamente anche in Excel ?
Grazie per l'aiuto.

[tas]

Purtroppo non basta specificare l'estensione del file! Premesso che non esistono regole rigide su questo formato, in internet ho trovato questa definizione:

• Un record per ogni riga: come separatore di riga si può usare LF (ASCII 10) o CRLF (ASCII 13+10)
• I campi devono essere separati da virgole (o da ; come fa excel)
• Gli spazi sono ignorati (a meno che non siano delimitati da doppie virgolette)
• Carattere apostrofo ('): bisogna delimitare il campo con le doppie virgolette
• Carattere doppie virgolette ("): deve essere raddoppiato

Evidentemente non hai scritto il file nel modo giusto, un CSV prodotto da Excel di solito è così:

aaa;bbb;ccc;ddd
qqq;www;eee;rrr
aaa;sss;ddd;fff
...

Modifica il tuo codice opportunamente inserendo, tra un campo e l'altro, un carattere virgola o punto e virgola. Non dimenticare di andare a capo tra un record e l'altro (carattere vbCrLf).

Ciao

[LMondi]

tas Grazie della risposta.
La situazione é questa, se apro il file di Excel i dati si presentano così, tutti nella stessa cella:

- Costi d'impianto e d'ampliamento,10000,10000,..., ...

Ora, come hai letto nella richiesta, salvo i dati con questa istruzione:

Open FileName For Output As #FileNum
Write #FileNum, strCL1, dblCL2, dblCL3,..., ...
Close #FileNum

ove le variabili strCL1, dblCL2,contengono i dati da salvare. Come posso scrivere l'istruzione perché avvenga quello che dici?

[tas]

Facendo una rapida indagine ho come l'impressione che Excel utilizzi come carattere di separazione campi quello specificato nelle "Opzioni internazionali e della lingua" del Pannello di controllo di Windows. Normalmente il Windows italiano ha queste impostazioni:
Separatore decimale: ,
Simbolo raggruppamento cifre: .
Separatore di elenco: ;
Per aggirare il problema fai così:

    Open FileName For Output As #FileNum
    Print #FileNum, strCL1 & ";" & dblCL2 & ";" & dblCL3
    Close #FileNum

Ciao

[LMondi]

tas se molto cortese.
Prima ho provato a separare con il ; ma senza risultato. Ora provo come mi hai indicato.
Grazie.

[LMondi]

No, non funziona. I dati sono contenuti tutti in una cella.

[LMondi]

tas, questa é bella. Con il comando Write #FileNum, NON funziona. Con l'istruzione Print sì. Come Mai ?

[tas]

L'istruzione Write inserisce automaticamente il carattere di separazione campi (la virgola) mentre Print stampa la stringa così com'è. Non fare confusione tra la virgola richiesta dall'istruzione Write e quella scritta effettivamente nel file di testo: nella sintassi di VB per separare dei parametri in una funzione o metodo è sempre necessario usare la virgola, non esistono eccezioni.