Questione : VB.Net da eccellere

Ciao, il

I ha una coppia di questions.
1) che voglio scrivere ad una supremazia file.
I using il seguente codice. Tutto funziona benissimo se assegno un path.
But se voglio un dialogo di risparmio che chiedo all'utente di introdurre il nome della lima e del percorso, esso non conservo alcun'informazione nella supremazia file.
What sono io che faccio male qui? la domanda del

2)
Second è prima che risparmiando voglia schioccare un dialogo che chiedo all'utente se vuole conservare o osservare appena.
If lui choses alla vista che voglio aprire la lima di supremazia e mostrare appena il information.

So anziché il risparmio devo scrivere per eccellere ed aprire lo strato di supremazia per visualizzare il information.
How può io lo fanno? il

Thanks,




oscura il mydataset come nuovo mydataset di DataSet
= il nome di schedario fioco del
di myQuery.runquery (txt_FinalQuery.Text) come nome di schedario di Nothing
= “lime \ “del S di C:\Users\User1\Desktop\GI oExcel fioco del

come oBook fioco di Object
come oSheet fioco di Object
come il oBook del oExcel di Object
= del
di CreateObject (“Excel.Application„) = il oSheet di oExcel.Workbooks.Add
= oBook.Worksheets (1)
n fioca come Integer
per i = 1 a mydataset. Tabelle (0). Rows.Count - 1
per n = 1 a mydataset. Tabelle (0). Columns.Count - 1
'oSheet.Cells (1, n). Valore = mydataset. Campi (n - 1).Name
oSheet.Cells (i, n). Valore = mydataset. Tabelle (0). Columns (n).ToString
se i > 1 Then
oSheet.Cells (i, n). Valore = mydataset. Tabelle (0). File (i). Articolo (l'estremità If
Next
Next
del
di n).ToString () 'trasferimento i dati

di oSheet.Range di Excel.
'(“A2„) .CopyFromRecordset (rs) 'salvo il nome di schedario di Excel.
rinunciato '= il nome di schedario & il percorso di Hardoced del ####### del
oBook.SaveAs (nome di schedario) “di Book3.xls " funziona good.

dlg fioco come SaveFileDialog = nuovo
dlg di SaveFileDialog (). Il filtro = “Excel archiva (*.xls)| interruttore del
di *.xls "
se dlg.ShowDialog () = DialogResult.OK Then
oscurano il myname come stringa = interruttore fioco di dlg.FileName
come nuovo '. Scrivere il
(del myname) 'using streamwriter per scrivere il testo dall'estremità If del it
di risparmio e del richtextbox class= del

Risposta : VB.Net da eccellere

Q1: Cambiamento

        il percorso di Hardoced del ####### di oBook.SaveAs (nome di schedario) funziona buon.

        Dlg fioco come SaveFileDialog = nuovo SaveFileDialog ()
        dlg. Il filtro = “Excel archiva (*.xls)| *.xls„
        Se dlg.ShowDialog () = DialogResult.OK allora
            Myname fioco come stringa = dlg.FileName
            Interruttore fioco come nuovo StreamWriter (myname)
            'interruttore. Scrivere (myname)
            'using streamwriter per scrivere testo da richtextbox e dal risparmio esso
        Concluder se

a

        'il percorso di Hardoced del ####### di oBook.SaveAs (nome di schedario) funziona buon.

        Dlg fioco come SaveFileDialog = nuovo SaveFileDialog ()
        dlg. Il filtro = “Excel archiva (*.xls)| *.xls„
        Se dlg.ShowDialog () = DialogResult.OK allora
            'Myname fioco come stringa = dlg.FileName
            'Interruttore fioco come nuovo StreamWriter (myname)
            'interruttore. Scrivere (myname)
            'using streamwriter per scrivere testo da richtextbox e dal risparmio esso
            oBook.SaveAs (dlg.FileName)
        Concluder se