Cuestión : VB.Net a sobresalir

Hola, el

I tiene uces par de questions.
1) que quiero escribir a un sobresalir file.
I usar el código siguiente. ¿Todo trabaja muy bien si asigno un path.
But si quiero un diálogo de ahorro que pide que el usuario incorpore el nombre del archivo y de la trayectoria, él no ahorro ninguna información en el sobresalir file.
What soy yo que hace mal aquí? la pregunta del

2)
Second es antes de que ahorre quiera hacer estallar un diálogo que pregunta al usuario si él quiere ahorrar o apenas ver. ¿
If él choses a la visión que quiero abrir el archivo del sobresalir y apenas demostrar el information.

So en vez del ahorro tengo que escribir para sobresalir y abrir la hoja del sobresalir para exhibir el information.
How puede yo lo hacen? el

Thanks,




amortigua el mydataset como nuevo mydataset de DataSet
= el nombre de fichero dévil del
de myQuery.runquery (txt_FinalQuery.Text) como nombre de fichero de la secuencia = de Nothing
= “los archivos \ “del S de C:\Users\User1\Desktop\GI oExcel dévil del

como oBook dévil de Object
como oSheet dévil de Object
como oBook del oExcel de Object
= del
de CreateObject (“Excel.Application”) = oSheet de oExcel.Workbooks.Add
= oBook.Worksheets (1)
n dévil como Integer
para i = 1 al mydataset. Tablas (0). Rows.Count - 1
para n = 1 al mydataset. Tablas (0). Columns.Count - 1
'oSheet.Cells (1, n). Valor = mydataset. Campos (n - 1).Name
oSheet.Cells (i, n). Valor = mydataset. Tablas (0). Columns (n).ToString
si i > 1 Then
oSheet.Cells (i, n). Valor = mydataset. Tablas (0). Filas (i). Artículo extremo If
Next
Next
del
(de n).ToString () 'transferencia el

'de oSheet.Range los datos de Excel.
(“A2”) .CopyFromRecordset (rs) 'excepto el nombre de fichero del libro de trabajo y del Excel.
parado '= el nombre de fichero y la trayectoria de Hardoced del ####### " del
oBook.SaveAs (nombre de fichero) de “Book3.xls trabaja good.

dlg dévil como SaveFileDialog = el nuevo
dlg de SaveFileDialog (). El filtro = “Excel archiva (*.xls)| interruptor del
si dlg.ShowDialog () = DialogResult.OK Then
amortiguan el myname como secuencia = interruptor dévil de dlg.FileName
como nuevo/> '. Escribir el
(del myname) 'usar streamwriter para escribir el texto del extremo If del it
del richtextbox y del ahorro class= del

Respuesta : VB.Net a sobresalir

Q1: Cambio

        la trayectoria de Hardoced del ####### de oBook.SaveAs (nombre de fichero) funciona bueno.

        Dlg dévil como SaveFileDialog = nuevo SaveFileDialog ()
        dlg. El filtro = “Excel archiva (*.xls)| *.xls”
        Si dlg.ShowDialog () = DialogResult.OK entonces
            Myname dévil como secuencia = dlg.FileName
            Interruptor dévil como nuevo StreamWriter (myname)
            'interruptor. Escribir (myname)
            'usar el streamwriter para escribir el texto del richtextbox y del ahorro él
        Terminar si

a

        la trayectoria de Hardoced del ####### 'de oBook.SaveAs (nombre de fichero) funciona bueno.

        Dlg dévil como SaveFileDialog = nuevo SaveFileDialog ()
        dlg. El filtro = “Excel archiva (*.xls)| *.xls”
        Si dlg.ShowDialog () = DialogResult.OK entonces
            'Myname dévil como secuencia = dlg.FileName
            'Interruptor dévil como nuevo StreamWriter (myname)
            'interruptor. Escribir (myname)
            'usar el streamwriter para escribir el texto del richtextbox y del ahorro él
            oBook.SaveAs (dlg.FileName)
        Terminar si