Estrazioni in Excel Formattazione Celle

giovedì 16 dicembre 2004 - 13.06

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

LeonDom Profilo | Senior Member

471 messaggi | Data Invio: gio 16 dic 2004 - 13:06

Ciao a tutti, è parecchio che non scrivo più... (significa che qualcosa mi avete insegnato)...

Un piccolo intoppo...

estraggo dei dati da un db e li visualizzo in un foglio excel in questo modo:

Dim appNew As New Excel.Application
Dim docNew As Excel.Workbook = appNew.Workbooks.Add()
Dim sheNew As Excel.Worksheet = docNew.Sheets(1)

'Formattazione delle intestazioni delle celle
sheNew.Range("1:1").Font.Size = 10
sheNew.Range("1:1").Font.Bold = True
'Formattazione delle intestazioni di tabella
sheNew.Range("A1").Value = "NContratto"

'Altre intestazioni di celle

Dim NewRow As DataRow
For Each NewRow In ds.Tables("Results").Rows
sheNew.Range("A" & (i + 1)).Value = NewRow("tabanagrafica.n_ctr")
sheNew.Range("A" & (i + 1)).VerticalAlignment ?????? Qui ho il problema....

'popolo altre celle

i += 1
Next

Come faccio a pilotare le proprietà delle celle tipo Allineamento, Testo a Capo etc etc....

Grazie a tutti....

LeonDom

sinapse Profilo | Newbie

27 messaggi | Data Invio: gio 16 dic 2004 - 15:24

prova questo dovrebbe funzionare:

sheNew.Range("A" & (i + 1)).VerticalAlignment = Excel.XlVAlign.xlVAlignCenter

ciao
Alberto

LeonDom Profilo | Senior Member

471 messaggi | Data Invio: gio 16 dic 2004 - 15:59

Grazie Synapse,
avevo provato con Excel.xxxxxx, ma non ero riusctio a trovare nulla, evidentemente avevo cercato male....

Grazie 1000 adesso implemento le altre formattazioni che mi servivano.

LeonDom

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !