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

Re: Dati in excel

Newsgroups	it.comp.lang.visual-basic
Date	2016-06-24 21:10 -0700
References	<709da859-b30c-42f0-8fa1-7f3fde6da939@googlegroups.com>
Message-ID	<c188358a-ed1e-43a6-8068-6cdb7d12bcfa@googlegroups.com> (permalink)
Subject	Re: Dati in excel
From	Antologiko <antologiko@gmail.com>

Show all headers | View raw

Prova così:
crei un array a livello di Form
Private DatiBilancia As System.Collections.Generic.List(Of String)

All'interno della sub UpDateText
inserisci dopo la riga
Me.Conteggio.Text = Me.RicDati.Lines.Count - 1
la seguente riga
Me.DatiBilancia.Add(Val([Text]).ToString)

mentre in Button1_Click
al posto della riga
xlBook.Worksheets(1).cells(1, 1) = Me.RicDati.Text.ToString
inserisci il seguente codice
For Each Misura As String in DatiBilancia
     xlBook.Worksheets(1).cells(1, Misura) = Me.DatiBilancia(Misura)
Next

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

Thread

Dati in excel Marco75 <marcoporzi75@gmail.com> - 2016-06-24 02:09 -0700
  Re: Dati in excel Antologiko <antologiko@gmail.com> - 2016-06-24 21:10 -0700
    Re: Dati in excel Antologiko <antologiko@gmail.com> - 2016-06-24 21:15 -0700

csiph-web