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