按单元格值保存Excel文件并保存在打开文件的当前目录中

Question

我试着让这段代码保存到打开文件的目录中。当前，它可以通过单元格文本保存文件，但默认情况下想要保存在c:/我的文档中。

这是我目前的代码，但不知道在哪里添加ThisWorkbook.Path：

Sub Save()

 Dim flToSave As Variant
 Dim flName As String
 Dim flFormat As Long

 flFormat = ActiveWorkbook.FileFormat


 flName = Range("A1") & Range("A2").Text
 flToSave = Application.GetSaveAsFilename _
 (flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _
 Title:="Save FileAs...")


 If flToSave = False Then
 Exit Sub
 Else

 Thisworkbook.SaveAs Filename:=flToSave, FileFormat:=flFormat
 End If

 End Sub

- Patrick

Answer 1

将您的GetSaveAsFilename更改为

flToSave = Application.GetSaveAsFilename _
(ThisWorkbook.Path & "\" & flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Save FileAs...")

这将在指定目录中启动SaveAs

- chris neilsen

---

如果我可以问一下：我有一些具有特定链接的现金文件..12月从11月的某些文件中获取信息。是否可能在我打开12月时自动从11月收集链接，而无需每次保存新月份时更改“=+'C:\Stores\Fego Caffe Irene\Cash Ups\2011[Fego Caffe June 2011.xlsm]Daily Breakdown'!$E$42”？因此，如果我创建一个1月份的文件，它必须自动链接到12月份，而无需手动更改整个时间？ - Patrick

请查看Workbook.ChangeLink - 如果需要帮助，请发布另一个问题。 - chris neilsen