hein 发表于 2012-11-24 22:05

懂Excel里面VBA的请入一下

建立了一个新模块,在里面写了个Function测试
在sheet1的C2单元格写下了=XMLconv(A1,A2,B1,B2)

然后结果出来后发现,显示结果无法看到表格中文本的回车(已经测试了单元格A2中的回车是chr(10),也是过vbcrlf和chr(13)了)
这个也就算了,我复制C2单元格,然后粘贴到记事本,也算有回车了,但是居然看到的是头上和结尾各带一个引号
"文本
文本内容1
文本内容2
文本内容3
XML格式
XML 1.0"

如上,折腾了老半天,尝试直接个单元格赋值,比如
sheets("sheet1").cells(2,3)="aaaa"
sheets("sheet1").cells(2,3).value="aaaa"
ThisWorkbook.sheets("sheet1").cells(2,3).value="aaaa"
等等,都错误,也不知道怎么赋值………
复制单元格,然后粘贴到一个格式为“文本”的格子,并且仅粘贴数据,看到没有引号,但是再复制到记事本,情况依然


附件如下,记得设置安全性为用户可以自定义是否运行宏,excel2003
http://www.ugschina.com/forum/upfiles/201211/hein@0407109566114.rar

白左 发表于 2012-11-24 22:30

hein 发表于 2012-11-24 22:53

哦,谢谢,原来这样啊
现在就是那个引号不知道怎么解决

白左 发表于 2012-11-24 23:18

hein 发表于 2012-11-25 11:43

恩谢谢,原来是excel自己
页: [1]
查看完整版本: 懂Excel里面VBA的请入一下