例如 在a工作簿上有个按钮,一按就打开视窗,如何让它显示路径为a工作簿所在的文件夹?
Sub test()
Dim FileName As String
Dim wb As Workbook
FileName = Application.GetSaveAsFilename(ThisWorkbook.Path)
If FileName = "False" Then Exit Sub
Set wb = Workbooks.Add
wb.SaveAs FileName
End Sub
Dim FileName As String
Dim wb As Workbook
FileName = Application.GetSaveAsFilename(ThisWorkbook.Path)
If FileName = "False" Then Exit Sub
Set wb = Workbooks.Add
wb.SaveAs FileName
End Sub
温馨提示:答案为网友推荐,仅供参考