怎么批量形成excel表格目录

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

写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能否对你有帮助。

1.添***BA代码，选择新插入的模块后，插入以下代码 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。

2.excel目录怎么自动生成

1、用宏函数取出各工作表的名称，方法：Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100） 确定 2、用HYPERLINK函数批量插入连接，方法：在目录工作表（一般为第一个sheet）的A2单元格输入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW（)）） 将公式向下填充，直到出错为止，目录就生成了。

3.怎么样批量生成excel的sheet名称目录链接

方法/步骤打开excel文档，创建若干个sheet页，例如sheet1,a1,a2,a3等点击菜单中的开发工具菜单，点击查看代码按钮如果找不到开发工具菜单，请点击文件->选项->自定义功能区->主选项卡中，选中开发工具复选框录入以下下代码。

目的是用来在sheet1页中的第一列生成sheet名字列Sub createmulu() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub在代码编辑窗口中点击绿色运行按钮，或者按F5键，运行后sheet1如下图所示：在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)鼠标选中B1单元格中，将鼠标放在单元中右下侧，当鼠标变为十字时，向下拖动鼠标此时点击B列的sheet名称超链接，即可打开相应的sheet页按shift键，选中除sheet1外的其他sheet页，在A1单元格中录入=HYPERLINK("#sheet1!A1"，"返回目录")，然后回车。所有选中sheet页中便成功添加“返回目录”超链接。

4.怎么样批量生成excel的sheet名称目录链接

使用VBA可完成操作目标。

按照如下步骤操作：

1. 在excel文件中打开vba编辑器（可利用快捷键alt+F11）

2. 点击左侧sheet1，复制如下代码到右侧编辑框中（如下图所示）

3. 运行该代码（点击播放按钮或者直接按F4）

4. 回到sheet1中即可看到已生成所有sheet名称以及链接。

Sub CreatSheetLink()

Dim i As Single

For i = 1 To Worksheets.Count

Cells(i, 1).Value = Worksheets(i).Name

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _

Worksheets(i).Name & "!A1", TextToDisplay:=Worksheets(i).Name

Next

End Sub

5.如何在EXCEL中生成目录

打开要创建目录的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中Sub mulu()On Error GoTo Tuichu

Dim i As Integer

Dim ShtCount As Integer

Dim SelectionCell As Range

ShtCount = Worksheets.Count

If ShtCount = 0 Or ShtCount = 1 Then Exit Sub

Application.ScreenUpdating = False

For i = 1 To ShtCount

If Sheets(i).Name = "目录" Then

Sheets（"目录"）.Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name ShtCount = ShtCount + 1

Sheets(1).SelectSheets.AddSheets(1).Name = "目录"End IfSheets（"目录"）.Select

Columns("B:B").Delete Shift:=xlToLeft

Application.StatusBar = "正在生成目录…………请等待！"

For i = 2 To ShtCount

ActiveSheet.Hyperlinks.Add Anchor:=Worksheets（"目录"）.Cells(i, 2), Address:="", SubAddress:= _

Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets（"目录"）.Select

Columns("B:B").AutoFit

Cells(1, 2) = "目录"

Set SelectionCell = Worksheets（"目录"）.Range("B1")

With SelectionCell

.HorizontalAlignment = xlDistributed

.VerticalAlignment = xlCenter

.AddIndent = True

.Font.Bold = True

6.excel表格目录怎么自动生成

1、打开你的excel表格。定位到第一个工作表后，然后新建一个工作表作为第一个工作表，命名为“中国人自己的目录”，后面可以建立一些工作表做测试用，名字自己取即可，如下图。

2、好了，事情已经成功了一大半，可见只要老师讲的好，学习Excel是多么地简单呀

3、在中国人自己的目录这个工作表，A1内容输入1，然后依次点击B1，点“公式”选项卡，点定义名称，出现编辑名称对话框，如下图：

(1)在名称（A位置）输入List

(2)在引用位置（B位置）输入=INDEX(GET.WORKBOOK(1),$A1)&T(NOW())

4、上面一步弄好后，没有任何反映，这是正常的现场，就像怀孕一样，一下子是不会大肚子的，所以大家别捉急，最后一步来了。

在B1位置输入公式=IFERROR(HYPERLINK(List&"!A1")，""） 就出现一个欢天喜地的结果了，不过就一行，多行拉操作即可，如图：

下拉后，就出现让人想入菲菲的、仰首期盼的、日思夜想的、全球只有50万人会做的、你现在竟然做出来的目录拉，这主要是大家理解力强，老师教的虽然很重要。

7.如何在excel中自动生成目录

Private Sub 更新目录_Click()

Application.ScreenUpdating = False

Dim Sht As Worksheet

Dim r As Integer

[a2:b65536].ClearContents

For Each Sht In ThisWorkbook.Sheets

If Sht.Name <> Me.Name Then

r = [a65536].End(xlUp).Row

Range("A" & r + 1).Value = Sht.Name

Me.Hyperlinks.Add Range("A" & r + 1), "#" & Sht.Name & "!A1", ScreenTip:=Sht.Name

Range("B" & r + 1).Value = Sht.[a1].Value

End If

Next

Application.ScreenUpdating = True

End Sub

8.如何在EXCEL软件里自动生成目录清单

一、文档说明 1）以下面文档为例， 共有16个sheet页，其中sheet2~sheet16是有内容的，sheet1作为目录页。

2）修改sheet1，使其作为目录页。 二、写VBA处理 1）首先打开VBA开发环境（其实就是打开"开发工具"->"Visual Basic"），此处略去不说。

2）其次，复制以下代码到开发环境。 Sub getAllWorkSheets（) ' 得到所有的sheet页名称，并加上超连接 totalNum = Worksheets.Count Sheet1.Activate Range("B:B").Select Selection.NumberFormatLocal = "@" ' 从2开始就是不带“目录”Sheet页，如果要带，则从1开始 For index_i = 2 To totalNum sheetName = Worksheets(index_i).Name Cells(index_i, 2) = sheetName tar_sheet = "'" & sheetName & "'" Cells(index_i, 2).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ tar_sheet & "!A1", TextToDisplay:=sheetName Next index_i End Sub 3）其中第四行的 Sheet1 需灵活设定。

4）复制上述代码后。 5）如果第四行不是Sheet1，打开此处查看Sheet名称，方式如下： 打开 视图->工程资源管理器 然后查看，参考图。

6）这里目录页是Sheet1。 三 运行VBA 1）在复制的代码中按 “F5”，或者在工具栏点击绿色三角，"运行子过程/用户窗体"。

2）最后，打开"目录"sheet页，OK，搞定。

9.请问excel怎样生成目录

有两种情况吧。

第一种您的表很少时。自己建一个目录表，挨个添加链接。

主要就是在最前面插入一张表。选中一个单元格，点插入-超级链接-本文档中的位置-选中一个表。

对应的目录就建好了。以此类推。

第二种情况是表很多，很难一个个的加是就按住ALT+F11出来一个表，点插入-模板，将下面的代码输入进去。

然后按F5，再关闭文件。

去看看原来的表就有一个目录了。Sub mulu() On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range ShtCount = Worksheets.Count If ShtCount = 0 Or ShtCount = 1 Then Exit Sub Application.ScreenUpdating = False For i = 1 To ShtCount If Sheets(i).Name = "目录" Then Sheets（"目录"）.Move Before:=Sheets(1) End If Next i If Sheets(1).Name <> "目录" Then ShtCount = ShtCount + 1 Sheets(1).Select Sheets.Add Sheets(1).Name = "目录" End If Sheets（"目录"）.Select Columns("B:B").Delete Shift:=xlToLeft Application.StatusBar = "正在生成目录…………请等待！" For i = 2 To ShtCount ActiveSheet.Hyperlinks.Add Anchor:=Worksheets（"目录"）.Cells(i, 2), Address:="", SubAddress:= _ "'" & Sheets(i).Name & "'!R1C1", TextToDisplay:=Sheets(i).Name Next Sheets（"目录"）.Select Columns("B:B").AutoFit Cells(1, 2) = "目录" Set SelectionCell = Worksheets（"目录"）.Range("B1") With SelectionCell .HorizontalAlignment = xlDistributed .VerticalAlignment = xlCenter .AddIndent = True .Font.Bold = True .Interior.ColorIndex = 34 End With Application.StatusBar = False Application.ScreenUpdating = TrueTuichu:End Sub。

10.excel表格怎么批量生成文件夹

因为身份证号码和照片名对应首先，在D盘中新建文件夹：照片20130508然后1、用Excel字符处理函数结合表中的身份证信息，生成一条条的CMD命令这样：假设你表中的身份证在B列，从B2开始。

那么，找一个空白列（假如是F列）作为辅助列，在F2中输入公式copy 139573.jpg d：\下拖2、复制F列产生出的结果到记事本。3、记事本中，文件——另存为——文件名填“照片处理.bat”（不包括“”哦，那个点和字母是英文滴）；保存类型中选择“所有文件”，保存位置放在你的照片文件夹中4、关闭所有窗口，在照片文件中找到刚才保存下来的“照片处理.bat”这个文件，双击并等待其运行完毕5、在D：\照片20130508中，已有你要找的照片了。