salva foglio excel con nome valore cella

[Giagianca]

Salve a tutti
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
una cartella col nome_file uguale al valore di una o più celle.
Mi date una mano...

Grazie a tutti

[oregon]

Linguaggio ? Regolamento ? Spiegati meglio ...

[Giagianca]

Giusto.....scusate

Sto usando visual basic 2008

[oregon]

Mostra il codice che hai scritto, indica cosa hai fatto, dicci cosa non sai fare ...

[Giagianca]

ecco il codice


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 \prova2.xlt")
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11")
oRng1.FormulaR1C1 = TextBox1.Text
oRng1 = oWsh1.Range("D12")
oRng1.FormulaR1C1 = TextBox2.Text
oRng1 = oWsh1.Range("D13")
oRng1.FormulaR1C1 = TextBox3.Text
oRng1 = oWsh1.Range("D16")
oRng1.FormulaR1C1 = TextBox4.Text
oRng1 = oWsh1.Range("D19")
oRng1.FormulaR1C1 = TextBox5.Text
oRng1 = oWsh1.Range("D23")
oRng1.FormulaR1C1 = TextBox6.Text
oRng1 = oWsh1.Range("L23")
oRng1.FormulaR1C1 = TextBox7.Text
oRng1 = oWsh1.Range("D24")
oRng1.FormulaR1C1 = TextBox8.Text
oRng1 = oWsh1.Range("L24")
oRng1.FormulaR1C1 = TextBox9.Text
ElseIf (CheckBox5.Checked = True) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli\prov a3.xlt")
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11")
oRng1.FormulaR1C1 = TextBox1.Text
oRng1 = oWsh1.Range("D12")
oRng1.FormulaR1C1 = TextBox2.Text
oRng1 = oWsh1.Range("D13")
oRng1.FormulaR1C1 = TextBox3.Text
oRng1 = oWsh1.Range("D16")
oRng1.FormulaR1C1 = TextBox4.Text
oRng1 = oWsh1.Range("D19")
oRng1.FormulaR1C1 = TextBox5.Text
oRng1 = oWsh1.Range("D23")
oRng1.FormulaR1C1 = TextBox6.Text
oRng1 = oWsh1.Range("L23")
oRng1.FormulaR1C1 = TextBox7.Text
oRng1 = oWsh1.Range("D24")
oRng1.FormulaR1C1 = TextBox8.Text
oRng1 = oWsh1.Range("L24")
oRng1.FormulaR1C1 = TextBox9.Text
oRng1 = oWsh1.Range("D25")
oRng1.FormulaR1C1 = TextBox10.Text
oRng1 = oWsh1.Range("L25")
oRng1.FormulaR1C1 = TextBox11.Text 'totale3
ElseIf (CheckBox4.Checked) & (CheckBox5.Checked) = False Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli\prov a.xlt")
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11")
oRng1.FormulaR1C1 = TextBox1.Text
oRng1 = oWsh1.Range("D12")
oRng1.FormulaR1C1 = TextBox2.Text
oRng1 = oWsh1.Range("D13")
oRng1.FormulaR1C1 = TextBox3.Text
oRng1 = oWsh1.Range("D16")
oRng1.FormulaR1C1 = TextBox4.Text
oRng1 = oWsh1.Range("D19")
oRng1.FormulaR1C1 = TextBox5.Text
oRng1 = oWsh1.Range("D23")
oRng1.FormulaR1C1 = TextBox6.Text
oRng1 = oWsh1.Range("L23")
oRng1.FormulaR1C1 = TextBox7.Text
End If


a seconda della scelta apro e compilo il modello...una volta aperto e compilato vorrei salvarlo in una cartella con nomefile uguale al valore di una o piu celle del foglio stesso.
Spero di esser stato chiaro...

grazie ancora

[Jeremy75]

Questo codice, lo usavi in Vb6 .... in Vb.Net hai a disposizione Microsoft.Office.Interop, NameSpace entro il quale trovi tutte le classi necessarie per l'interoperabilità con i prodotti Office(tra cui Excel).
L'oggetto WorkBook, espone un metodo Save con il quale puoi salvare col nome che desideri.
Per la creazione di cartelle, invece, puoi usare la classe System.IO.Directory, la quale espone un metodo di tipo Statico(Shared in Vb) che ti permette di creare una directory passando come argomento il percorso.
Facci sapere ....
Ciao

[Giagianca]

se devo essere sincero.....
non ho capito un bit...
potresti spiegarmi con qualche esempio....

grazie

[Jeremy75]

Un Esempio, potrebbe essere questo

Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim oXL As Excel.Application
        Dim oWB As Excel._Workbook
        Dim oSheet As Excel._Worksheet
        Dim Lettera As String = "E"
        Dim Row As Integer = 1
        Try
            oXL = New Excel.Application()
            oXL.Visible = True
            oWB = DirectCast(oXL.Workbooks.Add, Excel._Workbook)
            oSheet = DirectCast(oWB.ActiveSheet, Excel._Worksheet)
            For i As Integer = 0 To 100
                For y As Integer = 0 To 7
                    oSheet.Cells(Row, 1) = Lettera & " " & i.ToString & "." & y.ToString
                    Row += 1
                Next
            Next
            Lettera = "A"
            Row = 1
            For i As Integer = 0 To 100
                For y As Integer = 0 To 7
                    oSheet.Cells(Row, 3) = Lettera & " " & i.ToString & "." & y.ToString
                    Row += 1
                Next
            Next

            Lettera = "M"
            Row = 1
            For i As Integer = 0 To 100
                For y As Integer = 0 To 7
                    oSheet.Cells(Row, 5) = Lettera & " " & i.ToString & "." & y.ToString
                    Row += 1
                Next
            Next

            oXL.Visible = True
            oXL.UserControl = True

        Catch theException As Exception


        End Try

    End Sub
End Class

ma dovrai ovviamente adattarlo alle tue esigenze.

facci sapere...
Ciao

[Giagianca]

Grazie Jeremy...
ho provato ad inserire il tuo codice e la prima difficoltà è
Imports Microsoft.Office.Interop incollato sopra il form.
Mi dice che lo spazio dei nomi o il tipo specificato nelle
impostazioni Microsoft.Office.Interop non contiene nessun membro pubblico o non è definito.
???

E qui mi perdo proprio.
Cosa dovrei fare???


Il nome con cui salvare il foglio è contenuto nelle celle D19 (numero) e D11 (stringa)
del foglio "prova".

grazie ancora per il tempo a me dedicato

[Giagianca]

nessuno mi aiuta
mi coviene creare un pulsante nel foglio aperto....