VB控制记事本句柄的例子

renahu · 发表于 2019-6-11 14:26

lss001 发表于 2019-3-2 19:13
Declare Function SendMessage& Lib "user32.dll" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVa ...

为什么另存为窗口只是出来闪了一下就关了，文本文件并没有保存下来？

lss001 · 发表于 2019-6-11 14:51

SendMessage Childh(5), WM_CLICK, 0, 0 '自动点击保存
Application.Wait Now + TimeValue("00:00:02")'
此处加入延时响应即可！
SendMessage hwnd, WM_CLOSE, 0, 0 '关闭记事本程序

renahu · 发表于 2019-6-11 15:50

lss001 发表于 2019-6-11 14:51
SendMessage Childh(5), WM_CLICK, 0, 0 '自动点击保存
Application.Wait Now + TimeValue("00:00:02" ...

我把这个文件放在桌面上，执行后桌面并没有多出 abc.txt 这个文件

renahu · 发表于 2019-6-11 15:55

lss001 发表于 2019-6-11 14:51
SendMessage Childh(5), WM_CLICK, 0, 0 '自动点击保存
Application.Wait Now + TimeValue("00:00:02" ...

SendMessage Childh(37), WM_SETTEXT, 0, ByVal _
"" & ThisWorkbook.Path & "\abc.txt"

这句的目的应该是在另存为窗口中把文件名改成：ThisWorkbook.Path & "\abc.txt" 但却没有发生变化，不知道这个Childh(37)是干嘛的，是不是没起作用？

lss001 · 发表于 2019-6-11 16:04

本帖最后由 lss001 于 2019-6-11 16:05 编辑

要另存为务必加上延时！！！
请参见12楼代更改！！！
如果还有疑问可发附件讨论！

renahu · 发表于 2019-6-11 16:06

lss001 发表于 2019-6-11 16:04
要另存为务必加上延时！！！
请参见楼上代更改！！！

加了延时了，不起作用啊

lss001 · 发表于 2019-6-11 16:08

renahu 发表于 2019-6-11 16:06
加了延时了，不起作用啊

请上传附件进行测试！！

renahu · 发表于 2019-6-11 16:20

lss001 发表于 2019-6-11 16:08
请上传附件进行测试！！

测试.rar (17.51 KB, 下载次数: 16)

renahu · 发表于 2019-6-11 16:26

lss001 发表于 2019-6-11 16:08
请上传附件进行测试！！

我手工走了一遍程序，应该是文件名没改过来，还是.txt ，这时点保存是不起作用的，最后一步关闭，就什么也没存下来

lss001 · 发表于 2019-6-11 16:35

本帖最后由 lss001 于 2019-6-11 16:37 编辑

注意:以下一行代码，附件中是→33
而8楼代码可是→37，难怪无法另存！
SendMessage Childh(37), WM_SETTEXT, 0, ByVal _
"" & ThisWorkbook.Path & "\abc.txt"

		自动登录	找回密码
密码			免费注册

[求助] VB控制记事本句柄的例子

最新热点 /1