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 "數(shù)據(jù)處理成功！", vbOKOnly + 64, "提示"
Else
MsgBox "請(qǐng)核對(duì)數(shù)據(jù)信息！", 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) '遍歷文本框中輸入的每一個(gè)字符。
Select Case Str
Case "a" To "z" '列出允許輸入的字符。
Case "A" To "Z" '列出允許輸入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果輸入的不是允許的字符，則使用Replace函數(shù)替換成空白。
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) '遍歷文本框中輸入的每一個(gè)字符。
Select Case Str
Case "0" To "9" '列出允許輸入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果輸入的不是允許的字符，則使用Replace函數(shù)替換成空白。
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) '遍歷文本框中輸入的每一個(gè)字符。
Select Case Str
Case "0" To "9" '列出允許輸入的字符。
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果輸入的不是允許的字符，則使用Replace函數(shù)替換成空白。
End Select
Next
End With
End Sub