双击单元格，即以该单元格内容为文件名保存到指定位置？

arter

如题，对于Excel，如何实现 "双击单元格，即以该单元格内容为文件名保存到指定位置？" 此法我见德国人这么做的，但不知道如何实现。请指教，非常感谢。 非常感谢。

Chip_Kenny

這給作參考:
以下代碼請放在thisworkbook

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    t = Target.Value
    Sheets.Copy
    ActiveWorkbook.SaveAs "D:\" & t '請勿直接存在C: 根目錄
End Sub

arter

请能否帮忙处理下，如附件所示，双击“橘黄色单元格则保存到”D:\Cost“，非常感谢。

rainbowdog

个人感觉这个并不怎么实用啊，以下是代码（仅就要求所写，有很多地方可以完善，如判断路径下是否存在文件夹或文件，判断双击单元格中的内容是否符合文件命名规则等）：

'如下代码为工作表事件，需放入对应sheet代码窗口中
'若要实现所有工作表都有该功能，改为工作簿事件即可
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.DisplayAlerts = False '关闭提示，如隐私问题警告
If IsDate(Target) Then '如果双击单元格内容是日期
   ActiveWorkbook.SaveCopyAs "D:\Cost\" & Year(Target) & "-" & Month(Target) & "-" & Day(Target) & ".xlsm"
ElseIf Target.MergeCells Then '如果双击的是合并单元格，若else中target改为target.cells(1,1)，这段代码可以省掉
   ActiveWorkbook.SaveCopyAs "D:\Cost\" & Target.Cells(1, 1) & ".xlsm"
Else '双击单元格内容为文件命名规则所允许的数值、文本
   ActiveWorkbook.SaveCopyAs "D:\Cost\" & Target & ".xlsm"
End If
Application.DisplayAlerts = True
End Sub

arter

非常感谢您的帮助，再次表示感谢。