小编Dav*_*cel的帖子

这是我在这个网站上的第二篇文章，我对 VBA 比较陌生。

我今天的问题是，

如何将单元格值添加到路径字符串以指定要保存工作簿的文件夹。

Dim Path As String
Dim FileName1 As String
Dim FileName2 As String

Path = "D:\folder1\folder2\Projects\The FILES\theFILES\"FileName1"\

FileName1 = Range("B6")
FileName2 = Range("A1")

ActiveWorkbook.SaveAs Filename:=Path & FileName2 & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

提前致谢！

我正在使用一个文件扩展数组并循环遍历工作簿的文件夹.代码命名为Sheet(1).name ="MyName"

我注意到即使"*.xlsm"不在数组中,它仍然打开并命名表单.

这是代码.任何人都可以看到他们是否遇到同样的问题并且能够解决它.

Sub LoopThroughFolder()

    Dim MyFile As String, Str As String, MyDir As String, Wb As Workbook
    Dim Rws As Long, Rng As Range
    Dim fExt, ext
    Set Wb = ThisWorkbook
    'change the address to suite
    MyDir = "C:\TestWorkBookLoop\"
    ChDir MyDir
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    fExt = Array("*.xlsx", "*.xls")    'file extensions, set the file extensions of the files to move

    For Each ext In fExt    'loop through file extensions
        MyFile = Dir(MyDir & ext) …