封封窝

摘要： 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个全添加上去就可以执行了 阅读全文