excel - 无法在自定义文件夹中保存和关闭新创建的工作簿
问题描述
我创建了一个宏,它能够解析来自 torrent 站点的一些电影名称。
我现在要做的是(我的脚本已经可以满足前三个要求,除了第四个):
1. Create a folder in my desktop
2. Create a new workbook after the name of the `Genre`
3. write the data in that new workbook
4. Save and close the data-ridden workbook in the newly created folder
到目前为止,这是我的尝试:
Sub CreateAndSaveWorbook()
Const link = "https://yts.am/browse-movies/0/all/action/0/latest"
Dim Http As New XMLHTTP60, Html As New HTMLDocument, genre$
Dim post As HTMLDivElement, wb As Workbook
Dim daddr$, fdObj As Object
daddr = Environ("USERPROFILE") & "\Desktop\Test\"
Set fdObj = CreateObject("Scripting.FileSystemObject")
If Not fdObj.FolderExists(daddr) Then fdObj.CreateFolder (daddr)
With Http
.Open "GET", link, False
.send
Html.body.innerHTML = .responseText
End With
genre = Html.querySelector("select[name='genre'] option[value='action']").innerText
Set wb = Workbooks.Add
wb.SaveAs daddr & genre & ".xlsx"
For Each post In Html.getElementsByClassName("browse-movie-bottom")
R = R + 1: wb.Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
Next post
End Sub
如何在自定义文件夹中保存和关闭新创建的工作簿?
解决方案
这是你的答案:) :更改wb.saveAs
为wb.Close true, daddr & genre & ".xlsx"
推荐阅读
- linux - Linux下ARM Cortex A上的内存区域如何表示为“设备”或“强排序”
- javascript - 如何使用 node-addon-api 从 char 向量创建新缓冲区?
- excel - 按顺序重新排列列的宏
- c# - 在事务中写入 Amazon S3 存储桶和 Amazon RDS
- python-3.x - xmlsec 安装在 virtualenv 环境中挂起
- vba - 使用 VBA 从 Word 文档中提取图像
- flutter - 如何在加载主小部件之前显示加载小部件
- python - 如何使用 Powershell 将扩展属性从 Azure AD 导出到 csv
- sql - 将 Ads Data Hub 中的广告数据与 BigQuery 中的 GA360 数据连接起来
- php - Laravel 8.X 对包含特定字符串的属性进行验证