从函数向导或替换对话框调用 XLL 函数
适用于：Excel 2013 | Office 2013 | Visual Studio
Microsoft Excel 通常在工作簿的正常重新计算期间调用 XLL 函数，如果计算受宏控制，则调用其中的一部分。 请记住，函数可能不驻留在单元格公式中，但可能是命名区域定义或条件格式表达式的一部分。
在两种情况下，可以从 Excel 对话框调用函数。 一个是“ 粘贴函数参数 ”对话框，用户可在其中构造一个函数，一次调用一个参数。 另一种情况是 Excel 在“ 替换 ”对话框中修改和重新输入公式时。 对于“ 粘贴函数参数 ”对话框，你可能不希望函数正常执行。 这可能是因为执行时间较长，并且你不希望减慢对话框的使用速度。
“粘贴函数”对话框和“替换”对话框的 Windows 类名称bosa_sdm_XLn，其中 n 是数字。 Windows 提供一个 API 函数 GetClassName，该函数从 Windows 句柄（HWND 变量类型）获取此名称。 它还提供另一个函数 EnumWindows，该函数在 DLL) 中调用提供的回调函数 (当前打开的每个顶级窗口一次。
回调函数只需执行以下步骤：
检查此窗口的父级是否为 Excel 的当前实例， (如果有多个实例正在运行) 。
从 Windows 传入的句柄中获取类名称。
检查类名的格式是否为 bosa_sdm_XLn。
如果需要区分这两个对话框，检查对话框标题是否包含一些标识文本。 使用 Windows API 调用 GetWindowText 获取窗口标题。
以下 C++ 代码显示要传递给 Windows 的类和回调，用于执行这些步骤。 这由函数调用测试专门针对其中任一相关对话框调用。
注意
未来 Excel 版本的窗口标题可能会更改并使此代码失效。 另请注意，将 window_title_text 设置为 NULL 会忽略回调搜索中的窗口标题。
#define CLASS_NAME_BUFFSIZE 50
#define WINDOW_TEXT_BUFFSIZE 50
// Data structure used as input to xldlg_enum_proc(), called by
// called_from_paste_fn_dlg(), called_from_replace_dlg(), and
// called_from_Excel_dlg(). These functions tell the caller whether
// the current worksheet function was called from one or either of
// these dialog boxes.
typedef struct
{
bool is_dlg;
short low_hwnd;
char *window_title_text; // set to NULL if don't care
}
xldlg_enum_struct;
// The callback function called by Windows for every top-level window.
BOOL CALLBACK xldlg_enum_proc(HWND hwnd, xldlg_enum_struct *p_enum)
{
// Check if the parent window is Excel.
// Note: Because of the change from MDI (Excel 2010)
// to SDI (Excel 2013), comment out this step in Excel 2013.
if(LOWORD((DWORD)GetParent(hwnd)) != p_enum->low_hwnd)
return TRUE; // keep iterating
char class_name[CLASS_NAME_BUFFSIZE + 1];
// Ensure that class_name is always null terminated for safety.
class_name[CLASS_NAME_BUFFSIZE] = 0;
GetClassName(hwnd, class_name, CLASS_NAME_BUFFSIZE);
// Do a case-insensitve comparison for the Excel dialog window
// class name with the Excel version number truncated.
size_t len; // The length of the window's title text
if(_strnicmp(class_name, "bosa_sdm_xl", 11) == 0)
{
// Check if a searching for a specific title string
if(p_enum->window_title_text)
{
// Get the window's title and see if it matches the given text.
char buffer[WINDOW_TEXT_BUFFSIZE + 1];
buffer[WINDOW_TEXT_BUFFSIZE] = 0;
len = GetWindowText(hwnd, buffer, WINDOW_TEXT_BUFFSIZE);
if(len == 0) // No title
{
if(p_enum->window_title_text[0] != 0)
return TRUE; // No match, so keep iterating
}
// Window has a title so do a case-insensitive comparison of the
// title and the search text, if provided.
else if(p_enum->window_title_text[0] != 0
&& _stricmp(buffer, p_enum->window_title_text) != 0)
return TRUE; // Keep iterating
}
p_enum->is_dlg = true;
return FALSE; // Tells Windows to stop iterating.
}
return TRUE; // Tells Windows to continue iterating.
}
“ 粘贴函数 ”对话框没有标题，因此以下函数将搜索标题字符串“”（即空字符串）传递给回调，以指示匹配条件是窗口不应有标题。
bool called_from_paste_fn_dlg(void)
{
XLOPER xHwnd;
// Calls Excel4, which only returns the low part of the Excel
// main window handle. This is OK for the search however.
if(Excel4(xlGetHwnd, &xHwnd, 0))
return false; // Couldn't get it, so assume not
// Search for bosa_sdm_xl* dialog box with no title string.
xldlg_enum_struct es = {FALSE, xHwnd.val.w, ""};
EnumWindows((WNDENUMPROC)xldlg_enum_proc, (LPARAM)&es);
return es.is_dlg;
}