Pytanie : VB.Net

Cześć,

I mieć kilka questions.
1) I chcieć przodować file.
I am using the następujący kod. I pracować świetnie jeżeli i wyznaczać path.
But jeżeli i chcieć świetnie dialog the użytkownik the imię the kartoteka i ścieżka, ono save jakaś informacja w the przodować file.
What być i źle tutaj?

2)
Second pytanie być zanim ratować i chcieć dialog the użytkownik jeżeli on chcieć save lub właśnie.
If on choses widok i chcieć the przodować kartoteka i właśnie the information.

So zamiast oszczędzanie i musieć i the przodować prześcieradło the information.
How móc i robić ono?

Thanks,




Ćmić mydataset Gdy Nowy DataSet
mydataset = myQuery.runquery (txt_FinalQuery.Text)
Ćmić filename Jako Sznurek = Nothing
filename = "C:\Users\User1\Desktop\GI S Kartoteka \ "

Ciemnawy oExcel Gdy Object
Ćmić oBook Gdy Object
Ćmić oSheet Jako Object
oExcel = CreateObject ("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets (1)
Ciemnawy n Jako Integer
Dla i = (1) Mydataset. Stół ((0)). Rows.Count - 1
Dla n = (1) Mydataset. Stół ((0)). Columns.Count - 1
'oSheet.Cells ((1), n). Wartość = mydataset. Pole (n - 1).Name
oSheet.Cells (i, n). Wartość = mydataset. Stół ((0)). Columns (n) .ToString
Jeżeli i > (1) Then
oSheet.Cells (i, n). Wartość = mydataset. Stół ((0)). Rząd (i). Rzecz (n). ToString ()
Końcówka If
Next
Next
'Przeniesienie the dane Excel.
'oSheet.Range ("A2") .CopyFromRecordset (rs)

'Oprócz the workbook i skwitowany Excel.
'filename = filename & "Book3.xls "
oBook.SaveAs (filename) ####### Hardoced ścieżka praca good.

Ćmić dlg Jako SaveFileDialog = Nowy SaveFileDialog ()
dlg. Filtr = "Przodować Kartoteka (*.xls)| *.xls "
Jeżeli dlg.ShowDialog () = DialogResult.OK Then
Ćmić myname Gdy Sznurek = dlg.FileName
Ćmić sw Jako Nowy StreamWriter (myname)
'sw. Pisać (myname)
'using streamwriter tekst od richtextbox i oszczędzanie it
Końcówka If

Odpowiedź : VB.Net

Q1: Zmiana

        oBook.SaveAs (filename) ####### Hardoced ścieżka pracować dobry.

        Ciemnawy dlg Jako SaveFileDialog = Nowy SaveFileDialog ()
        dlg. Filtr = "Przodować Kartoteka (*.xls)| *.xls"
        Jeżeli dlg.ShowDialog () = DialogResult.OK Wtedy
            Ciemnawy myname Jako Sznurek = dlg.FileName
            Ciemnawy sw Jako Nowy StreamWriter (myname)
            'sw. Pisać (myname)
            'using streamwriter tekst od richtextbox i oszczędzanie ono
        Kończyć Jeżeli



        'oBook.SaveAs (filename) ####### Hardoced ścieżka pracować dobry.

        Ciemnawy dlg Jako SaveFileDialog = Nowy SaveFileDialog ()
        dlg. Filtr = "Przodować Kartoteka (*.xls)| *.xls"
        Jeżeli dlg.ShowDialog () = DialogResult.OK Wtedy
            'Ciemnawy myname Jako Sznurek = dlg.FileName
            'Ciemnawy sw Jako Nowy StreamWriter (myname)
            'sw. Pisać (myname)
            'using streamwriter tekst od richtextbox i oszczędzanie ono
            oBook.SaveAs (dlg.FileName)
        Kończyć Jeżeli