Vraag : VB.Net om uit te blinken

Hallo,

I een paar questions.
1) ik wil heeft aan schrijven uitblinkt file.
I am gebruikend de volgende code. Alles werkt boete als ik een path.
But als ik sparen dialoog vragend de gebruiker wil om de naam van het dossier en de weg in te gaan toewijs, slaat het geen informatie op in uitblinkt file.
What ben I verkeerd hier doen? de vraag

2)
Second is vóór het sparen ik wil een dialoog knallen vragend de gebruiker of wil hij sparen of enkel bekijken.
If hij choses aan mening die ik heb willen om openen uitblink dossier en enkel toon information.

So in plaats van besparing ik moet schrijven om uit te blinken en te openen blad uitblinken om information.
How te tonen kunnen ik doen het?

Thanks,/> Schemerige mydataset




mydataset = (txt_FinalQuery.Text)
Schemerige filename myQuery.runquery als Koord =/> filename Nothing

S van Dossiers \ „
als/> Schemerige oBook Object
Schemerige oSheet Object
oExcel = CreateObject („Excel.Application“)
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets (1)
Schemerig n als Integer
voor I = 1 aan mydataset. Lijsten (0). Rows.Count - 1
voor n = 1 aan mydataset. Lijsten (0). Columns.Count - 1
'oSheet.Cells (1, n). Waarde = mydataset. Gebieden (n - 1). Name
oSheet.Cells (I, n). Waarde = mydataset. Lijsten (0). Columns (n) .ToString
als I > 1 Then
oSheet.Cells (I, n). Waarde = mydataset. Lijsten (0). Rijen (i). Punt (n). ()
het Eind ToString If
Next
Next
'Overdracht de gegevens aan Excel.
'oSheet.Range („A2“) .CopyFromRecordset (rs)

'sparen het werkboek en/> 'filename opgehouden met Excel.
oBook.SaveAs (filename) ####### Hardoced de wegwerken good.

verduistert dlg als SaveFileDialog = Nieuwe SaveFileDialog ()
dlg. Filter = de „Dossiers van Excel (*.xls)| *.xls "
als dlg.ShowDialog () =/> Schemerige myname DialogResult.OK Then
Schemerige sw dlg.FileName
'sw. Schrijf (myname)
die 'streamwriter tekst van richtextbox gebruiken te schrijven en it
Eind If bewaren

Antwoord : VB.Net om uit te blinken

Q1: Verandering

        oBook.SaveAs (filename) ####### Hardoced het goed van de wegwerken.

        Schemerige dlg als SaveFileDialog = Nieuwe SaveFileDialog ()
        dlg. Filter = de „Dossiers van Excel (*.xls)| *.xls“
        Als dlg.ShowDialog () = DialogResult.OK toen
            Schemerige myname als Koord = dlg.FileName
            Schemerige sw als Nieuwe StreamWriter (myname)
            'sw. Schrijf (myname)
            'gebruikend streamwriter om tekst van richtextbox te schrijven en bewarend het
        Eind als

aan

        'oBook.SaveAs (filename) ####### Hardoced het goed van de wegwerken.

        Schemerige dlg als SaveFileDialog = Nieuwe SaveFileDialog ()
        dlg. Filter = de „Dossiers van Excel (*.xls)| *.xls“
        Als dlg.ShowDialog () = DialogResult.OK toen
            'Schemerige myname als Koord = dlg.FileName
            'Schemerige sw als Nieuwe StreamWriter (myname)
            'sw. Schrijf (myname)
            'gebruikend streamwriter om tekst van richtextbox te schrijven en bewarend het
            oBook.SaveAs (dlg.FileName)
        Eind als