Question

有人可以帮我逻辑，我是自动化UFT的新手。

我的目标是通过更改名称和特定文件夹来保存PDF。

点击主窗口中的预览按钮以预览PDF
新的浏览器将以PDF格式打开，但没有地址栏，其中包含用于保存PDF的新浏览器或菜单栏的URL。
仅关闭新浏览器，以便我可以返回主浏览器以获取diff PDF

我使用以下逻辑来保存PDF，但它只能工作一次，因为PDF已保存在桌面上。我在浏览器中得到了大约200个PDF。

Browser("Login").Page("Select Letter").WebButton("Enter").Click

Browser("Login").Page("Select Letter").WebButton("Next").Click

Browser("Login").Page("Select Letter").WebButton("Preview").Click

Browser("Login").Page("Select Letter").Sync

Set WshShell = CreateObject("WScript.Shell")

Browser("Browser").WinObject("AVPageView").highlight

WshShell.SendKeys "+^s"

Browser("Browser").Dialog("Save a Copy").WinTreeView("WinTreeView").Select "Favorites;Desktop"

Browser("Browser").Dialog("Save a Copy").WinButton("Save").Click

Browser("Browser").CloseAllTabs

先谢谢

Sush

Answer 1

根据你的评论，我会尝试这样的事情......

Dim strFolderPath, strFileName, strFullPathToSave
Dim strCurrentTime
' Add the folder path 
strFolderPath = "C:\A_Preffered_Folder\PDF"

' Generate FileName 
strCurrentTime = now
strFileName =  Replace(Replace(Replace(strCurrentTime, "/",""),":",""), " ", "_")
strFullPathToSave = strFolderPath + "\" + strFileName + ".PDF"

现在是关键字，它会为您提供当前日期和时间。我只是更换了＆＃34; /＆＃34;，Spaces＆amp; ＆＃34;：＆＃34;生成文件名。只记录再次保存文件，这次不是浏览文件，只需输入完整路径即可。例如： C：\ A_Preffered_Folder \ PDF \ 132017_35655_PM.PDF 但请确保该文件夹首先存在。一旦你有了代码，按ctrl后添加上面的代码，并将硬编码的值替换为文件名所在的变量。

通过UFT从IE浏览器将特定文件夹中的PDF保存

1 个答案: