Question : VB.Net à exceler

Bonjour, le

I ont deux ou trois questions.
1) que je veux écrire à un exceler file.
I AM using le code suivant. Tout fonctionne très bien si j'assigne un path.
But si je veux un dialogue de sauvegarde demandant à l'utilisateur d'écrire le nom du dossier et du chemin, il ne sauve pas n'importe quelle information dans l'exceler file.
What suis moi faisant mal ici ? la question du

2)
Second est avant qu'économisant je veuille sauter un dialogue demandant à l'utilisateur s'il veut sauver ou regarder juste.
If il choses à la vue que je veux ouvrir le dossier d'exceler et montrer juste l'information.

So au lieu de l'économie je dois écrire pour exceler et ouvrir la feuille d'exceler pour montrer l'information.
How peut je le font ? le

Thanks, le




obscurcissent le mydataset en tant que nouveau mydataset de DataSet
= nom de fichier du
de myQuery.runquery (txt_FinalQuery.Text) le faible comme nom de fichier de corde = de Nothing
= « des dossiers du S de C:\Users\User1\Desktop\GI \ « faible oExcel du

comme faible oBook d'Object
comme faible oSheet d'Object
en tant qu'oBook d'oExcel d'Object
= de
de CreateObject (le « Excel.Application ») = l'oSheet d'oExcel.Workbooks.Add
= oBook.Worksheets (1)
faible n comme Integer
pour I = 1 au mydataset. Tableaux (0). Rows.Count - 1
pour n = 1 au mydataset. Tableaux (0). Columns.Count - 1
'oSheet.Cells (1, n). Valeur = mydataset. Champs (n - 1).Name
oSheet.Cells (I, n). Valeur = mydataset. Tableaux (0). Columns (n).ToString
si I > 1 Then
oSheet.Cells (I, n). Valeur = mydataset. Tableaux (0). Rangées (i). Article extrémité If
Next
Next
du
(de n).ToString () 'transfert
'(le « A2 ») .CopyFromRecordset (rs)/>
le nom de fichier 'sauf cahier de travail et de l'Excel.
stoppé '= le nom de fichier et le chemin de Hardoced de ####### du
oBook.SaveAs (nom de fichier) de « Book3.xls " fonctionne good.

faible dlg comme SaveFileDialog = le nouveau
dlg de SaveFileDialog (). Le filtre = « Excel classe (*.xls)| commutateur de
si dlg.ShowDialog () = DialogResult.OK Then
obscurcissent le myname comme corde = commutateur de dlg.FileName
faible en tant que nouveau/> '. Écrire le
(de myname) 'using le streamwriter pour écrire le texte de l'extrémité If de l'it
de richtextbox et d'économie class= de

Réponse : VB.Net à exceler

Q1 : Changement

        le chemin de Hardoced de ####### d'oBook.SaveAs (nom de fichier) fonctionne bon.

        Faible dlg comme SaveFileDialog = nouveau SaveFileDialog ()
        dlg. Le filtre = « Excel classe (*.xls)| *.xls »
        Si dlg.ShowDialog () = DialogResult.OK alors
            Faible myname comme corde = dlg.FileName
            Faible commutateur en tant que nouveau StreamWriter (myname)
            'commutateur. Écrire (myname)
            'using le streamwriter pour écrire le texte du richtextbox et de l'économie il
        Finir si

à

        le chemin de Hardoced de ####### 'd'oBook.SaveAs (nom de fichier) fonctionne bon.

        Faible dlg comme SaveFileDialog = nouveau SaveFileDialog ()
        dlg. Le filtre = « Excel classe (*.xls)| *.xls »
        Si dlg.ShowDialog () = DialogResult.OK alors
            'Faible myname comme corde = dlg.FileName
            'Faible commutateur en tant que nouveau StreamWriter (myname)
            'commutateur. Écrire (myname)
            'using le streamwriter pour écrire le texte du richtextbox et de l'économie il
            oBook.SaveAs (dlg.FileName)
        Finir si