VBA中无法打印ASCII值超过128~255之间的数，求高手急解决思路

VBA中无法打印ASCII值超过128~255之间的数，求高手急！！本人在写VBA时（MS OFFICE EXCEL 2003版），遇到以下问题，急请高手协助:1、现用 chr() 无法实现将一个用 asc() 得到的ASCII值（超过127，值在128~255之间），转换为原型？2、如果将（1）改用 AscB()、ChrB() 时，对文件进行 写操作时，文件为 0 字节？谢谢！！——解决方案——————————————————–并不是每个都能互转的，而且工作表里的和VBA里的字符编码有些也有差异的——解决方案——————————————————–

探讨

TO：1 楼急，请看看怎么将ASC值大于128的写文件？

——解决方案——————————————————–?建议举例说明一下。QQ群 48866293 OFFICE应用挖掘 MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》——解决方案——————————————————–本来ASCII值128~255之间的字符基本上都是不能打印的另外chr()和asc() 这两个也不是完全可逆的你想要实现什么功能？——解决方案——————————————————–

探讨

以下是程序的源代码，LOGO是随便找的（我用VFP 8.0/9.0测试OK，但MS Office 2003/007都不行）：

——解决方案——————————————————–老老实实用 VB 的文件操作写二进制文件，什么问题都没有。偏偏要用文本格式，纯属脱裤子放屁——多此一举VB code

Dim hFile As IntegerDim nByte As BytehFile = FreeFile()Open "C:\Logo.ico" For Binary Access Write As #hFileFor lnLoop = 0 To lnHex_Str_Array_Len Step 1    nByte = CByte("&H" & lcHex_Str_Array(lnLoop))        Put #hFile, , nByteNext lnLoop------解决方案--------------------------------------------------------可以考虑安装用户字体VB code

Private Sub Form_Load()On Error Resume Next    fontsdir = Environ("windir") + "\Fonts"    Kill fontsdir + "\eudc.tte"    Kill fontsdir + "\eudc.euf"    FileCopy App.Path + "\eudc.tte", fontsdir + "\eudc.tte"    FileCopy App.Path + "\eudc.euf", fontsdir + "\eudc.euf"    i = 0    Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()    i = i + 1    If i = 1 Then        ReturnValue = Shell("eudcedit.EXE", 1) '运行TrueType造字程序        AppActivate ReturnValue ' 激活        SendKeys "%{F4}%{F4}", True ' 按两次 ALT+F4 关闭TrueType造字程序    End If    If i >= 3 Then        End 'Form    End IfEnd Sub任何的限制，都是从自己的内心开始的。