摘要:
Public Function AsciiToHex(strChinese As String) As String '汉字转16进制ASCII Dim iLen As Long iLen = Len(strChinese) Dim tmpByte() As Byte Dim... 阅读全文
摘要:
找了半天的资料,终于解决了,关键是下面红色部分 这个是经过调试成功的代码,成功创建了一个yourfile.xls文件 具体权限设置: 控制面版-->管理工具-->组件服务-->计算机-->我的电脑-->DCOM配置-->Microsoft Excel应用程序-->属性-->安全-->编辑-->添加-->高级--立即查找--选择EVERYONE--确定-确定 把这3个全添加上去就可以执行了 阅读全文