（有偿）在不关闭TXT文档的情况下，TXT文档显示单元格内容

838833928

morpheus126 发表于 2024-4-19 12:00
如果是给人看的，那就不要用TXT，用其他控件就可以啦
如果是给其他软件读取的，那就不用打开TXT

不用TXT，还可以用什么？？？？

perfect131

838833928 发表于 2024-4-19 14:30
其他软件只能用句柄的方式获取TXT内容

用进程方式 获取句柄也可以
具体步骤就是 关闭文件 写入内容 打开文件 激活txt

wanghan519

用gvim也行，有个com对象vim.application可以操作打开的文本

但是，既然你提到按键精灵，就在想如果要同步表格和记事本内容，不如直接ahk，通过com对象获取表格内容，重写记事本内容，总感觉这需求怪怪的。。。

wanghan519

用ahk试了一下，这东西确实适合这种控制不同窗口的需求，通过com对象绑定sheet1的change事件，触发后改写记事本Edit1控件的内容，字数多了肯定有bug，但意思到了，ahk真香

1. #Requires AutoHotkey v2.0
   
2. #SingleInstance Force
   
3. xl := ComObjActive("excel.application")
   
4. sht := xl.ActiveSheet
   
5. ComObjConnect(sht, "SHT_")
   
6. Persistent
   
7. SHT_Change(x, y){
   
8.     WinActivate("ahk_exe notepad.exe")
   
9.     WinWaitActive("ahk_exe notepad.exe")
   
10.     ControlSetText(x.Value2, "Edit1")
    
11. }

复制代码

838833928

perfect131 发表于 2024-4-19 14:41
用进程方式 获取句柄也可以
具体步骤就是 关闭文件 写入内容 打开文件 激活txt

晚上回家试一试，现在是远程回复

838833928

wanghan519 发表于 2024-4-19 15:35
用ahk试了一下，这东西确实适合这种控制不同窗口的需求，通过com对象绑定sheet1的change事件，触发后改写记 ...

大师，可以用VBA完成吗，最多10个字符

wanghan519

838833928 发表于 2024-4-19 17:11
大师，可以用VBA完成吗，最多10个字符

不敢当。。。
vba不会这个。。。
ahk可以看做vb6.0的64位升级版，包装了大量win api，提供了很多方便的操作窗口控件快捷键的方法，对com对象的支持好，可以编译成小于1M的exe，用起来很爽
要不就把上面这几行代码打包成exe，vba里用shell启动一下，假装是vba代码。。。

wanghan519

838833928 发表于 2024-4-19 17:11
大师，可以用VBA完成吗，最多10个字符

问了一下ai，据说vba获取窗口句柄之后，可以用FindWindowEx获取Edit1控件的句柄，然后sendmessage使用settext方法改变记事本Edit1控件的内容，所以，我相信vba可以实现，但貌似不太方便，ahk相当于包装好了这些方法

838833928

wanghan519 发表于 2024-4-19 17:48
问了一下ai，据说vba获取窗口句柄之后，可以用FindWindowEx获取Edit1控件的句柄，然后sendmessage使用set ...

可以写出代码不                        

wanghan519

838833928 发表于 2024-4-20 01:16
可以写出代码不

1. Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   
2. Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   
3. Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
   
4. 
   
5. Sub settxt()
   
6.     hWndNotepad = FindWindow("Notepad", vbNullString)
   
7.     hWndEdit = FindWindowEx(hWndNotepad, 0, "Edit", vbNullString)
   
8.     SendMessage hWndEdit, &HC, 0, ByVal "asdf"
   
9. End Sub

复制代码