✔ Programação GLOBAL®: DONUT PROJECT 2021 - VBA Function: Sabe como enviar dados para o Google Sheet, através do MS Excel, usando VBA, no MacBook?

DONUT PROJECT 2021 - VBA Function: Sabe como enviar dados para o Google Sheet, através do MS Excel, usando VBA, no MacBook?

Como enviar dados para o Google Sheet, através do MS Excel, usando VBA? O método funciona perfeitamente no Windows, mas tem alguns problemas no MacBook.

Quando se executa a Macro no MacBook, ela diz que "Não é possível encontrar o projeto ou a biblioteca". Depois de fazer algumas pesquisas, descobri que na verdade é um problema do MSXML2.ServerXMLHTTP60, se estiver correto. Não tenho certeza de como resolver esse problema. Publiquei o código abaixo e espero obter alguns conselhos sobre o que devo alterar para que funcione tanto no Windows quanto no MacBook.

Claro, se algum de vocês tiver uma ideia melhor sobre como enviar os dados para o Google Sheet que funcione tanto para Windows quanto para o MacBook, deixe um comentário.

Agradeço muito se alguém puder me ajudar a resolver este problema.

Sub SendTicket()
'This Macro Requires Reference to "Microsoft XML, v6.0" (VBA Editor > Tools > References, find & select from list)
'Created By Randy Austin of www.ExcelForFreelancers.com
'https://docs.google.com/forms/d/e/1FAIpQLScaXsTsNxWDNxg4CuMIpm3uKy4aFFm8aC8Fw2pzhSYZN8snTA/viewform?usp=pp_url&entry.1301421684=TestName&entry.606095064=Test@email.com&entry.2080720803=VBA+Bug&entry.1773665967=TestDesc
Dim SendLink As String, StartLink As String, EndLink As String, HeaderName As String, SendID As String
Dim ReportedBy As String, EmailAdd As String, IssType As String, IssDesc As String
Dim TicketInfo As MSXML2.ServerXMLHTTP60
HeaderName = "Content-Type"
SendID = "application/x-www-form-urlencoded; charset=utf-8"
'Get Form Details
ReportedBy = SubmitTicketForm.SenderName.Value 'Reported By Name
EmailAdd = SubmitTicketForm.SenderEmail.Value 'Reported By Email Address
IssType = SubmitTicketForm.IssueType.Value 'Issue Type
IssDesc = SubmitTicketForm.Description.Value 'Issue Description

'Please update the links with your own link from Google Forms
StartLink = "https://docs.google.com/forms/d/e/1FAIpQLScaXsTsNxWDNxg4CuMIpm3uKy4aFFm8aC8Fw2pzhSYZN8snTA/formResponse?ifq"
EndLink = "&entry.1301421684=" & ReportedBy & "&entry.606095064=" & EmailAdd & "&entry.2080720803=" & IssType & "&entry.1773665967=" & IssDesc & "&submit=Submit"
SendLink = StartLink & EndLink

Set TicketInfo = New ServerXMLHTTP60
TicketInfo.Open "POST", SendLink, False

TicketInfo.setRequestHeader HeaderName, SendID
TicketInfo.send

If TicketInfo.statusText = "OK" Then 'Check for successful send
MsgBox "Thank you for submitting a ticket. We will email you a response shortly"
Else
MsgBox "Please check your internet conenction & required details"
End If
End Sub