VBA 可以跨 Excel 实例吗

使用 VBA 跨 Excel 实例

vba
Option Explicit
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hWnd As LongPtr, _
    ByVal wMsg As Long, _
    ByVal wParam As LongPtr, _
    lParam As Any) As LongPtr
Sub SendMessageToExcelInstance()
    Dim hwndTarget As LongPtr
    Dim lResult As LongPtr
    
    ' 查找目标 Excel 实例的窗口句柄
    hwndTarget = FindWindow("XLMAIN", vbNullString)
    
    If hwndTarget <> 0 Then
        ' 向目标 Excel 实例发送消息
        lResult = SendMessage(hwndTarget, WM_USER + 18, 0, 0)
        MsgBox "数据已成功发送到目标 Excel 实例！"
    Else
        MsgBox "未找到目标 Excel 实例！"
    End If
End Sub

vba
Sub WriteDataToFile()
    Dim filePath As String
    Dim data As String
    
    ' 设置文件路径和数据内容
    filePath = "C:\Temp\data.txt"
    data = "Hello, World!"
    
    ' 将数据写入文件
    Open filePath For Output As #1
    Print #1, data
    Close #1
    
    MsgBox "数据已成功写入文件！"
    
End Sub
Sub ReadDataFromFile()
    Dim filePath As String
    Dim data As String
    
    ' 设置文件路径
    filePath = "C:\Temp\data.txt"
    
    ' 从文件中读取数据
    Open filePath For Input As #1
    Line Input #1, data
    Close #1
    
    MsgBox "读取到的数据为：" & data
    
End Sub