下面是使用AutoHotkey（AHK）从Excel中提取日期并重新格式化的代码示例：

; 打开Excel文件
Excel := ComObjActive("Excel.Application")
Workbook := Excel.ActiveWorkbook
Worksheet := Workbook.ActiveSheet

; 提取日期并重新格式化
DateCell := Worksheet.Range("A1").Value ; A1单元格包含日期
Date := Format(DateCell, "yyyy-MM-dd") ; 将日期格式化为yyyy-MM-dd格式

; 发送到另一个应用程序
AppTitle := "目标应用程序" ; 另一个应用程序的窗口标题
ControlSetText, Edit1, % Date, % AppTitle ; 将日期发送到应用程序的文本框Edit1

; 关闭Excel
Workbook.Close(false)
Excel.Quit()

请确保在运行此代码之前已经打开了Excel文件，并将其中的日期存储在A1单元格中。将代码中的"目标应用程序"替换为实际应用程序的窗口标题。Edit1是应用程序中的文本框控件名称，您可能需要根据实际情况进行更改。

此代码使用COM对象来与Excel进行交互，并使用Format函数将日期格式化为"yyyy-MM-dd"格式。然后，使用ControlSetText命令将格式化后的日期发送到另一个应用程序的文本框中。最后，关闭Excel应用程序。

请注意，您需要在计算机上安装AutoHotkey软件才能运行上述代码。