方法运行对象iwshshell3失败
方法运行对象iwshshell3失败
提问于 2022-02-25 10:08:44
我试图自动上传文件的铬，在这里得到错误:方法运行对象iwshshell3失败“请帮助：
Dim Customer_rates As String
Dim WshShell As Object
Customer_rates = "D:\FX Exch. Rates\2022-Feb-24 1707\MP_customer_exchange_rates_sample.xlsx"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe/c echo" & Customer_rates & "| clip", vbNormal, True
WshShell.SendKeys "^{v}"
Application.Wait DateAdd("S", 2, Now)
WshShell.SendKeys "{ENTER}"回答 3
Stack Overflow用户
发布于 2022-02-25 11:28:18
考虑一下这在控制台中是如何出现的。文件路径有空格。所以当你运行它的时候，它需要引号。类似于：
WshShell.Run "cmd.exe/c echo" & chr(34) & Customer_rates & chr(34) & "| clip", vbNormal, TrueStack Overflow用户
发布于 2022-03-01 10:36:16
Thansk，伙计们，我用这个子做了个cmd的解决方案，它意味着要工作：
StoreData() Dim varText As String Dim objCP As Object varText = "D:\FX Exch. Rates\2022-Feb-24 1707\MP_customer_exchange_rates_sample.xlsx“Set objCP = CreateObject("HtmlFile") objCP.ParentWindow.ClipboardData.SetData "text"，varText End Sub
Stack Overflow用户
发布于 2022-05-12 07:01:07
尝试始终使用绝对路径(程序和参数)。注意引号。我最好使用chr(13)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71264203
复制相关文章
相似问题
腾讯云开发者
