Alt+F11，雙擊引用“A1”的工作表並復制以下代碼？，保存並關閉。
然後點擊菜單欄:工具-宏-宏，會出現類似的圖。只需點擊執行。
公共？Sub？ttt（）
暗淡？FileBat？作為什麽？線
暗淡？appPath？作為什麽？線
appPath？=?活動工作簿。小路
FileBat？=?IIf（Right（app path，？1)?=?"\",?appPath，？appPath？& amp？"\")?& amp？單元格（1，？1).價值？& amp？".蝙蝠“
貝殼？FileBat？vbNormalFocus
結束？潛水艇