Fråga : VB.Net som överträffar

Hi

I har en koppla ihop av questions.
1,) som jag önskar att skriva till en förmiddag för överträffa file.
I using efter kodifiera. Allt fungerar fint, om jag tilldelar en path.
But, om jag önskar en räddningdialog som frågar användaren att skriva in det känt av spara och banan, det gör inte räddningen någon information i förmiddagen för överträffa file.
What mig som orätt här gör?
Second för

2) ifrågasätter är, för besparingen som jag önskar att poppa en dialog som frågar användaren, om han önskar till räddningen eller beskådar precis.
If han choses som beskådar mig, önskar att öppna överträffa sparar och visar precis att information.
So i stället för besparing som jag måste att skriva för att överträffa och att öppna överträffa täcka för att visa information.How kan mig gör den?

Thanks, dunkel mydataset för




som ny DataSet
mydataset = filename för
för myQuery.runquery (txt_FinalQuery.Text) dunkel som stränger = den Nothing
filenamen = ”C:\Users\User1\Desktop\GI S sparar \ ”dunkel oExcel för

som Object
dunkel oBook som Object
dunkel oSheet som oBook för Object
oExcel = för CreateObject (”Excel.Application”)
= oSheet för oExcel.Workbooks.Add
= 1)
dunkelt n för oBook.Worksheets (som Integer
för I = 1 till mydataset. Bordlägger (0). Rows.Count - 1
för n = 1 till mydataset. Bordlägger (0). Columns.Count - 1
'oSheet.Cells (1, n). Värdera = mydataset. Sätter in (n - 1). Name
oSheet.Cells (I, n). Värdera = mydataset. Bordlägger (0). Columns (n) .ToString
om I > 1 Then
oSheet.Cells (I, n). Värdera = mydataset. Bordlägger (0). Ror (i). Objekt (n).
för ToString () avslutar If
Next
Next
'överföringen till

för oSheet.Range datan för Excel.
'(”A2”) .CopyFromRecordset (rs) 'räddningen arbetsboken och avslutade filenamen för Excel.
'= filenamen, & den Hardoced för ####### ”för Book3.xls-"
oBook.SaveAs (filename) banan fungerar good.

dunkel dlg som SaveFileDialog = ny SaveFileDialog ()
dlg. Filtrera = ”Excel sparar (*.xls)| strömbrytare för
om dlg.ShowDialog () = dunkel myname för DialogResult.OK Then
som stränger = dunkel strömbrytare för dlg.FileName
som ny (myname)/> '. Skriv
(för myname) 'using streamwriter för att skriva text från richtextbox, och besparingit
avslutar If " klar "

Svar : VB.Net som överträffar

Q1: Ändring

        den #######Hardoced för oBook.SaveAs (filename) banan fungerar goda.

        Dunkel dlg som SaveFileDialog = nya SaveFileDialog ()
        dlg. Filtrera = ”Excel sparar (*.xls)| *.xls”,
        Om dlg.ShowDialog () = DialogResult.OK därefter
            Dunkel myname som stränger = dlg.FileName
            Dunkel strömbrytare som nya StreamWriter (myname)
            'strömbrytare. Skriv (myname)
            'using streamwriter som skriver text från richtextbox och besparing det
        Avsluta om

till

        den #######Hardoced 'för oBook.SaveAs (filename) banan fungerar goda.

        Dunkel dlg som SaveFileDialog = nya SaveFileDialog ()
        dlg. Filtrera = ”Excel sparar (*.xls)| *.xls”,
        Om dlg.ShowDialog () = DialogResult.OK därefter
            'Dunkel myname som stränger = dlg.FileName
            'Dunkel strömbrytare som nya StreamWriter (myname)
            'strömbrytare. Skriv (myname)
            'using streamwriter som skriver text från richtextbox och besparing det
            oBook.SaveAs (dlg.FileName)
        Avsluta om