选中datagridview中的内容，按下ctrl+c进行复制，粘贴到EXCEL中中文乱码

Question

datagirdview中有很多行数据
现在只想选择其中的某些数据
然后ctrl+c进行复制
但是到EXCEL中粘贴后发现中文出现乱码
但是记事本中就不会在网上找了一下，说是要重写ctrl+c，具体怎么弄，我不清楚，想请教各位或者用鼠标右键出现复制菜单也行，总之能实现把内容复制下来，然后在别处可粘贴就行

Answer 1

这个没做过
有导出到excel的代码要不？

Answer 2

 我也遇到个问题 ：在导入导出时，其中在导出的excel表中添加记录后再导入到access时却丢失添加的记录这是为什么呢Private Sub into_Click() '导入
  Dim i As Integer, s As Integer
 Dim Econ As New ADODB.Connection
 Dim ers As New ADODB.Recordset
Dim acon As New ADODB.Connection
 Dim ars As New ADODB.Recordsetacon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\10.10.0.250\图形流向\sclsylb.mdb;Persist Security Info=False"Econ.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\backup.xls;Persist Security Info=False;Extended Properties = 'excel 5.0;HDR = YES;IMEX = 1'"
Econ.CursorLocation = adUseClient
acon.CursorLocation = adUseClientacon.Open
Econ.Openers.Open "select * from " + jitaihao.Combo1.Text + "", Econ, 1, 3
ars.Open "select * from " + jitaihao.Combo1.Text + "", acon, 1, 3
acon.Execute ("delete * from " + jitaihao.Combo1.Text + "")Do While Not ers.EOF
On Error Resume Nextars.AddNew
For s = o To ers.Fields.Count - 1
ars.Fields(s) = ers.Fields(s)
Next s
ars.MoveNext
ers.MoveNext
ars.Update
ars.MoveFirstLoop
MsgBox "导入成功", vbOKOnly, "提示"ars.Close
ers.Close
Set ars = Nothing
Set ers = Nothing
End Sub
Private Sub out_Click() '导出按钮 Dim db As DatabaseSet db = OpenDatabase("\\10.10.0.250\图形流向\sclsylb.mdb")If Dir("E:\backup.xls") <> "" Then
Kill ("E:\backup.xls")
ElseCall db.Execute("select 图号,图名,材料,件数,* into " + jitaihao.Combo1.Text + " In 'E:\backup.xls' 'excel 5.0;' from " + jitaihao.Combo1.Text + "")
MsgBox "导出成功", vbOKOnly, "提示"
End If
db.Close
Set db = NothingEnd Sub
Private Sub out_Click() '导出按钮Dim db As DatabaseSet db = OpenDatabase("\\10.10.0.250\图形流向\sclsylb.mdb")If Dir("E:\backup.xls") <> "" Then
Kill ("E:\backup.xls")
Elsedb.Execute ("select 图号,图名,材料,件数,* into " + jitaihao.Combo1.Text + " In 'E:\backup.xls' 'excel 5.0;' from " + jitaihao.Combo1.Text + "")
MsgBox "导出成功", vbOKOnly, "提示"
End If
End Sub
Private Sub into_Click() '导入
 Dim db As Database
 Dim rs As Recordset
 Dim i As Integer
 Set db = OpenDatabase("E:\backup.xls", True, False, "Excel 5.0")i = MsgBox("是否导入", vbYesNo, "提示")
 
 If i = 6 Then
db.Execute (" insert into " + jitaihao.Combo1.Text + " in '\\10.10.0.250\图形流向\sclsylb.mdb'  Select * from " + jitaihao.Combo1.Text + "")
MsgBox "导入成功", vbOKOnly, "提示"
 Else
 MsgBox "取消导入", vbOKOnly, "提示"
 End If
End Sub