我试着让这段代码保存到打开文件的目录中。当前,它可以通过单元格文本保存文件,但默认情况下想要保存在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
Workbook.ChangeLink
- 如果需要帮助,请发布另一个问题。 - chris neilsen