【vba】【excel】创建文件夹

最新推荐文章于 2024-06-05 07:46:41 发布

程序员没有假期

最新推荐文章于 2024-06-05 07:46:41 发布

阅读量514

点赞数 7

文章标签： excel 服务器

本文链接：https://blog.csdn.net/weixin_61256014/article/details/135693244

版权

先判断output文件夹是否存在，如果没有的话直接创建

If Dir(ThisWorkbook.Path & "\output", vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "\output"
logger.InfoLog "文件夹创建完成", True
End If

也可以自己指定路径，例子是这个tool所在位置的路径

就是这句话才是重点

MkDir ThisWorkbook.Path & "\output"

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

程序员没有假期

关注关注

7
点赞
踩
9

收藏

觉得还不错? 一键收藏
1
评论
【vba】【excel】创建文件夹

logger.InfoLog "文件夹创建完成", True。先判断output文件夹是否存在，如果没有的话直接创建。也可以自己指定路径，例子是这个tool所在位置的路径。
复制链接

扫一扫

VBA创建文件夹，根据文件名创建文件夹

weixin_45795285的博客

04-24

2704

Sub test2() Dim Fso As Object, oFile As Object, downloadpathfile$, filepath$, sFolder$, t$ downloadpathfile = [B5].Value & "\" t = [B3].Value Set Fso = CreateObject("Scripting.File...

使用VBA创建文件夹

IT与开发人员的地盘

05-27

1767

我经常可以在用户的硬盘驱动器或网络驱动器上创建文件夹来存储文件。但是，问题之一是，如果父文件夹还不存在，则内置函数MkDir的标准将失败。因此，我做了一个自定义函数，该函数将循环遍历并根据需要创建目录。如果创建成功，它将返回True。我确信还有改进的空间，因此，如果有人要添加一些内容，请继续。用法示例： IfMakeDir("C:\MyAppWorkfolder\2012\Jan...

1 条评论您还未登录，请先登录后发表或查看评论

VBA新建文件夹

最新发布

豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!

06-05

312

【代码】VBA新建文件夹。

Excel vba 新建文件夹

09-10

672

检测EXCEL文件所在目录下，是否以前当工作表命名的文件夹，如果没有提示创建。 Sub mkdir() spatch = Excel.ThisWorkbook.Path newmd = spatch & "\" & ActiveSheet.Name t = Dir(newmd, vbDirectory) If t = "" Then i = MsgBox(...

VBA中根据工作表中的数据创建文件夹结构

m0_74737305的博客

10-03

804

这种自动创建文件夹结构的方法可以用于许多需要按照特定模式组织文件夹的应用场景，例如日常文件管理、数据备份等。

Excel表格VBA-获取文件夹内所有文件路径.zip

04-26

在Excel VBA（Visual Basic for Applications）编程中，获取文件夹内所有文件的路径是一项常见的任务，这在处理大量数据或者自动化文件管理时非常有用。本压缩包中的"获取文件夹内所有文件路径.xlsm"文件是一个示例...

Excel 中VBA文件夹操作

05-06

1. **创建文件夹** - 方法一： ```vba MkDir "D:\folder" ``` - 方法二： ```vba Set abc = CreateObject("Scripting.FileSystemObject") abc.CreateFolder "D:\folder" ``` 2. **创建文件并保存** - ...

Excel-VBA宏编程实例源代码-创建文件夹.zip

12-13

在Excel VBA宏编程中，创建文件夹是一项基础但实用的操作，尤其在自动化办公环境中，能够大大提高工作效率。这个"Excel-VBA宏编程实例源代码-创建文件夹.zip"压缩包包含了一个名为"创建文件夹.xlsm"的文件，这是一个...

汇总指定文件夹内所有工作薄_ExcelVBA_

09-30

标题中的“汇总指定文件夹内所有工作薄_ExcelVBA_”表明这是一个关于使用Excel的VBA（Visual Basic for Applications）编程技术来整合一个文件夹内所有Excel工作簿的项目。VBA是Microsoft Office应用程序中内置的一...

Excel-VBA宏编程实例源代码-创建文件夹(FileSystemObject).zip

12-13

这个"Excel-VBA宏编程实例源代码-创建文件夹(FileSystemObject).zip"压缩包文件包含了使用VBA（Visual Basic for Applications）通过FileSystemObject（FSO）来创建文件夹的源代码实例。以下是对这一主题的详细讲解...

VBA多级目录创建

12-27

VBA多级目录创建目录API 判断目录是否存在等多种方法

VBA文件批量拷贝（自动创建多层目录结构）

06-03

通过VBA实现了文件批量拷贝支持多层文件结构适合使用：带目录的文件拷贝适合使用：带目录的文件拷贝

【EXCEL VBA】批量创建文件夹

ssq9595的博客

04-30

167

【代码】【EXCEL VBA】批量创建文件夹。

VBA：用MkDir函数创建多层文件夹

qq_64613735的博客

12-30

7009

一、假设问题在VBA中，如果直接用Dir()函数创建文件夹，只能在已有文件夹里创建一层子文件夹。如：已存在路径：C:\A 不存在路径：C:\A\B 现在如果要创建路径：C:\A\B\D\F 这种情况下，用Dir()直接是创建不了的，当然可以用其他对象创建，但是如果非得用Dir()函数创建，也不难。二、解决思路 1. 把需要创建的路径 C:\A\B\D\F 用“\”分割成数组，位次判断第一次判断： C: 第一次判断： C:\A 第一次判断： C:\A\B

已有一个Excel表格，用VBA批量新建文件夹

Zero_fu的博客

10-21

7249

已有一组Excel表格数据，使用VBA快速批量建文件夹不知道标题怎么写。已经有了这样一组数据然后需要根据这两组数据新建文件夹，代码如下 Sub 建文件夹() Dim i As Integer '用于下方数组 Dim Arr1(), Arr2() '定义一个数组，不能定义大小和类型 Dim Fso, Fld '定义文件路径 Dim rowmax '找到数据的行数 start_time = Timer '计时开始 '数据的行数

Vba批量新建文件夹并移动文件

北七零度

01-03

598

vba批量新建文件夹并移动文件

vba 中，　创建文件夹，　获取行数，　新建excel文件

成不了佛,便堕落吧

06-06

3529

在文件夹不存在的情况，建立一个文件夹Sub createDir(pathName As String) Dim tmpDir As String On Error Resume Next tmpDir = Dir(pathName) If tmpDir = "" Then MkDir pathName End If End Sub

dbf文件怎么创建_Excel VBA和文件夹-1.13总结篇

weixin_39881575的博客

11-22

1816

Excel VBA和文件夹-1.13总结篇第一系列结束，掌声走起。前景提要好了，按照个人计划，VBA和文件夹之间的种种关联的分享，到今天就告一段落了，在之前学习的过程中，因为自己开始都是自学的，所以知识点也是非常的零散，所以为了更全面的涵盖一些和文件夹有关的知识，也是特意去百度了一下，一直翻了大概有10多页的样子吧，个人感觉相关的知识点，应该就这些了，如果可以全部理解吃透的话，日常工作中一些重复性...

excel vba自动生成文件夹目录

09-19

在Excel VBA中，可以使用`MkDir`函数和`Dir`函数来自动创建文件夹目录。首先，我们需要声明一个`FolderPath`变量来存储文件夹路径。接着，我们可以使用`InputBox`函数来让用户输入文件夹路径。代码如下： ```vba Dim FolderPath As String FolderPath = InputBox("请输入文件夹路径：") ``` 接下来，我们可以使用`Dir`函数来检查文件夹是否存在。如果文件夹不存在，则使用`MkDir`函数来创建文件夹。代码如下： ```vba If Dir(FolderPath, vbDirectory) = "" Then MkDir FolderPath MsgBox "文件夹已成功创建！" Else MsgBox "文件夹已存在！" End If ``` 以上代码中，`vbDirectory`是一个常量，表示要检查的是否是一个文件夹。`""`表示文件夹不存在。最后，我们可以使用`MsgBox`函数来显示创建结果的消息框。这样，我们就可以通过Excel VBA自动生成文件夹目录了。同时，需要注意的是，当用户输入的路径不合法或者没有权限创建文件夹时，可能会出现错误。在实际使用中，我们可以根据情况添加错误处理代码来处理这些情况。