已解决，非常非常感谢liucqa大侠!!!!! 深深困扰多日! 一个诡异的EXCEL VBA问题求指导!

veggieg

求指导依据路径前台打开一个后缀为pcdmft并按CTRL+V黏贴剪贴板的VBA代码~！！这样应该可以的，大概需要调用API函数吧，比较深哦，希望各位高手、大侠、斑竹不吝指教，非常谢谢你们！！ wierd.rar (8.71 KB, 下载次数: 42)

2012-2-23 21:12 上传

点击文件名下载附件

下面是需要这样操作的原因~~很诡异的哦~！
使用EXCEL VBA打开一个后缀为.pcdmft的文件（该类文件我已设置txt为默认打开方式），向其输入数据，但是真正运行打开后缀pcdmft的程序却无法打开了刚才输入数据的pcdmft文件了，提示无法识别的字符，经过检查，输入数据里的中文字符都无法识别。诡异的是我的眼睛怎么看都是一样的，看格式也是一样的~~（人直接感官的局限性啊）

仔细发现EXCEL导入的和手复制的pcdmft文件大小有0.05KB的差别。想不到是什么原因导致的！

如果把无法识别的后缀为.pcdmft文件内容复制到一个未被EXCEL打开的后缀为.pcdmft的文件里，则可被pcdmft的程序识别。看来是EXCEL打开.pcdmft文件时改变了里面的一些东西？还是导入数据时改变了其中的内部数据或者设置？（很奇怪pcdmft文件用TXT打开，去掉里面的所有源代码，它仍然有3字节的大小！）留给有热爱科学和具有研究精神的人研究了 ^^

veggieg

求指导依据路径前台打开一个TXT （前台打开）

之后用sendkeys  CTRL+V黏贴剪贴板的VBA代码~！！

大概需要调用API函数吧，比较深哦，希望各位高手、大侠、斑竹不吝指教，非常谢谢你们！！

veggieg

求指导依据路径前台打开一个TXT （前台打开）的VBA代码 不胜感谢！

veggieg

没有答案啊啊 天啊啊啊啊

liucqa

Public Declare Function WideCharToMultiByte Lib "kernel32" ( _
        ByVal CodePage As Long, _
        ByVal dwFlags As Long, _
        ByVal lpWideCharStr As Long, _
        ByVal cchWideChar As Long, _
        ByRef lpMultiByteStr As Any, _
        ByVal cchMultiByte As Long, _
        ByVal lpDefaultChar As String, _
        ByVal lpUsedDefaultChar As Long) As Long

Public Const CP_UTF8 = 65001
Private Sub WriteOut(strPath As String, str As String)
    Dim lBufSize As Long
    Dim lRest As Long
    Dim bUTF8() As Byte
    Dim TLen As Long
   
    TLen = Len(str)
    lBufSize = TLen * 3 + 1
    ReDim bUTF8(lBufSize - 1)
    lRest = WideCharToMultiByte(CP_UTF8, 0, StrPtr(str), TLen, bUTF8(0), lBufSize, vbNullString, 0)
    If lRest Then
        lRest = lRest - 1
        ReDim Preserve bUTF8(lRest)
        Open strPath For Binary As #1
        Put #1, , bUTF8
        Close #1
    End If
End Sub

上面代码可以输出UTF-8格式，你看看能用不，我没试过

veggieg

...........................悲剧了 问题太难了吗

liucqa

没什么神秘的，你的.pcdmft的格式是UTF-8。
VBA默认的操作编码内部是UNICODE，输出一般是ANSI/GB2312。你得用记事本-另存为UTF-8格式

veggieg

liucqa真是神人啊!!!!!!太强了!!!!!!!!!!!!!!!!!!!!!

veggieg

FileCopy "D:\V&V\OOCL_I_DATA_2011\复制使用\复制使用.pcdmft", "D:\V&V\OOCL_I_DATA_2011\复制使用\复制使用1111.pcdmft"
   
    Open "D:\V&V\OOCL_I_DATA_2011\复制使用\复制使用1111.pcdmft" For Output As #1

    For iii = 1 To countstart
   
        Val = Cells(iii, 48)
        
        Print #1, Val
   
    Next
    Close #1

我之前采用非常笨的方法去希望保留这个pcdmft后缀文件的格式，
经过高手的指点已经可以不用这样麻烦了，而是直接创建一个txt
之后用excel输出utf-8格式，再保存就OK了！

可是我新手，虽经高人指导，由于基础浅薄，仍然不明白呢！
现贴出代码向高手求教应该如何修改！

求教直接创建一个txt之后

新建TXT后录入内容的代码我已经有了：
    For iii = 1 To countstart
   
        Val = Cells(iii, 48)
        
        Print #1, Val
   
    Next
    Close #1

求教用excel输出utf-8格式，再保存的代码，非常感谢啊！

诚心求指导！！谢谢谢谢！！

veggieg

http://club.excelhome.net/thread-777114-1-1.html
http://club.excelhome.net/thread-198400-3-1.html