Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19626

VB6 Excel .NumberFormat

Show all headers | View raw

Ciao a tutti

Ho dei codici come questi 0123ABCD e 01234567.
Se vado ad inserire il primo in un colonna excel, tutto bene.
Il secondo invece diventa subito 1234567 in quanto scompare lo 0 iniziale.

Bisogna dirgli che è un campo testo per poter conservare lo 0.
Una soluzione che avevo trovato era quella di anteporre
un apice:
.cells(r, c) = "'"  & Campo
Se è un xls di stampa o vsualizzazione può anche andare.
Ma se serve come strumento per trasferire dei dati da
un database ad un altro database diverso è brutto.
Costringe chi deve popolare il secondo database a
trattare i campi  per togliere l'apice.

Allora ho provato ad utilizzare la seguente sub:

Public Sub MettiPrimaColonnaTesto(Colonna As Long, _
    Optional RigaIn As Long = 1, _
    Optional RigaFin As Long = 5000)
Dim r As Long
With MyXL.Workbooks(1).Worksheets(1)
    For r = RigaIn To RigaFin
        .cells(r, Colonna).NumberFormat = "@"
    Next r
End With
End Sub

Funziona ma ci mette un sacco di tempo e poi
occorre sapere prima quanti record potrebbero
esserci come massimo.

Siccome conosco il tipo di campo che devo mettere
nelle singole celle ho deciso di faree così per ogni campo:

If TipoCampo = "Text" then
    .cells(r, c).NumberFormat = "@"
End If
.cells(r, c) = Campo(r)

Se pensate che ci sia qualcosa di meglio...

Grazie e saluti
Sauro 

Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar

Thread

VB6  Excel   .NumberFormat "Sauro" <vicchi@crsscala.it> - 2019-05-01 15:57 +0200
  Re: VB6  Excel   .NumberFormat "Freccia (VegetaSSj)" <NIENTESPAMfreccia_vegetassj@hotmail.invalid> - 2019-05-02 19:48 +0200
    Re: VB6  Excel   .NumberFormat "Sauro" <vicchi@crsscala.it> - 2019-05-05 19:33 +0200

csiph-web