vba 复制电脑文件到系统剪切板

芐雨

api确实比较长，来个曲线救国吧，用powershell

win7及以上系统自带powersehll,你可以理解为cmd批处理的升级

1. Sub FileClipboard()
   
2.     Dim pscode As String
   
3.     Dim fileList As String
   
4.    
   
5.     '路径单引号括住，逗号隔开
   
6.     fileList = "'C:\a.txt','D:\log_file.txt','D:\2.jpg'"
   
7.    
   
8.     pscode = "powershell  $filelist =" & fileList & vbCrLf & _
   
9.         "$col = New-Object Collections.Specialized.StringCollection " & vbCrLf & _
   
10.         "foreach($file in $filelist){$col.add($file)}" & vbCrLf & _
    
11.         "Add-Type -AssemblyName System.Windows.Forms" & vbCrLf & _
    
12.         "[Windows.Forms.Clipboard]::setfiledroplist($col)"
    
13.    
    
14.     Shell pscode, vbHide    '执行代码并隐藏窗口
    
15. End Sub

复制代码

hempy2100

芐雨 发表于 2019-12-23 18:29
api确实比较长，来个曲线救国吧，用powershell

win7及以上系统自带powersehll,你可以理解为cmd批处理的 ...

可用，感谢大神，感谢大神

hempy2100

山菊花 发表于 2019-12-23 14:07
你可以不用懂它，把它粘贴到一个模块中。

7楼有使用示例代码：

明白了，感谢感谢，谢谢版主，每次在论坛都可以学习到新东西

hempy2100

山菊花 发表于 2019-12-23 14:07
你可以不用懂它，把它粘贴到一个模块中。

7楼有使用示例代码：

版主，刚才又测试了，可以在电脑的桌面或电脑本地的其它文件夹里粘贴，但是不能在微信或QQ里粘贴，求助

hempy2100

芐雨 发表于 2019-12-23 18:29
api确实比较长，来个曲线救国吧，用powershell

win7及以上系统自带powersehll,你可以理解为cmd批处理的 ...

昨晚在win10上测试可用，今天在win7上测试没有通过，求助

芐雨

hempy2100 发表于 2019-12-24 09:48
昨晚在win10上测试可用，今天在win7上测试没有通过，求助

可能是版本或系统问题，我用的是5.1

按win+X  再按一个A进入管理员的命令行，
命令行输入pwoershell 进入PS
在命令行中输入 $PSVersionTable.PSVersion 命令查看当前版本号, 其中"Major"即为当前已安装的版本号

直接在ps中输入语句看下提示什么（从$filelist=开始复制）

hempy2100

芐雨 发表于 2019-12-24 10:02
可能是版本或系统问题，我用的是5.1

按win+X  再按一个A进入管理员的命令行，

确实是版本的问题，根据你的提示，我下载安装了5.1就可以了，感谢感谢

hempy2100

芐雨 发表于 2019-12-24 10:02
可能是版本或系统问题，我用的是5.1

按win+X  再按一个A进入管理员的命令行，

大神，我的文件地址是个动态地址，不知道如何用""号，能帮我看看吗，还有动态地址能直接引入  pscode = 这一句代码吗，如果可以就不用再Ddim Filelist 了，望指点。感谢！


Sub FileClipboard()
    Dim pscode As String
    Dim FileList As String
   
    FileList = ActiveDocument.Path & "\" & "2020BC_Hall " & Application.ActivePage.Name & " " & lshg & ".pdf"
    pscode = "powershell  $filelist =" & FileList & vbCrLf & "$col = New-Object Collections.Specialized.StringCollection " & vbCrLf & "foreach($file in $filelist){$col.add($file)}" & vbCrLf & "Add-Type -AssemblyName System.Windows.Forms" & vbCrLf & "[Windows.Forms.Clipboard]::setfiledroplist($col)"
    Shell pscode, vbHide
End Sub

hempy2100

hempy2100 发表于 2019-12-24 09:29
版主，刚才又测试了，可以在电脑的桌面或电脑本地的其它文件夹里粘贴，但是不能在微信或QQ里粘贴，求 ...

版主，一直在测试，还是可以在电脑的桌面或电脑本地的其它文件夹里粘贴，就是不能在微信或QQ里粘贴，绝望

芐雨

hempy2100 发表于 2019-12-25 12:23
大神，我的文件地址是个动态地址，不知道如何用""号，能帮我看看吗，还有动态地址能直接引入  pscode =  ...

   两边加单引号啊
FileList = "'" & ActiveDocument.Path & "\" & "2020BC_Hall " & Application.ActivePage.Name & " " & lshg & ".pdf'"

直接引入  pscode
pscode = "powershell  $filelist =" &  "'" & ActiveDocument.Path & "\" & "2020BC_Hall " & Application.ActivePage.Name & " " & lshg & ".pdf'"&