Dim NamePr, NameEt As String
            NamePr = main.СменаНастроек.ВыбранныйПроект
            NameEt = main.СменаНастроек.ВыбранныйЭтап
            'Create the FileStream to write with.
            Dim strFilename As String = ""
            If TextBox1.Text = "" Then
                If RadioButton1.Checked = True Then
                    strFilename = My.Computer.FileSystem.SpecialDirectories.Temp & "\" & "Ведомость заказа -" + Trim(NamePr) + "-" + Trim(NameEt) + "- вед." + Trim(ComboBox3.Text.ToString) + "- период " + Trim(DateTimePicker1.Value.ToShortDateString) + "-" + Trim(DateTimePicker2.Value.ToShortDateString) + "_кж.xls"
                End If
                If RadioButton2.Checked = True Then
                    strFilename = My.Computer.FileSystem.SpecialDirectories.Temp & "\" & "Ведомость заказа -" + Trim(NamePr) + "-" + Trim(NameEt) + "- вед." + Trim(ComboBox3.Text.ToString) + "- период " + Trim(DateTimePicker1.Value.ToShortDateString) + "-" + Trim(DateTimePicker2.Value.ToShortDateString) + "_сх.xls"
                End If
            Else
                strFilename = My.Computer.FileSystem.SpecialDirectories.Temp & "\" & TextBox1.Text + ".xls"
            End If
            
            Dim fs As New System.IO.FileStream(strFilename, System.IO.FileMode.Create)

            'Create an XmlTextWriter for the FileStream.
            Dim xtw As New System.Xml.XmlTextWriter(fs, System.Text.Encoding.Unicode)

            xtw.WriteProcessingInstruction("xml", "version='1.0'")



            'Transform the XML using the stylesheet.
            Dim xmlDoc As System.Xml.XmlDataDocument = New System.Xml.XmlDataDocument(DatagridviewToDataset(DataGridView2))

            ''''''''''''
            Dim xslTran As System.Xml.Xsl.XslCompiledTransform = New System.Xml.Xsl.XslCompiledTransform()
            Try
                'xslTran.Load("\\cdb/outputdocz$/Ведомость_Стиль_2.xsl")
                xslTran.Load("D:/Ведомость_Стиль_2.xsl")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            xslTran.Transform(xmlDoc, Nothing, xtw)
            'Write the transformed XML to the file.
            ''''''''''''

            DatagridviewToDataset(DataGridView2).WriteXml(xtw)
            xtw.Close()

            Dim tw As XmlTextWriter
            tw = New XmlTextWriter(strFilename, System.Text.Encoding.UTF8)
            tw.Formatting = Formatting.Indented
            tw.Indentation =  3 
            tw.WriteStartDocument()
            tw.WriteProcessingInstruction("xml-stylesheet", _
         "type='text/xsl' href='D:/Ведомость_Стиль_word.xsl'")
            DatagridviewToDataset(DataGridView2).WriteXml(tw)
            tw.Close()

            'Second, transform the DataSet XML and save it to a file.
            Dim xmlDoc As XmlDataDocument = New XmlDataDocument(DatagridviewToDataset(DataGridView2))
            Dim xslTran As Xsl.XslCompiledTransform = New Xsl.XslCompiledTransform()
            xslTran.Load("D:/Ведомость_Стиль_word.xsl")
            tw = New XmlTextWriter(strFilename, System.Text.Encoding.UTF8)
            tw.Formatting = Formatting.Indented
            tw.Indentation =  3 
            tw.WriteStartDocument()
            xslTran.Transform(xmlDoc, Nothing, tw)
            tw.Close()