主页 / computer / 问题 / 1418705
Accepted
Rock
Asked: 2019-03-29 08:22:21 +0800 CST

VBA根据文件名重命名工作表

  • 772

我得到了一堆“.Zip”格式的记录文件。我的 VBA 打开所有这些并将详细信息减去为文本。由于有很多工作簿创建工作表并保持这样的计数：

ActiveSheet.Paste
Dim sheetsQuantity As Integer
sheetsQuantity = ThisWorkbook.Worksheets.Count
ActiveSheet.Name = "Sheet" & sheetsQuantity - 3

我需要将（“工作表”和数量）更新为打开以获取信息的文件名，并且由于有很多文件，每个工作表都必须与文件匹配。因此，如果文件 #1 名为“MatchCase.zip”，我需要工作表 #1 为“MatchCase.zip”，依此类推。

任何建议，请。

microsoft-excel vba

1 个回答

  1. Best Answer

    这可能取决于您的 Win 版本和文件结构。我在ZIP桌面上创建了一个名为holder.Zip的文件。在该文件夹中有一个名为formats.xlsm的文件

    我打开文件并选择工作簿中的一些工作表并Path使用以下方法检查工作簿：

    Sub WhoHoldsMe()
    Dim sPath As String

    sPath = ActiveSheet.Parent.Path
    arr1 = Split(sPath, "\")
    arr2 = Split(arr1(UBound(arr1)), "_")

    MsgBox sPath & vbCrLf & arr2(1)

End Sub

    我得到：

    在此处输入图像描述

    显然 ActiveSheet 有一个 Parent （保存工作表的工作簿）。该工作簿的路径包含ZIP文件名。


    遗憾的是，Path它不包括holder.zip驻留在我的桌面上的信息。

    • 0

相关问题