通過數據模板與VBA結合，批量制作CSV數據表，要求使用規則逐步遞增的命名方式來命名批量制作出來的數據表，數據表的內容根據實際需求由最初的模板和提供的基礎值自動生成。盡量減少手動操作，真正實現全自動！如圖所示為批量制作出來的CSV數據表。
編輯數據模板，只要A2和B2單元格發生變化，其它相應的單元格就會通過引用公式來更新數據；
編輯好數據模板后，打開VBA編輯器，選擇菜單“工具”——“宏”——“Visual Basic 編輯器”（快捷鍵為：Alt+F11）；
插入用戶窗體，在Visual Basic 編輯器菜單欄里選擇“插入”——“用戶窗體”，然后編輯用戶窗體（該窗體作為模板基礎數據錄入部分），控件的具體使用稍微復雜一些，這里就不作介紹啦；
編輯窗體和控件代碼，右擊“UserForm1”——“查看代碼”，在代碼窗口錄入相應的代碼（由于這部分涉及的內容和步驟比較繁瑣，只提供最終代碼參考），代碼如下：
Private Sub CommandButton1_Click()
Dim n As Long
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox2 < TextBox3 Then
On Error Resume Next
MkDir CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/" & TextBox1
For n = 1 To (TextBox3 - TextBox2 + 1) / 10
Sheets(1).Cells(2, 1).Value = TextBox1 & "-" & n
Sheets(1).Cells(2, 2).Value = TextBox2 + 10 * (n - 1)
ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/" & TextBox1 & "/" & TextBox1 & "-" & n, FileFormat:=xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Next n
Unload Me
MsgBox "數據處理成功！", vbOKOnly + 64, "提示"
Else
MsgBox "請核對數據信息！", vbOKOnly + 64, "提示"
TextBox1.SetFocus
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
Dim i%, Str$
With TextBox1
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1) '遍歷文本框中輸入的每一個字符。
Select Case Str
Case "a" To "z" '列出允許輸入的字符。
Case "A" To "Z" '列出允許輸入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果輸入的不是允許的字符，則使用Replace函數替換成空白。
End Select
Next
End With
End Sub
Private Sub TextBox2_Change()
Dim i%, Str$
With TextBox2
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1) '遍歷文本框中輸入的每一個字符。
Select Case Str
Case "0" To "9" '列出允許輸入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果輸入的不是允許的字符，則使用Replace函數替換成空白。
End Select
Next
End With
End Sub
Private Sub TextBox3_Change()
Dim i%, Str$
With TextBox3
For i = 1 To Len(.Text)
Str = Mid(.Text, i, 1) '遍歷文本框中輸入的每一個字符。
Select Case Str
Case "0" To "9" '列出允許輸入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果輸入的不是允許的字符，則使用Replace函數替換成空白。
End Select
Next
End With
End Sub
編輯好窗體代碼后，點擊保存；
插入模塊，該模塊的作用是調出錄入窗體（雖然窗體本身已經實現自動加載，但是不能實現二次自動加載），在Visual Basic 編輯器菜單欄里選擇“插入”——“模塊”，寫入代碼：
Sub 打開窗體()
UserForm1.Show
End Sub
模塊代碼錄入完畢后，點擊保存，然后關閉Visual Basic 編輯器；
回到數據表，調出錄入窗體，選擇菜單“工具”——“宏”——“宏”（快捷鍵為：Alt+F8）——選擇“打開窗體”——“執行”；
按規定要求，錄入基礎數據，然后點擊“確定”（一旦確定，VBA代碼馬上執行，將在桌面新建一個名為“Excel”的文件夾，在“Excel”文件夾里批量創建10個CSV工作簿，名稱依次為Excel-1至Excel-10，內容也相應變化），確認“數據處理成功！”；
在桌面找到批量創建的CSV數據表，驗證結果！
編輯代碼的過程比較復雜，需要有足夠的耐心，需要不斷地去嘗試和修改；
為了相關宏能正常運行，請把宏的安全性設置為最低級別。
