vba批量生成文件夹技巧

① 用VBA如何批量将工作表保存到指定的文件夹

用vba保存到指定的文件夹，这种情况下，我们就是在电脑上先建立一个文件夹，然后上传保存就可以了

② vba操作文件夹

Sub 拷贝文件夹()

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

For i = 2 To 100

If Cells(i, 1) = "" Then Exit For

OldString = "路径说明书"

NewString = "路径" & Cells(i, 1) & "说明书"

fs.Copyfolder OldString, NewString

Set fs = Nothing

Next

End Sub

③ 如何利用Excel批量生成指定名称的文件夹

Excel可以利用VBA批量生成制定名称的文件夹

软件版本：Office2013

方法如下：

1.A列有如下内容，根据其生成对应的文件夹：

④ 求助，用vba实现自动批量复制并修改保存文件

代码在文件模块里，或把以下代码粘到模块里

Sub 写入数据()

wbpath = ThisWorkbook.Path & ""

模板文件地址 = wbpath & "模板文件" & ""

到文件夹 = wbpath & "生成表格复制到该文件夹" & ""

my_file = Dir(模板文件地址)

Do While my_file <> ""

Workbooks.Open Filename:=模板文件地址 & my_file

With ThisWorkbook

data_row = .ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To data_row

If Val(.ActiveSheet.Cells(i, 4)) = Val(Split(ActiveWorkbook.Name, ".")(0)) Then

ActiveWorkbook.ActiveSheet.Range("F2") = .ActiveSheet.Cells(i, 3).Value

ActiveWorkbook.SaveAs Filename:=到文件夹 & .ActiveSheet.Range("B" & i) & ".xlsx"

ActiveWorkbook.Close False

End If

Next i

End With

my_file = Dir

Loop

End Sub

⑤ Excel怎样批量提取文件夹和子文件夹所有文件

主要的方法有：
一、编程的方法，如Excel自带的VBA，以及其他编程方法，如Python
二、Excel自带的Power Qurey数据处理工具，Excel2010以上版本支持，但2010和2013要另外下载安装，而2016以上版本安装后就已默认安装。
新建一个Excel工作簿，在工作簿的工作表中，数据菜单——获取和转换数据——获取数据——来自文件——从文件夹，浏览到要提到文件名的文件夹，打开。就会把文件夹（包括子文件夹）下的所有文件导入到一个预览对话框中，对话框中已可预览到每个文件的文件名及各种文件属性，如创建时间、完整路径等。在此对话框中，选择“转换数据”（Excel版本不同，对话框稍有不同，但大同小异），进入到Power Qurey界面，在PQ界面工作界面中，删除不需要的列，如果文件名不需要扩展名，就对文件名以小数点为分隔符拆分，再删除扩展名列。反正你想怎么整就怎么整。整好后，从PQ的文件菜单中选择关闭并上载到，上载到目录工作表中。
以后文件夹内文件有增减变化，或文件名有修改，只要在工作表中右击，选择“刷新”即可得到更新。
Power Qurey的方法简单快捷，基本上就点几下鼠标。不需要去这编程语言。按上面说的步骤一步步去操作，任何只要对Windows资源管理器有些了解，对Excel有基本了解的人都能完成。
三、DOS时代的方法，度友“二性北B”有介绍。

⑥ 如何在Excel中用VBA创建文件夹

方法/步骤

1

方法1:使用VBA的MkDir语句创建文件夹。

代码如下：

Sub xyf()

On Error Resume Next

VBA.MkDir ("c:/例子")

End Sub

其中 VBA.MkDir ("c:/例子")表示在C盘创建一个名为“例子”的文件夹

On Error Resume Next语句表示如果已经有这个文件夹，则不创建。

如下图所示：

⑦ 如何利用excel批量创建指定名称的文件夹

工具：Office2013

方法如下：

1.在当前Excel文件所在文件夹中，创建以A列内容为名称的文件夹：

⑧ 如何使用excelVBA在指定路径下批量新建指定文件夹

Sub GetFolder()
Dim FolderName, FileName, MyFolder, MyFile As String
FolderName = "abc"
FileName = "abc.xls"
MyFolder = Dir("D:\" & FolderName, 16)
MyFile = Dir("D:\" & FolderName & "\" & FileName, 16)
If MyFolder <> "" Then
MsgBox "The folder is OK"
Else
MkDir "D:\" & FolderName
End If
If MyFile <> "" Then
MsgBox "The File is OK"
Else
Open "D:\" & FolderName & "\" & FileName For Output As #1
Close #1
End If
End Sub

⑨ vba如何自动创建文件夹

给你一个最简单的方法
Sub program
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub

日期的格式可以自己该

⑩ vba生成excel文件

使用vba生成一个excel 文件，可以使用以下方法：

1 Workbooks.Add 方法
1.1 语法
新建一个工作表。新工作表将成为活动工作表。
语法
表达式.Add(Template)
表达式 一个代表 Workbooks 对象的变量。
参数
名称 必选/可选 数据类型 说明
Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略此参数，Microsoft Excel 将创建包含一定数目空白工作表的新工作簿（该数目由 SheetsInNewWorkbook 属性设置）。
返回值
一个代表新工作簿的 Workbook 对象。
说明
如果 Template 参数指定的是文件，则该文件名可包含路径。

1.2 workbooks.add 会自动打开一个“工作簿1”这类的wb文件，并activate之
workbooks.add 会自动生成一个 " 工作簿N" 的WB文件，且active
workbooks.add 在add后，会打开一个“工作簿1”这类的wb文件
并且最后add的 wb文件 成为新的 activeworkbook
Sub test98()
Workbooks.Add
End Sub

1.3 workbooks.add(template)
template Variant 类型，可选

1.3.1 template如果指定为 EXCEL内置的常量
可为以下 XlWBATemplate 常量之一
xlWBATChart
xlWBATExcel4IntlMacroSheet
xlWBATExcel4MacroSheet
xlWBATWorksheet
Sub test91()
Workbooks.Add (xlWBATChart)
Workbooks.Add (xlWBATWorksheet)
Workbooks.Add (xlWBATExcel4MacroSheet)
Workbooks.Add (xlWBATExcel4IntlMacroSheet)
End Sub

1.3.2 若 template指定为文本，文本是一个文件路径，文件必须先存在
（暂时没发现有什么用处）
template 如果本参数为指定一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板

如果template指定为文件，文件必须先存在，否则报错。
那么template为一个路径
如果是完整的绝对路径，则需要带path
如果只是相对路径，那么 excel 2010版本会去这儿找这个文件：D\用户目录/我的文档下面 ,默认目录？
好像指定过后会把新的路径当默认路径
Sub test96()
Workbooks.Add (ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx")
End Sub

Sub test97()
Workbooks.Add (ActiveSheet.Name & ".xlsx")
End Sub

2、thisworkbook.sheets(1).
这个是将当前代码所在工作簿的左侧第一张表拷贝生成新的工作簿文件。新文件包含一张表格。具体对应的文件跟表格可以根据需求调整