如何用excel为批量文件做目录

[如何用思维导图来指导作文写作]平常的写作文的程序是先分析题目，然后再在脑海中开始搜寻之前积累的与之相关的材料，思考后有了思路开始写，但往往在要动笔写的时候，学生的思路很狭窄，想到的东西很少，结构也老套，于...+阅读

如何用excel为批量文件做目录

写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能否对你有帮助。 1.添加VBA代码，选择新插入的模块后，插入以下代码 Sub getpath() Range(＂A2:C1000＂).ClearContents '清空A2:C1000列 On Error Resume Next Dim shell As Variant Set shell = CreateObject(＂Shell.Application＂) Set filePath = shell.BrowseForFolder(&O0，＂选择文件夹＂， &H1 + &H10，＂＂) '获取文件夹路径地址 Set shell = Nothing If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序 Exit Sub Else gg = filePath.Items.Item.Path End If Set obj = CreateObject(＂Scripting.FileSystemObject＂) '定义变量 Set fld = obj.getfolder(gg) '获取路径 For Each ff In fld.Files '遍历文件夹里文件 m = m + 1 Cells(m + 1, 1) = ff.Name Cells(m + 1, 2) = ff.Path Cells(m + 1, 3) = ff.Size Cells(m + 1, 4) = ff.DateCreated Next End Sub 2.运行宏（alt+F8），宏的名称为getpath

EXCEl怎么用VBA建立一个目录用超链接

1、打开事先准备好的Excel文件

2、工具栏/开发工具/Visual Basic，打开Microsoft Visual Basic，也可使用快捷键Alt+F11,

3、然后，选择VBAProject/Microsoft Excel 对象/sheet1(sheet1)，在右边窗口输入以下程序：

Sub 根据工作表创建目录（）

Dim i As Integer, Biao As Worksheet

i = 2

For Each Biao In Worksheets

Cells(i, ＂A＂) = Biao.Name

i = i + 1

Next Biao

End Sub

程序已经编制完成！

4、最后，工具栏/开发工具/宏（快捷键Alt+F8），查看宏，选择已编制好的宏“根据工作表创建目录”，执行，就会根据工作表创建对应目录。也可直接在Microsoft Visual Basic中执行，工具栏/运行/运行子过程/用户窗体，或者直接点击菜单栏中类似于三角形的按键。

5、以后不管有成百上千个工作表都可以一键生成了！

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

方法/步骤

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

代码如下：

Sub xyf()

On Error Resume Next

VBA.MkDir (＂c：/例子＂)

End Sub

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

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

方法2：使用FileSystemObject对象的CreateFolder方法。

代码如下：

Sub xyf()

On Error Resume Next

Dim oFso

Set oFso = CreateObject(＂Scripting.FileSystemObject＂)

oFso.CreateFolder (＂C：/例子＂)

End Sub

其中 oFso.CreateFolder (＂C：/例子＂)表示在C盘创建一个名为“例子”的文件夹

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

excel VBA自动生成文件夹

Sub创建文件来夹源（）

DimF AsString

DimP AsString

DimS AsString

P = ＂D:\123＂

P = IIf(Right(P, 1) = ＂\＂, P, P & ＂\＂)

F = Dir(P & ＂*.XLS*＂)

DoWhileF <> ＂＂

S = Left(F, InStrRev(F, ＂.＂) - 1)

MkDir P & S

Name P & F AsP & S & ＂\＂ & F

F = Dir

Loop

MsgBox ＂操作完成bai!＂

EndSub

路径自己修改下。