excel通过数据模板与vba批量制作csv数据表
发布时间:2022-11-16 20:23:20
通过数据模板与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数据表,验证结果!
编辑代码的过程比较复杂,需要有足够的耐心,需要不断地去尝试和修改;
为了相关宏能正常运行,请把宏的安全性设置为最低级别。
猜你喜欢
- WPS中的查找和替换功能想必大家并不陌生吧,在工作中偶尔也会用到,看似很简单的一个功能其实大有用处,平时使用的实在是太少了,本文以替换换行符
- 工作中时常遇到,需要把一个word文件,分割成多个word文件,那么怎么操作呢?下面小编就为大家详细介绍Word如何快速将长文档拆分成短文档
- 近日有一位win10系统的网友,电脑突然蓝屏,出现了一系列英文码"DRIVERPowERsTATEFAILURE"。事实
- Excel 2007中,您可以将图片用作仅供显示的工作表背景。工作表背景不会被打印,也不会保留在单个工作表中或保留在另存为网页的项目中。要点
- Word不能打不开是常见的问题,基本表现为打开Word文档时弹出错误提示“Microsoft Office Word遇到问题需要关闭。”如果
- 相信有很多用户都使用Word来进行一些文档的编辑,不过我们在很使用这款软件的时候难免会遇到一些不熟悉的地方,例如不清楚如何使用Word去制作
- 我们在使用Win10系统删除的文件都会先进入回收站,想清空的话要手动操作,如果你不愿意自己操作,Win10储存感知功能可以帮助你自动清理这些
- Win10系统自带了一个安全软件,叫做Windows Defender,它能够在用户使用电脑的时候,自动检测浏览的网页、下载的文件,检测有没
- Word工作界面是我们最熟悉的界面,但有很陌生。下面小编给大家简单的介绍一下。一、标题栏顾名思义,标题栏是显示文档的标题,默认的标题是“文档
- 在Word里面
- 在word文档中怎么设置成选择题和判断题?很多朋友都不是很清楚,其实操作并不是很难,下面小编就为大家详细介绍一下,不会的朋友可以参考一下,来
- iOS 14的快捷指令有多好用?如何通过iOS 14的快捷指令来实现半自动化?下面通过实例给大家介绍一下iOS 14新系统中如何通过快捷指令
- iOS 16发布之后不少iPhone用户表示升级之后续航表现不行,而且手机存在多个bug,于是苹果火速发布了iOS 16.0.2 正式版。最
- 迅捷pdf转换器怎么编辑PDF文件的内容?想要修改pdf文件,但是却没办法直接编辑,该怎么办呢?下面我们就来看看pdf文件的编辑方法,需要的
- 苹果一年一度的 WWDC 大会将至,大家都知晓本次大会将会以线上的形式进行,那么苹果将会如何呈现这次活动呢?今天苹果给出了答案!全球开发者大
- 在excel图表中查找数据可以用VLOOKUP函数,=VLOOKUP(Lookup_value, Table_array, Col_inde
- 在用word写文件和写论文的时候,我们通常需要制作一个目录,在这儿小编给大家介绍一下怎么生成目录,希望能帮助您。word生成目录步骤1 开需
- 怎样将Project的显示语言设置为英语?安装的是中文版Microsoft Project,但是现在却需要英文版的进度计划文件,该怎么办呢?
- 在编辑Word文档时,有时候由于格式和其他一些特殊的要求,我们需要对文档每页的行数或者每行的字数进行规定,每页和行数和每行的字数均保持一个固
- 我们在报纸、杂志中经常会看到分栏显示的文章,所谓分栏就是将Word文档全部页面或选中的内容设置为多栏显示,要实现文档内容的分栏显示,用户既可