vba在当前目录下建立新的文件夹 20

我现在想在excel同级的目录下建立一个文件夹，不知道路径该如何表示，用相对路径，谢谢！... 我现在想在excel同级的目录下建立一个文件夹，不知道路径该如何表示，用相对路径，谢谢！展开

 我来答

3个回答

#热议# 不吃早饭真的会得胆结石吗？

百度网友51266d27
2018-03-29 · TA获得超过6934个赞

知道大有可为答主

回答量：3718

采纳率：55%

帮助的人：510万

我也去答题访问个人页

关注

展开全部

试试下面的代码：在当前目录下依次创建指定文件夹

Sub test()
    Dim arr, arrTemp
    Dim strPath As String
    Dim strTemp
    Dim i As Long, j As Long
    On Error Resume Next
    strPath = ThisWorkbook.Path & Application.PathSeparator
    arr = Sheet1.Range("a1").CurrentRegion
    For i = LBound(arr) + 1 To UBound(arr)
        strTemp = strPath
        arrTemp = Split(arr(i, 1), "")
        For j = LBound(arrTemp) To UBound(arrTemp)
            strTemp = strTemp & arrTemp(j) & Application.PathSeparator
            MkDir strTemp
        Next
    Next
End Sub

已赞过 已踩过<

评论收起

TableDI
2024-07-18 广告

在上海悉息信息科技有限公司，我们深知Excel在数据处理中的重要作用。在Excel中引用不同工作表（sheet）的数据是常见的操作，这有助于整合和分析跨多个工作表的信息。通过在工作表名称前加上感叹号“!”，您可以轻松地引用其他工作表中的数据... 点击进入详情页

本回答由TableDI提供

fanbing530
2018-03-29 · TA获得超过250个赞

知道小有建树答主

回答量：260

采纳率：90%

帮助的人：121万

我也去答题访问个人页

关注

展开全部

excel获取当前工作簿路径

ThisWorkbook.Path

excel新建文件夹

MkDir "c:\temp"

已赞过 已踩过<

评论收起

七彩虹科技有限公司
2018-03-29 · 为您提供更好的产品和服务

七彩虹科技有限公司

七彩虹科技成立于1995年，中国著名的DIY硬件厂商，亚太区最重要的显示卡提供商之一。专注于IT硬件产品研发、生产和销售，致力于为个人和企业用户提供最具创新与实用价值的硬件产品及应用方案。

向TA提问

关注

展开全部

是可以的。请用以下代码进行测试：

hMkDir ("D:\1\2\3\4\") ‘调用测试
’===================

Sub hMkDir(fPath As String)
Dim sp() As String, k%, strP$
If fPath = "" Then Exit Sub
strP$ = IIf(Right(fPath, 1) = "\", Mid(fPath, 1, Len(fPath) - 1), fPath)
sp = Split(fPath, "\"): strP$ = ""
Do While k < UBound(sp) + 1
strP$ = IIf(strP$ = "", sp(k), strP$ & "\" & sp(k))
If Dir(strP$, vbDirectory) = "" Then MkDir strP$
k = k + 1
Loop
End Sub