Не удается сохранить и закрыть вновь созданную книгу в пользовательской папке - PullRequest
Новая
       24

Не удается сохранить и закрыть вновь созданную книгу в пользовательской папке

0 голосов
/ 02 марта 2019

Я создал макрос, который может анализировать названия некоторых фильмов с торрент-сайта.

Что я хочу сделать сейчас ( Мой сценарий может удовлетворить уже первые три требования, кроме четвертого ): 

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

Как сохранить и закрыть вновь созданную книгу в пользовательской папке?

1 Ответ

0 голосов
/ 02 марта 2019

Вот ваш ответ :): Измените wb.saveAs на wb.Close true, daddr & genre & ".xlsx"

...