VBA 复制文件到剪贴板

在 VBA 中，如果你想把文件内容复制到剪贴板以便于粘贴到其他地方，通常的做法不是直接复制文件，因为文件的内容无法直接通过剪贴板传输。但是，你可以选择读取文件内容并将其作为文本字符串存储到变量中，然后设置剪贴板的值。

假设你想复制的是文本文件的内容，可以这样做：

Sub CopyFileContentToClipboard(ByVal filePath As String)
    Dim fs As Object, txt As String ' FileSystemObject 和临时文本变量
    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.FileExists(filePath) Then
        Open filePath For Input As #1
        txt = Input$(LOF(1), #1) ' 读取文件内容到字符串
        Close #1

        ' 将内容设置为剪贴板
        Application.CutCopyMode = True ' 允许粘贴
        Selection.Text = txt ' 选择剪贴板的内容（这里是读取的文件文本）
        Application.CutCopyMode = False ' 关闭剪贴板模式
    Else
        MsgBox "File not found!"
    End If

    Set fs = Nothing
End Sub

这个函数会打开指定的文本文件，读取其所有内容到 `txt` 变量中，然后激活剪贴板并将文件内容放置其中。