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

veggieg · 发表于 2012-2-23 21:13

本帖最后由 veggieg 于 2012-2-24 20:22 编辑

求指导依据路径前台打开一个后缀为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 · 发表于 2012-2-23 21:34

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

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

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

veggieg · 发表于 2012-2-23 22:01

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

veggieg · 发表于 2012-2-23 23:01

没有答案啊啊天啊啊啊啊

liucqa · 发表于 2012-2-24 00:12

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 · 发表于 2012-2-24 00:03

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

liucqa · 发表于 2012-2-24 00:07

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

veggieg · 发表于 2012-2-24 00:45

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

veggieg · 发表于 2012-2-24 09:03

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 · 发表于 2012-2-24 09:16

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

		自动登录	找回密码
密码			免费注册