直接复制DataGridView中的数据，中文会变成乱码

 Private Sub DataGridViewX1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles DataGridViewX1.KeyPress
        If (AscW(e.KeyChar.ToString()) = 3 AndAlso DataGridViewX1.RowCount > 0) Then
            Dim pDataObject As DataObject = DataGridViewX1.GetClipboardContent()
            If (pDataObject Is Nothing) Then
                Return
            End If
            Dim pContent As String = pDataObject.GetData(DataFormats.UnicodeText).ToString()
            Try
                Clipboard.Clear()
                Clipboard.SetText(pContent, TextDataFormat.UnicodeText)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, My.Application.Info.Title)
            End Try
        End If
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Try
            Dim filepath As String = Application.StartupPath & "/" & Now.ToFileTimeUtc & ".xls"
            Dim objexcel As New Excel.Application()
            Dim objbook As Excel.Workbook = objexcel.Workbooks.Add()
            objbook.SaveAs(filepath)

            '设置复制模式为:连同行头和表头一起复制
            Me.DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
            '如果不需要复制行头，就把它隐藏掉
            Me.DataGridView1.RowHeadersVisible = False
            '选中DataGridView1的所有内容
            Me.DataGridView1.SelectAll()
            '判断DataGridView1中是否有选中单元格(与上面好像有点矛盾,自行处理)
            If Me.DataGridView1.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
                Clipboard.SetDataObject(Me.DataGridView1.GetClipboardContent())
            End If
             '直接在Excel中粘贴
            'objexcel.ActiveSheet.paste()
            '為防止亂碼。使用選擇性粘貼
            '下面這一行，相當于在Excel中點擊右鍵->選擇性粘貼->文本
            'objexcel.ActiveSheet.PasteSpecial(Format:="文本", Link:=False, DisplayAsIcon:=False)

            '修改为选择性粘贴--> Unicode 文本

             objexcel.ActiveSheet.PasteSpecial(Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False)
            '选中Excel所有单元格
            objexcel.Cells.Select()
            '不自动换行
            objexcel.Selection.WrapText = False
            '自动调整列宽
            objexcel.Columns.AutoFit()
            '储存
            objbook.Save()
            '退出
            objbook.Close()
            objexcel.Quit()
            objbook = Nothing
            objexcel = Nothing
            killexcel()
            '提示打开文件
            If MessageBox.Show("档案储存在:" & filepath & ",你要打开吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
                Process.Start(filepath)
            End If
        Catch ex As Exception
            killexcel()
            MsgBox(ex.Message)
        End Try
    End Sub

    '杀掉程序创建的Excel进程
    Private Sub killexcel()
        Try
            For Each proc As Process In Process.GetProcessesByName("EXCEL")
                If proc IsNot Nothing AndAlso proc.MainWindowTitle = "" Then
                    proc.Kill()
                End If
            Next
        Catch ex As Exception
            Throw ex
        End Try
    End Sub