VBA 复制非文本文件到剪贴板

VBA（Visual Basic for Applications）是Microsoft Office应用程序如Excel、Word等中的一种宏语言，可以用来自动化任务。复制非文本文件到剪贴板在VBA中通常通过`FileSystemObject`来操作文件和剪贴板内容。以下是一个简单的VBA代码示例，演示如何复制文件内容到剪贴板：

Sub CopyNonTextFileToClipboard()
    ' 首先创建FileSystemObject实例
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 然后指定你要读取的文件路径
    Dim filePath As String
    filePath = "C:\path\to\your\file.txt" ' 替换为你实际的文件路径
    
    ' 读取文件内容到字符串变量
    Dim fileContent As String
    fileContent = fso.OpenTextFile(filePath, 1).ReadAll
    
    ' 将内容设置为剪贴板
    Selection.Copy ' 这里假设是在一个可以粘贴的地方调用了此函数，如Excel的单元格区域
    Application.CutCopyMode = False ' 关闭剪切模式

    ' 清理对象
    Set fso = Nothing
End Sub

运行上述代码后，你需要将`filePath`替换为你要复制的文件的实际路径，然后执行这个宏，文件的内容就会被复制到剪贴板。