[VB.NET] Scrittura celle consecutive di un foglio Excel con valori presi da TextBox

[silar]

salve è da poco che uso visual basic per la precisione 2010 express
sto creando un piccolo programmino per inserire i dati in un foglio excel tramite 4 texbox che partono dalla riga 6 delle colonne a,c,e,g e fino a qui tutto ok ! l'unica cosa che non ho capito come fare è passare alla riga successiva, cioè al prossimo click andare alla 7 a,c,e,g , ho visto diversi esempi ma sono incasinatissimi e poco chiari qualcuno ha un esempio su come dare questa istruzione
io praticamente ho dato questa istruzione
f as worksheet
f.cells(6,1)=textbox.text
qualcuno può darmi qualche consiglio o un espio chiaro
grazie

[minomic]

Ciao,
ma le stringhe le inserisci tramite un click su un bottone?
Se così fosse potresti tenerti una variabile globale i che rappresenta il numero di riga e quando l'utente preme il bottone fai inserire quello che c'è nelle textbox alla riga i e poi incrementi i di uno. In questo modo all'inserimento successivo i dati verranno inseriti nella riga successiva.

[alka]

Originariamente inviato da silar
textbox

Il titolo della discussione è striminzito e poco significativo; inoltre manca il linguaggio.

Leggi il Regolamento per conoscere le norme da seguire nella partecipazione a quest'area del forum.

Qui ho provveduto io a correggere nel modo opportuno per dare un esempio.
In futuro pensaci tu.

Ciao!

[silar]

chiedo scusa per il post senza aver letto il regolamento! premetto sono un neofita di visual basic per la precisione sto usando il 2008 express . ecco il codice , il mio fine è di inserire dati in un foglio di excel che ho il pc , tramite 4 textbox partendo dalle righe 6 delle colonne A,C,E,G con il click successivo del button alla riga 7 ecc... solo che non so come far andare alla riga vuota successiva , volevo usare un datagridview ma anche ho letto che c'è da utilizzare un dataset e prima di studiarmi questa cosa volevo provare con le textbox!
grazie a tutti!!!

Imports Microsoft.Office.Interop.Excel
Public Class Form3
Dim programma As Application
Dim cartella As Workbook
Dim foglio As Worksheet
Public ri As Integer

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
programma = CreateObject("excel.application")
programma.Visible = True
cartella = programma.Workbooks.Open("c:\prova1.xlsx")

foglio = cartella.ActiveSheet
foglio.Name = "distinta pesi"
foglio.Cells(6, 1) = TextBox1.Text
foglio.Cells(6, 3) = TextBox2.Text
foglio.Cells(6, 5) = TextBox3.Tex
foglio.Cells(6, 7) = TextBox4.Tex

[minomic]

Ciao,
ma hai provato a fare come ti dicevo io? Cioè a tenerti una variabile che indica la riga e poi a incrementarla quando hai finito di scrivere in quella riga?

[silar]

cioè? sono un neofita e non riesco ancora a capire cosa si intende per variabile ciclo! nel senso tipo foglio.Cells & +1 qualcosa del genere?

[minomic]

Pensavo più a una cosa del genere:

Imports Microsoft.Office.Interop.Excel
Public Class Form3
Dim programma As Application
Dim cartella As Workbook
Dim foglio As Worksheet
Public ri As Integer
public riga as integer = 6

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

programma = CreateObject("excel.application")
programma.Visible = True
cartella = programma.Workbooks.Open("c:\prova1.xlsx")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

foglio = cartella.ActiveSheet
foglio.Name = "distinta pesi"
foglio.Cells(riga, 1) = TextBox1.Text
foglio.Cells(riga, 3) = TextBox2.Text
foglio.Cells(riga, 5) = TextBox3.Text
foglio.Cells(riga, 7) = TextBox4.Text
riga += 1

Forse c'è qualche errore nel codice perchè l'ho scritto al volo ma l'idea dovrebbe essere quella

[silar]

ok ti ringrazio tantissimo adesso provo e vedo se funziona , faccio un mezzo busto in bronzo nel mio cortile che ti raffigura

[minomic]

ok
Poi facci sapere come è andata!

[silar]

perfetto funziona alla grande!!

ora devo studiarmi come salvare il file in un determinato percorso (cartella del pc)
e poi come stamparlo!