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.
ciaocodice: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

Rispondi quotando