Вопрос : VB.Net, котор нужно первенствовать

Hi,

I имеет несколько questions.
1), котор я хочу написать к первенствовать file.
I am using следующий Кодий. Все работает отлично если я задаю path.
But если я хочу спасительный диалог спрашивая, что потребитель вписал имя архива и курса, то, его не сохраняю никакую информацию в первенствовать file.
What буду мной делая неправильно здесь? вопрос в том, что

2)
Second прежде чем сохраняющ я хочу хлопнуть диалог спрашивая потребителю если он хочет сохранить или как раз осмотреть.
If он choses к взгляду, котор я хочу раскрыть архив первенствовать и как раз показать information.

So вместо сбережения я должен написать для того чтобы первенствовать и раскрыть лист первенствовать для показа information.
How смогите я сделайте его?

Thanks,




затемняет mydataset как новое mydataset DataSet
= filename
myQuery.runquery (txt_FinalQuery.Text) тусклый как filename шнура = Nothing
= «архивы S C:\Users\User1\Desktop\GI \ «oExcel

тусклое как oBook Object
тусклое как oSheet Object
тусклое как oBook oExcel Object
=
CreateObject («Excel.Application») = oSheet oExcel.Workbooks.Add
= oBook.Worksheets (1)
тусклый n как Integer
для I = 1 к mydataset. Таблицы (0). Rows.Count - 1
для n = 1 к mydataset. Таблицы (0). Columns.Count - 1
'oSheet.Cells (1, n). Значение = mydataset. Поля (n - 1).Name
oSheet.Cells (I, n). Значение = mydataset. Таблицы (0). Columns (n) .ToString
если I > 1 Then
oSheet.Cells, то (I, n). Значение = mydataset. Таблицы (0). Рядки (i). Деталь (n). конец If
Next
Next

ToString () 'переход к

oSheet.Range данные Excel.
'(«A2») .CopyFromRecordset (rs) 'за исключением filename workbook и прекращенного Excel.
'= filename &
oBook.SaveAs «Book3.xls " курса Hardoced ####### (filename) работает good.

тусклый dlg как SaveFileDialog = новое
dlg SaveFileDialog (). Фильтр = «Эксел хранит (*.xls)| sw
если dlg.ShowDialog () = DialogResult.OK Then
затемняют myname как шнур = sw dlg.FileName
тусклый как новое (myname)/> '. Напишите
(myname) 'using streamwriter для писания текста от конца If it
richtextbox и сбережения class=

Ответ : VB.Net, котор нужно первенствовать

Q1: Изменение

        курс Hardoced ####### oBook.SaveAs (filename) работает хорошее.

        Тусклый dlg как SaveFileDialog = новое SaveFileDialog ()
        dlg. Фильтр = «Эксел хранит (*.xls)| *.xls»
        Если dlg.ShowDialog () = DialogResult.OK после этого
            Тусклое myname как шнур = dlg.FileName
            Тусклый sw как новое StreamWriter (myname)
            'sw. Напишите (myname)
            'using streamwriter для писания текста от richtextbox и сбережения оно
        Закончитесь если

к

        'курс Hardoced ####### oBook.SaveAs (filename) работает хорошее.

        Тусклый dlg как SaveFileDialog = новое SaveFileDialog ()
        dlg. Фильтр = «Эксел хранит (*.xls)| *.xls»
        Если dlg.ShowDialog () = DialogResult.OK после этого
            'Тусклое myname как шнур = dlg.FileName
            'Тусклый sw как новое StreamWriter (myname)
            'sw. Напишите (myname)
            'using streamwriter для писания текста от richtextbox и сбережения оно
            oBook.SaveAs (dlg.FileName)
        Закончитесь если