☰

根据 Excel 中的单元格值创建文件夹 + 创建超链接

tag-icon • tag-icon windows-7 microsoft-excel-2010 directory-listing
根据 Excel 中的单元格值创建文件夹 + 创建超链接

我有以下单元格值（列FOLDERNAME），我想在当前电子表格活动目录中自动为其创建一个文件夹。

怎么办呢，这是我的第一个问题？

在每个文件夹中，我希望下一个值（列DRAWING_FILE）显示为超链接。

怎么做呢，这是我的第二个问题？

截屏

答案1

Sub MakeFolders()
    Dim Rng As Range
    Dim maxRows, maxCols, r, c As Integer
    Set Rng = Selection
    maxRows = Rng.Rows.Count
    maxCols = Rng.Columns.Count
    For c = 1 To maxCols
    r = 1
    Do While r <= maxRows
        If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
            MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
            On Error Resume Next
        End If
        r = r + 1
    Loop
   Next c
End Sub

这个 VBA 用于创建文件夹，但在运行此代码之前，您必须选择包含文件夹名称的单元格。此外，您无法写入，/并且\在 Windows 中，您可以用于\文件夹，但不能用于文件夹的名称

保留字符和名称

大多数常用字符都可用于命名文件。但是，以下字符是保留字符，不能用于文件名：

< > : " / \ | ? *

此外，名称末尾不能使用空格或句点。此外，文件不能具有以下保留设备名称：CON、PRN、AUX、NUL、COM1、COM2、COM3、COM4、COM5、COM6、COM7、COM8、COM9、LPT1、LPT2、LPT3、LPT4、LPT5、LPT6、LPT7、LPT8 和 LPT9。请注意，在 Windows 中大小写无关紧要。

关于此的解释关联。

相关内容