Frage : VB.Net zum zu übertreffen

Hallo, haben

I ein paar questions.
1), das ich zu übertreffen file.
I morgens using den folgenden Code schreiben möchte. Alles ist adaequat, wenn ich ein path.
But zuweise, wenn ich einen Sicherungsdialog den Benutzer bitten, den Namen der Akte und des Weges einzutragen wünsche, es spare keine Informationen in übertreffen file.
What bin ich falsch hier tuend?

2)
Second Frage ist, bevor ich ich möchten einen Dialog knallen den Benutzer fragend speichere, ob er speichern oder gerade ansehen möchte.
If er choses zur Ansicht, die ich die übertreffenakte öffnen möchte und das information.

So anstelle von der Einsparung gerade zeigen ich schreiben muss, um zu übertreffen und das übertreffenblatt zu öffnen, um das information.
How anzuzeigen kann ich tun es?

Thanks,




verdunkeln mydataset als neues DataSet
mydataset = myQuery.runquery (txt_FinalQuery.Text)
schwachen Dateinamen als Schnur- = Nothing
Dateiname = „C:\Users\User1\Desktop\GI S Akten \ „

schwaches oExcel als Object
schwaches oBook als Object
schwaches oSheet als Object
oExcel = CreateObject („Excel.Application“)
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets (1)
schwaches n als Integer
für i = 1 zum mydataset. Tabellen (0). Rows.Count - 1
für n = 1 zum mydataset. Tabellen (0). Columns.Count - 1
'oSheet.Cells (1, N). Wert = mydataset. Felder (n - 1).Name
oSheet.Cells (i, N). Wert = mydataset. Tabellen (0). Columns (n).ToString
wenn i > 1 Then
oSheet.Cells (i, N). Wert = mydataset. Tabellen (0). Reihen (i). Einzelteil (n).ToString ()
Ende If
Next
Next
'Übertragung auf Excel.
'oSheet.Range die Daten („A2“) .CopyFromRecordset (rs)

Dateinamen 'außer den des Arbeitsbuches und beendigtes des Excel.
'= Dateinamen u. „Book3.xls "
oBook.SaveAs (Dateiname) ####### Hardoced Weg good.

schwaches DLG als SaveFileDialog = neues SaveFileDialog ()
DLG. Filter = „Excel archiviert (*.xls)| *.xls "
, wenn dlg.ShowDialog () = DialogResult.OK Then
myname als Schnur = dlg.FileName
schwacher Schalter als neues
'Schalter verdunkeln. (Myname)
'using streamwriter schreiben, um Text richtextbox und Einsparung it
vom Ende If zu schreiben

Antwort : VB.Net zum zu übertreffen

Q1: Änderung

        oBook.SaveAs (Dateiname) ####### Hardoced Weg bearbeitet gutes.

        Schwaches DLG als SaveFileDialog = neues SaveFileDialog ()
        DLG. Filter = „Excel archiviert (*.xls)| *.xls“
        Wenn dlg.ShowDialog () = DialogResult.OK dann
            Schwaches myname als Schnur = dlg.FileName
            Schwacher Schalter als neues StreamWriter (myname)
            'Schalter. Schreiben (myname)
            'using das streamwriter, zum des Textes vom richtextbox und von der Einsparung zu schreiben es
        Beenden wenn

zu

        'oBook.SaveAs (Dateiname) ####### Hardoced Weg bearbeitet gutes.

        Schwaches DLG als SaveFileDialog = neues SaveFileDialog ()
        DLG. Filter = „Excel archiviert (*.xls)| *.xls“
        Wenn dlg.ShowDialog () = DialogResult.OK dann
            'Schwaches myname als Schnur = dlg.FileName
            'Schwacher Schalter als neues StreamWriter (myname)
            'Schalter. Schreiben (myname)
            'using das streamwriter, zum des Textes vom richtextbox und von der Einsparung zu schreiben es
            oBook.SaveAs (dlg.FileName)
        Beenden wenn