规范表整理

Sub TxtCreate()
Dim i, m, n As Integer
Dim x, d, GbType As String

m = 28
n = 28
GbType = "CIAS"
d = "F:\????????\??????\??????\" & GbType & "\"

Set CSheet = ThisWorkbook.Worksheets("D")
Set fs = CreateObject("Scripting.FileSystemObject")

For i = s To e

    x = CSheet.Cells(i, 1)
    
    Select Case GbType
    Case "CECS"
        If x < 10 Then
            x = "0" & x
        End If
    Case "GBJ"
        x = 50000 + x
        GbType = "GB"
    Case "TBJ"
        x = 10000 + x
        GbType = "TB"
    End Select
    
    x = GbType & x & "-" & CSheet.Cells(i, 3)
  
    
    If (1 = CSheet.Cells(i, 2)) Then
    
        x = x & "T"
        
    End If
    
    x = d & x & " " & CSheet.Cells(i, 5)
    
    If Not (fs.FileExists(x & ".pdf")) Then
        fs.CreateTextFile(x, True).Close
    End If
    
Next
    
End Sub