怎么实现Excel，Word，Txt切换输出

2019-07-22 10:07:48 794 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python办公自动化实战：批量处理Excel、Word与PPT 在职场日常中，重复性的文档整理与数据汇总往往耗费大量时间。办公自动化的核心思路，是通过程序化方式模拟人工操作，完成对Office文件的读写、格式调整与批量生成，从而大幅提升工作效率，让繁琐的报表统计、合同生成和汇报材料制作变得可复用、可追溯。从企业实际场景来看，Excel多表合并、Word模板批量替换以及PPT周报的自动创建，都是高频的自动化需求。而Python生态中的openpyxl、python-docx和python-pptx库，为这些任务提供了轻量且可控的解决方案。文章从环境配置讲起，结合工程实践案阅读详情

如题：先描述下要实现的功能：依次打开三种文档，excel，Word和txt。然后鼠标选中哪个文档就输出在哪个文档里面，输出数据是和电脑相连的机器中的，机器中的数据输入到电脑，机器上有按钮，按下按钮就输出到我们选中的文档中。

然后：已经实现：我用MFC建立了一个dlg，上面有三个按钮，分别对应三种文档格式，选中不同的按钮输出到不同的文档中。

然而并没有实现最终想要的功能，有以下几个未解决的点，希望各位大神帮帮忙：
1.我选中不同文档的时候，怎么判断我选中的是哪个文档，有什么返回值什么的吗

关于第一点，我是想获取不同格式文档窗口的句柄，然后当我选中一个文档的时候，获取当前窗口的句柄（GetForegroundWindow()）与我创建的文档的句柄进行对比，用来判断我选中的是哪种文档窗口。可是我找不到Excel的句柄，Findwindow（）不行.

2.关于txt打开着实时刷新的问题

这个我也找了很多答案，fflush（）什么的。好像都不能实现。

有什么方法可以解决吗 ? 请求组织支援！！！！

...全文

ASReview：基于主动学习的AI文献筛选工具，提升科研效率主动学习是机器学习的一个重要分支，其核心原理是让算法能够主动选择最有价值的数据进行标注，从而以更低的成本获得更好的模型性能。这一技术通过人机协作的闭环流程，显著提升了数据标注和模型训练的效率和精度。在工程实践中，主动学习尤其适用于数据标注成本高昂或数据类别不平衡的场景，例如医学影像分析、自然语言处理中的文本分类以及推荐系统的冷启动问题。通过优先标注模型最不确定的样本，它能够有效解决传统机器学习面临的冷启动和数据稀疏性挑战。本文聚焦的ASReview项目，正是将主动学习原理应用于系统文献综述这一具体场景，通过阅读详情

只会C++啊

C++ 语言 65,214 成员 250,514 内容

+ 关注 + 加入社区

切换为时间正序

只会C++啊 2019-08-01

打赏
举报

试了获取的句柄不是选中的窗口的句柄或者说打开多个文档获取句柄不知道是哪个的句柄而且有时候会失败调试结果获取的句柄是？？？？？

蠓虫带着秤砣飞 2019-07-31

打赏
举报

引用 24 楼萧萧萧丶的回复:

对的程序启动后就窗口最小化了然后哪个文档是当前活动窗口就往哪个文档中输出我写了一个线程来实时获取当前活动窗口的句柄，然后用来区分输出到哪个文档如果正在输出的时候切换了可能数据一半在前一个文档一半在后一个文档... 问题是：我用的是GetForegroundWindow（）来获取当前活动窗口的句柄这个没有问题有问题的是我获取不到三个文档的句柄：我是在打开的时候继续用GetForegroundWindow（）获取打开文档的句柄 ,这个在bebug模式下没有问题，在relese也没有问题，（这里的没有问题指的是，excel。word，TXT，三个文档依次打开，并依次出现在最顶端，在最顶端的时候获取当前最顶端窗口的句柄）但是！！！！当我关闭vs之后，在桌面上运行relese生成的.exe程序时，生成的文档没有依次出现在最顶端（Z序的顶部），所以我获取的文档句柄是有问题的，所以我在每个文档打开的时候添加一个函数让他出现在最顶端，BringWindowToTop（）什么的，但是这些函数需要你传递窗口的句柄给他...互相矛盾。还有一个setTopMost什么的也试过，好像没起作用。总之，在我打开vs的前提下，这样是没有问题的但是至少运行生成的.exe程序，就有bug。不过最后貌似我抄近路解决了？？用的是模拟键盘输入，将数据输入到鼠标光标所在位置，所以地方都可以...不管什么文档但是还是想解决下上面的问题，如果正常要解决需要怎么样QAQ 希望能够获得帮助多谢~~~

需求比较奇怪了。 GetActiveWindow()试试？

只会C++啊 2019-07-30

打赏
举报

引用 22 楼 zjq9931 的回复:

[quote=引用 21 楼萧萧萧丶的回复:] 我最早实现的就是通过点击按钮来区分然后客户不接受说要三个文档同时打开着他选中哪个文档就输出到哪个文档QAQ 我也很无奈啊

你的程序是后台运行的？然后三个文档用户把那个文档作为活动窗口就往哪个里面输出？如果正在输出的时候，切换了怎么办？或者说三个文档都同时输出？[/quote] 对的程序启动后就窗口最小化了然后哪个文档是当前活动窗口就往哪个文档中输出我写了一个线程来实时获取当前活动窗口的句柄，然后用来区分输出到哪个文档如果正在输出的时候切换了可能数据一半在前一个文档一半在后一个文档... 问题是：我用的是GetForegroundWindow（）来获取当前活动窗口的句柄这个没有问题有问题的是我获取不到三个文档的句柄：我是在打开的时候继续用GetForegroundWindow（）获取打开文档的句柄 ,这个在bebug模式下没有问题，在relese也没有问题，（这里的没有问题指的是，excel。word，TXT，三个文档依次打开，并依次出现在最顶端，在最顶端的时候获取当前最顶端窗口的句柄）但是！！！！当我关闭vs之后，在桌面上运行relese生成的.exe程序时，生成的文档没有依次出现在最顶端（Z序的顶部），所以我获取的文档句柄是有问题的，所以我在每个文档打开的时候添加一个函数让他出现在最顶端，BringWindowToTop（）什么的，但是这些函数需要你传递窗口的句柄给他...互相矛盾。还有一个setTopMost什么的也试过，好像没起作用。总之，在我打开vs的前提下，这样是没有问题的但是至少运行生成的.exe程序，就有bug。不过最后貌似我抄近路解决了？？用的是模拟键盘输入，将数据输入到鼠标光标所在位置，所以地方都可以...不管什么文档但是还是想解决下上面的问题，如果正常要解决需要怎么样QAQ 希望能够获得帮助多谢~~~

piscessong 2019-07-28

打赏
举报

我也想知道

蠓虫带着秤砣飞 2019-07-27

打赏
举报

引用 21 楼萧萧萧丶的回复:

我最早实现的就是通过点击按钮来区分然后客户不接受说要三个文档同时打开着他选中哪个文档就输出到哪个文档QAQ 我也很无奈啊

你的程序是后台运行的？然后三个文档用户把那个文档作为活动窗口就往哪个里面输出？如果正在输出的时候，切换了怎么办？或者说三个文档都同时输出？

只会C++啊 2019-07-27

打赏
举报

引用 20 楼 zjq9931 的回复:

[quote=引用 18 楼萧萧萧丶的回复:] 我现在可以获取到当前选中窗口的句柄然后怎么通过句柄去获取文件后缀呢我查了下，大概有以下几种方法： 1。CFile file(hFile); CString FileName=file.GetFileName(); 这个我试了，在构造file里面会出现报错 2.GetFileNameFromHandle(HANDLE hFile)...后面一大串这个我没试这个应该可以我想找一个api函数。。。 3.//由进程句柄得到文件路径（或者用GetModuleBaseName只取得文件和后缀名） GetModuleFileNameEx( hProcess, NULL, Filepath, MAX_PATH ); 这个我试了这个是先获取进程ID 再获取进程句柄然后再调用上面函数，我调用的时候没找到GetModuleFileNameEx？然后只找到GetModuleFileName，第一个句柄函数定义类型是hMODULE，我是强制转换的然后获取到的Filepath为空... 4.GetWindowText()也试了标题名可以获取后缀貌似不显示然后，excel和word 有两个版本一个微软的一个wps 头疼。。

感觉你好像绕弯了。你界面上有三个按钮，选的哪个文档，从按钮那边不就知道了吗？为什么要从这么绕的方式去知道呢？ [/quote] 我最早实现的就是通过点击按钮来区分然后客户不接受说要三个文档同时打开着他选中哪个文档就输出到哪个文档QAQ 我也很无奈啊

只会C++啊 2019-07-26

打赏
举报

引用 17 楼 zjq9931 的回复:

[quote=引用 16 楼萧萧萧丶的回复:] 我试了一下可以实现多谢大佬好像有个小问题 sendmessage（）刷新的情况下怎么将输入光标移动到输入数据最后面现在它在最前面闪烁

加上这个就好了：

::SendMessage(editWnd, EM_SETSEL, (WPARAM)_tcslen(text), (LPARAM)_tcslen(text));

[/quote] 好的大佬我还有一个问题等我解决问题就结贴了多谢帮忙！！！万分感谢~~

只会C++啊 2019-07-26

打赏
举报

引用 10 楼待续_1006 的回复:

[quote=引用 8 楼萧萧萧丶的回复:] [quote=引用 5 楼待续_1006 的回复:] [quote=引用 3 楼萧萧萧丶的回复:] [quote=引用 2 楼待续_1006 的回复:] 同一事件只能打印一个文档吧？

数据输出到选中文档 [/quote] 如果是com组建的打开的，打个某种文件类型你设置个标记就OK了呗 excel =1，Word=2和txt=3[/quote] 那当我选中某个文档时，有什么返回值吗还是怎么判断我选中的是哪个标记[/quote] 当你的程序选择文件的时候，你应该根据文件的后缀名来判断是什么文件类型，然后根据文件类型调用不同的com接口啊，打开excel和打开word调用的com是不同的，你要先判断文件类型，在选择相应的com接口[/quote] 我现在可以获取到当前选中窗口的句柄然后怎么通过句柄去获取文件后缀呢我查了下，大概有以下几种方法： 1。CFile file(hFile); CString FileName=file.GetFileName(); 这个我试了，在构造file里面会出现报错 2.GetFileNameFromHandle(HANDLE hFile)...后面一大串这个我没试这个应该可以我想找一个api函数。。。 3.//由进程句柄得到文件路径（或者用GetModuleBaseName只取得文件和后缀名） GetModuleFileNameEx( hProcess, NULL, Filepath, MAX_PATH ); 这个我试了这个是先获取进程ID 再获取进程句柄然后再调用上面函数，我调用的时候没找到GetModuleFileNameEx？然后只找到GetModuleFileName，第一个句柄函数定义类型是hMODULE，我是强制转换的然后获取到的Filepath为空... 4.GetWindowText()也试了标题名可以获取后缀貌似不显示然后，excel和word 有两个版本一个微软的一个wps 头疼。。

蠓虫带着秤砣飞 2019-07-26

打赏
举报

引用 16 楼萧萧萧丶的回复:

我试了一下可以实现多谢大佬好像有个小问题 sendmessage（）刷新的情况下怎么将输入光标移动到输入数据最后面现在它在最前面闪烁

加上这个就好了：

::SendMessage(editWnd, EM_SETSEL, (WPARAM)_tcslen(text), (LPARAM)_tcslen(text));

只会C++啊 2019-07-26

打赏
举报

引用 15 楼 zjq9931 的回复:

[quote=引用 14 楼萧萧萧丶的回复:] m_txt = findwindow（L"edit",NULL）或m_txt = findwindow（L"edit",L"Text - 记事本"）然后写入数据后 SetWIndowText（m_txt,&str）；还是不行没有更新

电脑上刚刚试过的代码



	HWND mainWnd;
	HWND editWnd;
	WCHAR text[1024];
	mainWnd = ::FindWindow(L"Notepad", L"无标题 - 记事本");	// 窗口的标题要知道
	if (mainWnd)
	{
		editWnd = ::FindWindowEx(mainWnd, NULL, L"Edit", L"");
	}
	else
	{
		AfxMessageBox(L"没有找到记事本主窗口");
	}

	if (editWnd)
	{
		//::SetWindowText(editWnd, L"234");			// 这个确实不行
		//::GetWindowText(editWnd, text, 1024);
		::SendMessage(editWnd,WM_GETTEXT,(WPARAM)1024,(LPARAM)text);	// 这个可以
		AfxMessageBox(text);
		_tcscpy(text, L"123");
		::SendMessage(editWnd,WM_SETTEXT,(WPARAM)_tcslen(text),(LPARAM)text); // 这个可以
	}
	else
	{
		AfxMessageBox(L"没有找到记事本内容窗口");
	}

[/quote] 我试了一下可以实现多谢大佬好像有个小问题 sendmessage（）刷新的情况下怎么将输入光标移动到输入数据最后面现在它在最前面闪烁

蠓虫带着秤砣飞 2019-07-26

打赏
举报

引用 18 楼萧萧萧丶的回复:

我现在可以获取到当前选中窗口的句柄然后怎么通过句柄去获取文件后缀呢我查了下，大概有以下几种方法： 1。CFile file(hFile); CString FileName=file.GetFileName(); 这个我试了，在构造file里面会出现报错 2.GetFileNameFromHandle(HANDLE hFile)...后面一大串这个我没试这个应该可以我想找一个api函数。。。 3.//由进程句柄得到文件路径（或者用GetModuleBaseName只取得文件和后缀名） GetModuleFileNameEx( hProcess, NULL, Filepath, MAX_PATH ); 这个我试了这个是先获取进程ID 再获取进程句柄然后再调用上面函数，我调用的时候没找到GetModuleFileNameEx？然后只找到GetModuleFileName，第一个句柄函数定义类型是hMODULE，我是强制转换的然后获取到的Filepath为空... 4.GetWindowText()也试了标题名可以获取后缀貌似不显示然后，excel和word 有两个版本一个微软的一个wps 头疼。。

感觉你好像绕弯了。你界面上有三个按钮，选的哪个文档，从按钮那边不就知道了吗？为什么要从这么绕的方式去知道呢？

只会C++啊 2019-07-24

打赏
举报

引用 10 楼待续_1006 的回复:

[quote=引用 8 楼萧萧萧丶的回复:] [quote=引用 5 楼待续_1006 的回复:] [quote=引用 3 楼萧萧萧丶的回复:] [quote=引用 2 楼待续_1006 的回复:] 同一事件只能打印一个文档吧？

只会C++啊 2019-07-24

打赏
举报

先解决一个txt实时刷新的问题吧我是直接open打开的

引用 9 楼 zjq9931 的回复:

[quote=引用 6 楼萧萧萧丶的回复:] 三个文档是自己的程序打开的，调用的excel9创建的Excel objApp.CreateDispatch("Excel.Application"); 不太懂是不是COM的方式打开的。 txt实时刷新怎么处理...求教

这种方式就是COM的方式了。记事本好像没有COM的方式了，直接向窗口发消息，或者遍历窗口找到记事本的窗口（用SPY++找）：SetWindowText设置内容就好了。 [/quote] SetWindowText这个函数貌似是更新窗口标题用的吧还有人说可以用SendMessage（hWnd,WM_SETTEXT,0,(LPARAM)&str）更新我试了下好像也是只更新txt窗口标题内容我需要的是让我输入的数据显示出来。。

待续_1006 2019-07-24

打赏
举报

引用 8 楼萧萧萧丶的回复:

[quote=引用 5 楼待续_1006 的回复:]
[quote=引用 3 楼萧萧萧丶的回复:]
[quote=引用 2 楼待续_1006 的回复:]
同一事件只能打印一个文档吧？

蠓虫带着秤砣飞 2019-07-24

打赏
举报

引用 14 楼萧萧萧丶的回复:

m_txt = findwindow（L"edit",NULL）或m_txt = findwindow（L"edit",L"Text - 记事本"）然后写入数据后 SetWIndowText（m_txt,&str）；还是不行没有更新

电脑上刚刚试过的代码



	HWND mainWnd;
	HWND editWnd;
	WCHAR text[1024];
	mainWnd = ::FindWindow(L"Notepad", L"无标题 - 记事本");	// 窗口的标题要知道
	if (mainWnd)
	{
		editWnd = ::FindWindowEx(mainWnd, NULL, L"Edit", L"");
	}
	else
	{
		AfxMessageBox(L"没有找到记事本主窗口");
	}

	if (editWnd)
	{
		//::SetWindowText(editWnd, L"234");			// 这个确实不行
		//::GetWindowText(editWnd, text, 1024);
		::SendMessage(editWnd,WM_GETTEXT,(WPARAM)1024,(LPARAM)text);	// 这个可以
		AfxMessageBox(text);
		_tcscpy(text, L"123");
		::SendMessage(editWnd,WM_SETTEXT,(WPARAM)_tcslen(text),(LPARAM)text); // 这个可以
	}
	else
	{
		AfxMessageBox(L"没有找到记事本内容窗口");
	}

只会C++啊 2019-07-24

打赏
举报

引用 13 楼 zjq9931 的回复:

[quote=引用 11 楼萧萧萧丶的回复:]
先解决一个txt实时刷新的问题吧我是直接open打开的

SetWindowText这个函数貌似是更新窗口标题用的吧还有人说可以用SendMessage（hWnd,WM_SETTEXT,0,(LPARAM)&str）更新

我试了下好像也是只更新txt窗口标题内容我需要的是让我输入的数据显示出来。。

SetWIndowText是可以改变内容没错的，改变标题，是因为，你找到的是主窗口。
你得找子窗口，子窗口的类名是edit，找到之后，才可以设置。[/quote]

m_txt = findwindow（L"edit",NULL）或m_txt = findwindow（L"edit",L"Text - 记事本"）
然后写入数据后
SetWIndowText（m_txt,&str）；
还是不行没有更新

蠓虫带着秤砣飞 2019-07-24

打赏
举报

引用 11 楼萧萧萧丶的回复:

先解决一个txt实时刷新的问题吧我是直接open打开的 SetWindowText这个函数貌似是更新窗口标题用的吧还有人说可以用SendMessage（hWnd,WM_SETTEXT,0,(LPARAM)&str）更新我试了下好像也是只更新txt窗口标题内容我需要的是让我输入的数据显示出来。。

SetWIndowText是可以改变内容没错的，改变标题，是因为，你找到的是主窗口。你得找子窗口，子窗口的类名是edit，找到之后，才可以设置。

待续_1006 2019-07-23

打赏
举报

引用 3 楼萧萧萧丶的回复:

[quote=引用 2 楼待续_1006 的回复:]
同一事件只能打印一个文档吧？

数据输出到选中文档 [/quote]
如果是com组建的打开的，打个某种文件类型你设置个标记就OK了呗 excel =1，Word=2和txt=3

蠓虫带着秤砣飞 2019-07-23

打赏
举报

三个文档是开着的吗？
是你的程序打开的吗？
如果是，那么是以什么样的方式打开的呢？最好是以COM的方式打开。
这样可以直接控制文档。
至于选择的哪个，怎么确定，如果是COM方式打开的，就可以确定。

可以实时刷新的。

蠓虫带着秤砣飞 2019-07-23

打赏
举报

引用 6 楼萧萧萧丶的回复:

三个文档是自己的程序打开的，调用的excel9创建的Excel objApp.CreateDispatch("Excel.Application"); 不太懂是不是COM的方式打开的。 txt实时刷新怎么处理...求教

这种方式就是COM的方式了。记事本好像没有COM的方式了，直接向窗口发消息，或者遍历窗口找到记事本的窗口（用SPY++找）：SetWindowText设置内容就好了。

加载更多回复（6）

怎么实现Excel，Word，Txt切换输出

相关推荐