不知道你说的指定拓展名是什么意思，如果是写文件，可以使用文件处理代码：Open "文件的路径" For Output As #文件号 Print #文件号, "输出的内容"Close #文件号文件号可以使用 FreeFile() 函数获取。例如：i = FreeFile() 获取可用的文件号。
