背景：
计划用VBA写一个xml文件（开发工具 源 不能满足需求）
整个脚本要很多次写入动作，所以做一个子程序直接调用。
解读：
1.定义公共变量 str xmlfile 为字符串
2.定义I为数字（还未使用到）
sub shishi
赋值 <groups> 到变量 str
调用 xiexml 并带变量 str
sub xiexml（接收任意字符串）
赋值文件路径到变量 xmlfile
追加写入的方式打开文件到 #1
写入变量 str
关闭变量
完成
原文：https://blog.51cto.com/mflag/2360656