VB脚本----批量写入数据创建文件

Sub test()

'On Error Resume Next   '跳过报错继续执行
'-------- 创建文件夹
'MkDir "C:\Users\lg980\Desktop\new\00"
'-------- 声明变量
Dim i As Long, a As String, b As String

'------ 循环体 -----------'
'--- for一般语法  For [循环变量] = 起始值 To 结束值 [Step 步长]
'---                     循环体
'---                     Next [循环变量]
'---     其中：
'---    循环变量:       用于存储当前循环迭代的值?
'---    起始值:         指定循环变量的起始值?
'---    结束值:         指定循环变量的结束值?
'---    步长：          可选参数，指定循环变量的增量。默认为1。
'---    循环体:         需要重复执行的代码块?
'---    Next：          表示循环结束。如果指定了循环变量，则必须与For语句中的循环变量匹配。
For i = 1 To Cells(65536, 1).End(xlUp).row
a = Cells(i, 1)          ' 第一行数据
b = Cells(i, 2)          ' 第二行数据
'---    文件夹后面必须要有斜杠"\"，不然open失败
'---  open一般语法  Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]，关闭文件：CLOSE #filenumber。
'---  其中，outputstream指定要输出到的输出流，可以是控制台窗口、文件句柄或打印机等。variable1, variable2, ..., variableN是要输出到输出流中的变量或表达式。
Open "C:\Users\lg980\Desktop\new\" & a & ".scr" For Output As #1
'---   Print的一般语法    Print #outputstream, variable1, variable2, ..., variableN
'---  其中，outputstream指定要输出到的输出流，可以是控制台窗口、文件句柄或打印机等。variable1, variable2, ..., variableN是要输出到输出流中的变量或表达式。
       
        Write #1, b   ' #1 第一个文件  write和print都可以
        Close #1
        Next i        ' 继续循环
'------ 循环体 -----------'

        MsgBox "完成" & i & "条数据导出"
        
End Sub