Variable de VStudio en vb a Excel
Publicado por Augusto (1 intervención) el 02/08/2019 02:26:07
Buenas,
Realice un formulario en excel(vb) el cual contenia 3 textbox y un Boton, El boton tenia la accion de revisar si estaba la fila 2 "VACIA" y Sino fijarse la proxima fila hasta encontrar una y ahi poner la informacion de los Textbox.
Para esto cree en Visual Basic de excel.
Ahora quiero hacerlo en visual studio y no puedo!
Copio lo que arme, puedo hacer que desde el formulario me grabe los datos en excel, pero no puedo generar que si detecta que la fila esta ocupada pase a la siguiente
Saludos.
Realice un formulario en excel(vb) el cual contenia 3 textbox y un Boton, El boton tenia la accion de revisar si estaba la fila 2 "VACIA" y Sino fijarse la proxima fila hasta encontrar una y ahi poner la informacion de los Textbox.
Para esto cree en Visual Basic de excel.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim fila As Integer
For fila = 2 to 1000If Hoja1.Cells(fila, 1 ) = "" Then
Hoja1.Cells(fila, 1) = Textbox1.text
Hoja1.Cells(fila, 2) = Textbox2.text
Hoja1.Cells(fila, 3) = Textbox3.text
Exit sub
end If
Next
Ahora quiero hacerlo en visual studio y no puedo!
Copio lo que arme, puedo hacer que desde el formulario me grabe los datos en excel, pero no puedo generar que si detecta que la fila esta ocupada pase a la siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Excelapp = New Microsoft.Office.Interop.Excel.Application
Dim Libro = Excelapp.Workbooks.Open("C:\Users\augus\Desktop\aviave.xlsx")
Dim fila As Integer
For fila = 2 To 1000If Libro.Sheets(1).Cells(fila, 1) = "" Then
Libro.Sheets(1).Cells(fila, 1) = TextBox1.Text
End If
Libro.Save()
MsgBox("Los cambios han sido guardados en el libro" & Libro.Name)
Excelapp.Quit()
Libro = Nothing Excelapp = NothingNext
End Sub
End Class
Saludos.
Valora esta pregunta
0