Ciao Oregon,
credo che sia chiaro a tutti che non i intendo di visual basic come diforum, sto cercando di fare del mio meglio
questo è il codice che ho inserito nel form, con la quale apro il file excel creato precedentemente in c. e sul quale vorrei inserire i mei dati,dopo di che salvare e uscire da excel. solo che mi appare "salva con nome" se dico si mi va a sostituire quello che già c'era nel mio file.
codice:
Imports Microsoft.Office.Interop.Excel
Public Class Form2
Dim objExcel As Object
Dim objWorkbook As Object
Dim objWorksheet As Object
Dim objwokBooks As Object
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If MsgBox("Vuoi uscire ?", vbYesNo) = vbYes Then
Me.Close()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Start a new workbook in Excel
objExcel = CreateObject("Excel.Application")
objWorkbook = objExcel.Workbooks.Open("C:\test.xlsx")
objWorksheet = objWorkbook.WorkSheets("Ecommerce")
objExcel.visible = True
With objWorksheet
.cells(2, 1) = TextBox3.Text
.cells(2, 2) = TextBox4.Text
.CELLS(2, 3) = TextBox5.Text
.CELLS(2, 4) = TextBox6.Text
.CELLS(2, 5) = TextBox2.Text
.CELLS(2, 6) = TextBox7.Text
.CELLS(2, 7) = TextBox8.Text
If TextBox5.Text = "" Then MsgBox("inserire data", MsgBoxStyle.Exclamation, "ATTENZIONE") : Exit Sub
objWorkbook.close(True)
objExcel.quit()
objExcel = Nothing
objWorkbook = Nothing
objWorksheet = Nothing
End With
End Sub
ciao