VBA制作DT(适用ERIC)

Private Sub OptionButton37_Click() 'DT制作
Shell "cmd.exe /c DEL " & ThisWorkbook.Path & "\*.mos"
Application.Wait Now + TimeValue("00:00:01")

Worksheets("脚本模板").Activate
X = WorksheetFunction.CountA(Worksheets("脚本模板").Range("A:A"))
BRR = Worksheets("脚本模板").Range("B1:B" & X)
AA = 0
arr = Worksheets("脚本模板").[A1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
For k = 1 To UBound(arr)   
    
If Not dic.exists(arr(k, 1)) Then 
       dic(arr(k, 1)) = "set " & arr(k, 2) & "$ " & arr(k, 3) & " " & arr(k, 4)
       'DIC1(arr(k, 1)) = (Application.Index(arr, k))
       AA = AA + 1
       
    Else    
    
        dic(arr(k, 1)) = dic(arr(k, 1)) & vbCrLf & "set " & arr(k, 2) & "$ " & arr(k, 3) & " " & arr(k, 4)
 
  AA = AA + 1
    End If
Next
For Each itm In dic.Keys
    Open ThisWorkbook.Path & "\" & itm & ".mos" For Output As #1
    If CheckBox6.Value = True And CheckBox5.Value = False Then
       Print #1, "uv use_complete_mom=1"; Chr(10); "lt all"; Chr(10); "$date = `date +%y%m%d`"; Chr(10); "cvms bef_cr_" & Worksheets("脚本模板").Cells(2, 6).Value&; "_$date"; Chr(10); Chr(10); dic(itm); Chr(10); Chr(10); "wait 5"; Chr(10); "$date = `date +%y%m%d`"; Chr(10); "cvms aft_cr_" & Worksheets("脚本模板").Cells(2, 6).Value&; "_$date": Reset
    ElseIf CheckBox6.Value = False And CheckBox5.Value = True Then
       Print #1, "uv use_complete_mom=1"; Chr(10); "lt all"; Chr(10); "$date = `date +%y%m%d`"; Chr(10); "cvms bef_cr_" & Worksheets("脚本模板").Cells(2, 6).Value&; "_$date"; Chr(10); Chr(10); "mr unlockcell"; Chr(10); "ma unlockcell ENodeBFunction=1,EUtranCell[FT]DD= administrativeState 1"; Chr(10); "bl unlockcell"; Chr(10); "wait 5"; Chr(10); dic(itm); Chr(10); Chr(10); "deb unlockcell"; Chr(10); "mr unlockcell"; Chr(10); "wait 5"; Chr(10); "$date = `date +%y%m%d`"; Chr(10); "cvms aft_cr_" & Worksheets("脚本模板").Cells(2, 6).Value&; "_$date": Reset
    End If
    BB = BB + 1
Next
MsgBox "OK!一共输出：" & BB & "个站点!"
End Sub