Application.SendKeys + 汉字 出现乱码

lmlm1001

情况：excel单元格内容导出到txt文档
具体：定义一个string变量(也试过variant)用来储存单元格的数据，然后通过Application.SendKeys发送定义的变量到txt文档（也试过直接发送单元格数据），但是只要发送的内容包含汉字的时候，汉字位就会出现乱码，请各位帮忙解决，小弟感激不尽！

Sub 导出()
    Dim j As Integer
    Dim i As String
   
    AppActivate "excel导出 - 记事本", True
   
    For j = 1 To 4
        
        i = Sheets("sheet1").Cells(1, 1)
        Application.SendKeys Sheets("sheet1").Cells(1, 1)
        Application.SendKeys "{tab}"
        Application.SendKeys i
        Application.SendKeys "{tab}"
    Next
    Application.SendKeys "~", True
End Sub

Book1.rar (6.35 KB, 下载次数: 9)

2014-1-24 10:51 上传

点击文件名下载附件
附件

蓝桥玄霜

http://club.excelhome.net/thread-769810-1-1.html

lmlm1001

非常感谢 蓝桥玄霜 的指点，但是和我的目标略有不同，我想将表格里指定单元格的数据（有汉字）通过sendkeys正确地发送出去，目的地有txt、doc、ppt、cad等等，现在的问题是发送出去后只要是汉字就是乱码，我试过直接发送单元格、发送被单元格赋值的变量、更改变量类型（variant、byte、object）以及strconv都无法正确地发送出汉字，还请 蓝桥玄霜及各位多多帮助！

tpjj

呵呵，这个很好解决，先把要送出的文本放入剪贴板，再用SendKeys模拟Ctrl+V

tpjj

1、首先，要引用Microsoft Forms 2.0 Object Library（C:\WINDOWS\system32\FM20.DLL）

2、把字符串送入剪贴板的方法
      Dim DataObj As New MSForms.DataObject
      DataObj.SetText “字符串”
      DataObj.PutInClipboard

3、执行Ctrl+V
      SendKeys "^v", 1

lmlm1001

非常感谢 tpjj 的指点，问题解决了，太谢谢了