需要调整ppt的“工具--》宏--》安全性”设置为低级。代码如下：PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)DimarrRM,F'输入名单到:TextBox1采用单个空格分隔，最前和最后一个数据后不要留空格（否则可能部分元素抽出为空）'代码注释部分用于调试，或者你可以修改为其他用途，比如可以显示给用户观看。PrivateSubCommandButton1_Click()IfMe.CommandButton1.Caption="停"Then