Il linguaggio Visual Basic di Microsoft
 

Dati in excel

Marco75 24 Giu 2016 11:09
Ciao a tutti,
sto sviluppando un'app in Visual Stu***** 2010 che deve leggere i dati in arrivo
da una bilancia e poi deve metterli in Excel.

I dati dalla bilancia li leggo e li metto in una TxtBox multiline
Il ******* di Excel lo creo ed inserisco i dati letti

Devo però sistemare 2 cose:
Nella TxtBox, i dati da bilancia arrivano con l'aggiunta della lettera g
(grammi)

8,93 g
7,58 g
...
...

vorrei togliere la g, il codice di popolamento TxtBox è questo:

Private Sub UpDateText(ByVal [Text] As String)

If Me.RicDati.InvokeRequired Then
Dim Cmp As New SetTextCallback(AddressOf UpDateText)
Me.Invoke(Cmp, New Object() {(Text)})
Else
Me.RicDati.Text &= [Text]

Me.Conteggio.Text = Me.RicDati.Lines.Count - 1

End If

End Sub

volevo sostituire Me.RicDati.Text &= [Text]con qualcosa tipo questo ma non
funziona:
'Me.RicDati.Text &= Microsoft.VisualBasic.Right([Text], 1)

la 2° domanda è questa:
in Excel mi mette tutti i dati nella cella A1 mentre dovrebbe mettere il 1°
nella A1, il 2° nella A2 ecc...

Questo il codice che gestisce Excel:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim Xl As New Excel.Application
Dim xlBook As Excel.Workbook

xlBook = Xl.Workbooks.Add
xlBook.Worksheets(1).activate()

xlBook.Worksheets(1).cells(1, 1) = Me.RicDati.Text.ToString
Xl.Visible = True

End Sub

mi potete dare una mano?
grazie
Marco
Antologiko 25 Giu 2016 06:10
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
Antologiko 25 Giu 2016 06:15
Errata
> For Each Misura As String in DatiBilancia
> xlBook.Worksheets(1).cells(1, Misura) = Me.DatiBilancia(Misura)
> Next


Corrige
For i As Long = 0 To DatiBilancia.Count - 1
xlBook.Worksheets(1).cells(1, i) = Me.DatiBilancia(i)
Next

Links
Giochi online
Dizionario sinonimi
Leggi e codici
Ricette
Testi
Webmatica
Hosting gratis
   
 

Il linguaggio Visual Basic di Microsoft | Tutti i gruppi | it.comp.lang.visual-basic | Notizie e discussioni visual basic | Visual basic Mobile | Servizio di consultazione news.