kiến thức [Excel VBA] Lấy dữ liệu từ trang web bất kỳ

Private Function GetSheetIdByName(ByVal SpreadsheetId As String, ByVal Name As String) As Long
    Dim objGoogle As GoogleOAuth2
    Set objGoogle = GetSession
    On Error Resume Next
    Dim objSpreadsheet As Spreadsheet
    Set objSpreadsheet = objGoogle.Spreadsheets.GetSpreadsheet(SpreadsheetId:=SpreadsheetId)
    On Error GoTo 0
    If Not objSpreadsheet Is Nothing Then
        Dim objSheet As Sheet
        Dim i As Long
        Dim objSheetProperties As SheetProperties
        For i = 1 To objSpreadsheet.Sheets.Count
            Set objSheet = objSpreadsheet.Sheets.Item(i)
            Set objSheetProperties = objSheet.Properties
            If objSheetProperties.Title = Name Then
                GetSheetIdByName = objSheetProperties.SheetId
                Exit For
            End If
        Next
    End If
End Function

Public Sub FormatCells()
    Dim objGoogleOAuth2 As GoogleOAuth2
    Set objGoogleOAuth2 = GetSession()
    If Not objGoogleOAuth2 Is Nothing Then
        'Khai bao bien chua yeu cau cap nhat dinh dang cua cac o (Cell)
        Dim objRepeatCellRequest As RepeatCellRequest
        Set objRepeatCellRequest = New RepeatCellRequest
        Dim lngSheetId As Long, strSpreadsheetId As String
        strSpreadsheetId = "Ma Id cua spreadsheet "
        lngSheetId = GetSheetIdByName(strSpreadsheetId, "Ten sheet")
        'Khai bao bien chua dinh nghia vung du lieu (range)
        Dim objGridRange As GridRange
        Set objGridRange = New GridRange
        'Chon cac o trong vung B3:C3
        With objGridRange
            .SheetId = lngSheetId 'Ma Id cua sheet
            .StartRowIndex = 2 'Vi tri dong dau tien, o day phai tru di 1 (do chi so bat dau tu so 0), tuc la dong bat dau la 3
            .EndRowIndex = 3 'Vi tri dong cuoi cung, khong can phai tru di 1, tuc la o ket thuc la dong so 3
            .StartColumnIndex = 1 'Vi tri cot dau tien, o day phai tru di 1 (do chi so bat dau tu so 0), tuc la cot so 2
            .EndColumnIndex = 3 'Vi tri cot cuoi cung, khong can phai tru di 1, tuc la cot ket thuc la dong so 3
            'Nhu vay, doi tuong GridRange nay dinh nghia vung du lieu co dia chi kieu A1 la: B3:C3
        End With
        'Dua vung du lieu can ap dung vao yeu cau Repeat Cell
        Set objRepeatCellRequest.Range = objGridRange
        'Khai bao bien dung cho dinh nghia dinh dang cua cac o
        Dim objUserEnteredFormat As CellFormat
        Set objUserEnteredFormat = New CellFormat
        'Khai bao bien dung cho dinh dang van ban cua cac o
        Dim objTextFormat As TextFormat
        Set objTextFormat = New TextFormat
        With objTextFormat
            .Bold = "true" 'Chu in dam
            .FontSize = 16 'Kich thuoc phong chu
            .Underline = "true" 'Duong gach duoi chan cua chu
        End With
        Set objUserEnteredFormat.TextFormat = objTextFormat
        Dim objCellData As CellData
        Set objCellData = New CellData
        Set objCellData.UserEnteredFormat = objUserEnteredFormat
        'Them yeu cau thay doi cac dinh danh cho cac o vao yeu cau Cell Data
        Set objRepeatCellRequest.Cell = objCellData
        objRepeatCellRequest.Fields = "userEnteredFormat.textFormat.bold,userEnteredFormat.textFormat.fontSize,userEnteredFormat.textFormat.underline" 'Ghi ra cu the cac truong thong tin se cap nhat
        'Chuan bi yeu cau Repeat Cell de san sang gui di
        Dim objRequests As Requests
        Set objRequests = New Requests
        Set objRequests.repeatCell = objRepeatCellRequest
        Dim objBatchUpdateSpreadsheetRequest As BatchUpdateSpreadsheetRequest
        Set objBatchUpdateSpreadsheetRequest = New BatchUpdateSpreadsheetRequest
        With objBatchUpdateSpreadsheetRequest
            .Requests.Add objRequests.ToJson
            .IncludeSpreadsheetInResponse = "false"
            .ResponseIncludeGridData = "false"
        End With
        Dim objResponse As BatchUpdateSpreadsheetResponse
        On Error Resume Next
        'Gui di yeu cau
        Set objResponse = objGoogleOAuth2.Spreadsheets.BatchUpdate.Execute(SpreadsheetId:=strSpreadsheetId, BatchUpdateSpreadsheetRequest:=objBatchUpdateSpreadsheetRequest)
        If Err.Number <> 0 Then
            MsgBox Err.Description, vbExclamation, "Error"
        End If
        On Error GoTo 0
        If Not objResponse Is Nothing Then
            Debug.Print objResponse.SpreadsheetId
        End If
    End If
End Sub

Private m_AboutResource As AboutResource
Private m_ChangesResource As ChangesResource
Private m_ChannelsResource As ChannelsResource
Private m_CommentsResource As CommentsResource
Private m_FilesResource As FilesResource
Private m_PermissionsResource As PermissionsResource
Private m_RepliesResource As RepliesResource
Private m_RevisionsResource As RevisionsResource
Private m_DrivesResource As DrivesResource

Public Property Get DrivesResource() As DrivesResource
    Set DrivesResource = m_DrivesResource
End Property

Public Property Set DrivesResource(Value As DrivesResource)
    Set m_DrivesResource = Value
End Property

Public Property Get RevisionsResource() As RevisionsResource
    Set RevisionsResource = m_RevisionsResource
End Property

Public Property Set RevisionsResource(Value As RevisionsResource)
    Set m_RevisionsResource = Value
End Property

Public Property Get RepliesResource() As RepliesResource
    Set RepliesResource = m_RepliesResource
End Property

Public Property Set RepliesResource(Value As RepliesResource)
    Set m_RepliesResource = Value
End Property

Public Property Get PermissionsResource() As PermissionsResource
    Set PermissionsResource = m_PermissionsResource
End Property

Public Property Set PermissionsResource(Value As PermissionsResource)
    Set m_PermissionsResource = Value
End Property

Public Property Get FilesResource() As FilesResource
    Set FilesResource = m_FilesResource
End Property

Public Property Set FilesResource(Value As FilesResource)
    Set m_FilesResource = Value
End Property

Public Property Get CommentsResource() As CommentsResource
    Set CommentsResource = m_CommentsResource
End Property

Public Property Set CommentsResource(Value As CommentsResource)
    Set m_CommentsResource = Value
End Property

Public Property Get ChannelsResource() As ChannelsResource
    Set ChannelsResource = m_ChannelsResource
End Property

Public Property Set ChannelsResource(Value As ChannelsResource)
    Set m_ChannelsResource = Value
End Property

Public Property Get ChangesResource() As ChangesResource
    Set ChangesResource = m_ChangesResource
End Property

Public Property Set ChangesResource(Value As ChangesResource)
    Set m_ChangesResource = Value
End Property

Public Property Get AboutResource() As AboutResource
    Set AboutResource = m_AboutResource
End Property

Public Property Set AboutResource(Value As AboutResource)
    Set m_AboutResource = Value
End Property

Public Sub AuthorizeOAuth2()
    ...
    Dim objAboutResource As AboutResource
    Set objAboutResource = New AboutResource
    objAboutResource.AccessToken = AccessToken
    Set AboutResource = objAboutResource
    Dim objChangesResource As ChangesResource
    Set objChangesResource = New ChangesResource
    objChangesResource.AccessToken = AccessToken
    Set ChangesResource = objChangesResource
    Dim objChannelsResource As ChannelsResource
    Set objChannelsResource = New ChannelsResource
    objChannelsResource.AccessToken = AccessToken
    Set ChannelsResource = objChannelsResource
    Dim objCommentsResource As CommentsResource
    Set objCommentsResource = New CommentsResource
    objCommentsResource.AccessToken = AccessToken
    Set CommentsResource = objCommentsResource
    Dim objFilesResource As FilesResource
    Set objFilesResource = New FilesResource
    objFilesResource.AccessToken = AccessToken
    Set FilesResource = objFilesResource
    Dim objPermissionsResource As PermissionsResource
    Set objPermissionsResource = New PermissionsResource
    objPermissionsResource.AccessToken = AccessToken
    Set PermissionsResource = objPermissionsResource
    Dim objRepliesResource As RepliesResource
    Set objRepliesResource = New RepliesResource
    objRepliesResource.AccessToken = AccessToken
    Set RepliesResource = objRepliesResource
    Dim objRevisionsResource As RevisionsResource
    Set objRevisionsResource = New RevisionsResource
    objRevisionsResource.AccessToken = AccessToken
    Set RevisionsResource = objRevisionsResource
    Dim objDrivesResource As DrivesResource
    Set objDrivesResource = New DrivesResource
    objDrivesResource.AccessToken = AccessToken
    Set DrivesResource = objDrivesResource
End Sub