Question

我一直在尝试编写一个宏来保存在特定的文件位置，想法是定义起始位置（这永远不会改变），然后在单元格B2中有一个下拉列表（这是一个已定义的文件夹位置）和单元格B3中的另一个下拉列表（这是B2中指定的文件夹中的子文件夹），然后是单元格B4中的文件名。

运行宏时，文件位置似乎变得混乱，默认为C:\My Documents。

作为测试我删除了行'Range'B3“'，然后将文件保存在正确的文件夹位置。这是当前的宏：

Sub ThisFile()
varResult = Application.GetSaveAsFilename(FileFilter:= _
"Macro Enabled Workbook" & "(*.xlsm), *xlsm", Title:=Range("B4") & ".xlsm", InitialFileName:="G:\New Manufacturing Engineering\Gear Shop\Spiral Bevel\Miscellaneous\Stock Removal Test File\Stock Removal Sheets\" & Range("B2") & "\" & Range("B3") & "\" & Range("B4") & ".xlsm")
With ActiveWorkbook
    On Error GoTo message
    .SaveAs varResult & ".xlsm", FileFormat:=52
    Exit Sub
message:
    MsgBox "There is an error"
End With
End Sub

Answer 1

好的，这样做了一个菜鸟的错误!!下拉列表中的一些标题后面没有空格，因此找不到文件夹!!!

上面的宏工作正常

宏使用单元格作为位置将文件保存在文件结构中

1 个答案: