Salve a tutti...
Sono alle prime armi con la programmazione. Ho creato un form con delle textbox, al click del pulsante apro e compilo un modello excel copiando il testo delle textbox nelle celle scelte.
Fin qui tutto bene...ora però vorrei salvare questo modello in un .xls dentro
un'altra cartella col nome_file uguale al valore di due celle.
Le celle in questione dove prelevare il nome-file sono la D19 (numero) e la D11 (stringa)
ecco il codice
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim oExc As Object
Dim oWbk As Object
Dim oWsh1 As Object
Dim oRng1 As Object
TextBox2.Focus()
oExc = CreateObject("Excel.Application")
oExc.Visible = True
If (CheckBox4.Checked = True) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli fatture\prova2.xlt")
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11")
oRng1.FormulaR1C1 = TextBox1.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D12")
oRng1.FormulaR1C1 = TextBox2.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D13")
oRng1.FormulaR1C1 = TextBox3.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D16")
oRng1.FormulaR1C1 = TextBox4.Text 'testo partita iva o codice fiscale
oRng1 = oWsh1.Range("D19")
oRng1.FormulaR1C1 = TextBox5.Text 'testo numero fattura
oRng1 = oWsh1.Range("D23")
oRng1.FormulaR1C1 = TextBox6.Text 'testo vostro dare1
oRng1 = oWsh1.Range("L23")
oRng1.FormulaR1C1 = TextBox7.Text 'totale1
oRng1 = oWsh1.Range("D24")
oRng1.FormulaR1C1 = TextBox8.Text 'testo vostro dare2
oRng1 = oWsh1.Range("L24")
oRng1.FormulaR1C1 = TextBox9.Text 'totale2
ElseIf (CheckBox5.Checked = True) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli fatture\prova3.xlt")
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11")
oRng1.FormulaR1C1 = TextBox1.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D12")
oRng1.FormulaR1C1 = TextBox2.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D13")
oRng1.FormulaR1C1 = TextBox3.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D16")
oRng1.FormulaR1C1 = TextBox4.Text 'testo partita iva o codice fiscale
oRng1 = oWsh1.Range("D19")
oRng1.FormulaR1C1 = TextBox5.Text 'testo numero fattura
oRng1 = oWsh1.Range("D23")
oRng1.FormulaR1C1 = TextBox6.Text 'testo vostro dare1
oRng1 = oWsh1.Range("L23")
oRng1.FormulaR1C1 = TextBox7.Text 'totale1
oRng1 = oWsh1.Range("D24")
oRng1.FormulaR1C1 = TextBox8.Text 'testo vostro dare2
oRng1 = oWsh1.Range("L24")
oRng1.FormulaR1C1 = TextBox9.Text 'totale2
oRng1 = oWsh1.Range("D25")
oRng1.FormulaR1C1 = TextBox10.Text 'testo vostro dare3
oRng1 = oWsh1.Range("L25")
oRng1.FormulaR1C1 = TextBox11.Text 'totale3
ElseIf (CheckBox4.Checked) & (CheckBox5.Checked = False) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli fatture\prova.xlt")
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11")
oRng1.FormulaR1C1 = TextBox1.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D12")
oRng1.FormulaR1C1 = TextBox2.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D13")
oRng1.FormulaR1C1 = TextBox3.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D16")
oRng1.FormulaR1C1 = TextBox4.Text 'testo partita iva o codice fiscale
oRng1 = oWsh1.Range("D19")
oRng1.FormulaR1C1 = TextBox5.Text 'testo numero fattura
oRng1 = oWsh1.Range("D23")
oRng1.FormulaR1C1 = TextBox6.Text 'testo vostro dare
oRng1 = oWsh1.Range("L23")
oRng1.FormulaR1C1 = TextBox7.Text 'totale
End If
End Sub
Mi date una mano...
Grazie 1000 volte grazie
|