Dim txtFileName As String ' 定义变量用以保存文件输出路径及名称txtFileName = " C:AA.CSV " Dim txtData As String ' 定义变量以保存记录信息txtData = " AA,BB,CC,DD " ' 记录每个字段以豆号隔开' CSVファイルをOpen txtFileName For Output As # 1 ' 打开上面指定的文件,并开始保存数据 Print # 1 , txtData ' 将信息数据保存在文件中 Print # 1 , txtDataClose # 1 ' 关闭