Excel如何批量制作CSV數據表

 　　眾所周知，Excel的功能十分強大，而其最核心的功能在於數據處理。熟練駕奴Excel，您的工作將充滿快樂和自信。當您僅花上幾分鐘就完成了別人花上幾天功夫才能完成的數據處理工作時，心中的那份喜悅只有您自己才能體會得到!下面給大家展示的是Excel批量制作數據表……

　　目的

　　1通過數據模板與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數據表，驗證結果!