Andresleo47
Board Regular
- Joined
- Oct 29, 2008
- Messages
- 132
Hello Everyone...I'm trying to develop a project using VB10, but I don't know how to copy a textbox into an Excel Cell...I have this code, and most of it are comments, because it hasn't worked at all...Thanks for your help...:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim workSheets As Object
'Dim MSXLWorkbook As Object
'Dim MSExcelWorksheet As Object
Dim ans
Dim Archivo As String = "C:\Users\Ing. Andy\Documents\Karen Tesis\AppConVB10\TEST1.xlsx"
ans = MsgBox("Está Seguro?", vbYesNo)
If ans = vbYes Then
Process.Start(Archivo)
Archivo.
'Archivo.("TEST1").Cells(2, 1) = TextBox1
ElseIf ans = vbNo Then
End If
'MSExcelApp = CreateObject("Excel.Application")
'MSXLWorkbook = MSExcelApp.Workbooks.add
'MSExcelWorksheet = MSXLWorkbook.Worksheets(1)
'MSExcelWorksheet.Activate()
'MSExcelWorksheet.Application.Visible = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim workSheets As Object
'Dim MSXLWorkbook As Object
'Dim MSExcelWorksheet As Object
Dim ans
Dim Archivo As String = "C:\Users\Ing. Andy\Documents\Karen Tesis\AppConVB10\TEST1.xlsx"
ans = MsgBox("Está Seguro?", vbYesNo)
If ans = vbYes Then
Process.Start(Archivo)
Archivo.
'Archivo.("TEST1").Cells(2, 1) = TextBox1
ElseIf ans = vbNo Then
End If
'MSExcelApp = CreateObject("Excel.Application")
'MSXLWorkbook = MSExcelApp.Workbooks.add
'MSExcelWorksheet = MSXLWorkbook.Worksheets(1)
'MSExcelWorksheet.Activate()
'MSExcelWorksheet.Application.Visible = True
End Sub
