text1显示为“周公”
a1=allt(thisform.text1.value)
copy to d:\&a1.xls type xl5
程序运行不了，提示“命令中含有不能认别的智短语或关键字”。

a1=allt(thisform.text1.value)
copy to d:\a1.xls type xl5
出来的文件名为“a1.xls ”而不是我希望的“周公.xls”。

－－－－谢谢！！

7楼 8楼

a1 = "D:\" + ALLTRIM(ThisForm.Text1.Value) + ".xls"
COPY TO "&a1" TYPE XL5

谢谢，正解！感谢您，感谢大家！

试试下面的
a1 = "COPY TO D:\" + ALLTRIM(ThisForm.Text1.Value) + ".xls TYPE XL5"
&a1

a1=allt(thisform.text1.value)
copy to d:\&a1.xls type xl5
为什么会错知道吗？因为宏代换后的第一个小数点代表着宏代换变量名的结束，也就是说，红色部分的那个小数点不是主干名和扩展名的分隔符。要解决此问题，除了用邓版的方法外，也可以在这个方案上加一个小数点，问题就解决了。也即，第二条命令改为：copy to d:\&a1..xls type xl5

如果文件名中间带空格呢？

哈哈，既然问得这么绝，就来个终极办法吧：copy to "d:\&a1..xls" type xl5。这个总可以了吧？如果要严格限制文件名中不带空格，我建议在Text控件的InteractiveChange事件中加一句：This.Value=ALLTRIM(This.Value)，这样，该文本框就无法录入英文半角的空格了。当然，这个办法不能阻止在已有内容中插入英文半角空格。但用“copy to "d:\&a1..xls" type xl5”命令可以把内容中间的空格一起变成文件名的一部分。


[ 本帖最后由 taifu945 于 2013-7-15 10:42 编辑 ]

细心

办法可行