este codigo para rodar em 64 bits no Office, precisara implementar algumas alteracoes.Certifique-se de ter adicionado as referencias ao Microsoft WinHTTP Services, XML Microsoft e Microsoft Script ao seu projeto (Ferramentas -> Adicione referencias no editor VBA)Voce encontrara alguns casos obvios de repeticao de codigo (por exemplo, as funcoes get_basestring , get_status_basestring e get_media_basestring sao bastante identicos). Como estava originalmente trabalhando desta maneira, foi mais facil concentrar a tarefa dessa forma (ou seja, Tweets de texto, Tweets com midia, obtendo o servico do Twitter e a informacao do estado). Pode-se facilmente refazer as funcoes anteriores em uma unica funcao, existem oportunidades adicionais para tornar o codigo mais eficiente / elegante e consistente.Este desenvolvimento foi criado por Greg Williams e esta licenciado sob atribuicao Creative Commons.O codigo e fornecido como esta. Todo o uso e por sua conta e risco.Funcoes da API do Windows e declaracoes de tipoPrimeiro, vamos definir um par de funcoes da API do Windows usando o Declare palavra-chave. Tambem vamos criar alguns tipos de dados definidos pelo usuario usando o Tipo comunicado.#If VBA7 Then Public Declare PtrSafe Sub GetSystemTime Lib "Kernel32" (lpSystemTime As SYSTEMTIME) Public Declare PtrSafe Function SystemTimeToFileTime Lib "Kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As LongPtr Public Declare PtrSafe Function LocalFileTimeToFileTime Lib "Kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As LongPtr Public Declare PtrSafe Function FileTimeToSystemTime Lib "Kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As LongPtr#Else Public Declare Sub GetSystemTime Lib "Kernel32" (lpSystemTime As SYSTEMTIME) Public Declare Function SystemTimeToFileTime Lib "Kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long Public Declare Function LocalFileTimeToFileTime Lib "Kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long Public Declare Function FileTimeToSystemTime Lib "Kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long#End If Public Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd Type Public Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As IntegerEnd TypeA sintaxe #If VBA7 Entao ... # Else ... # End If, PtrSafe palavra-chave, e LongPtr tipo de dados sao usados para permitir que o codigo seja executado na versao 64 bits do Office (ver este artigo MSDN para mais informacoes).Novamente, conforme mencionado acima, o codigo como esta (usando o Microsoft Script Control), nao sera executado no Office 64 bits. Mas, se decidir escrever alternativas / uso que nao precisam Microsoft Script Control (ou no caso aparentemente improvavel que a Microsoft lanca uma versao de 64 bits do msscript.ocx), vai ser util para ter suas declaracoes de funcao API 64-bit de pronto.CONSTANTESA seguir, vamos definir algumas constantes. Para obtermos as chaves de API do Twitter necessarias e os tokens, precisaremos nos inscrever no Twitter como um desenvolvedor, em seguida, registrar o aplicativo.Neste exemplo, tambem usaremos encurtador de links do Google para encurtar os links incluidos nos tweets. Se quiser fazer o mesmo, precisara se inscrever como um desenvolvedor do Google e obter uma chave de API.Const cnsAPIMethodP As String = "POST"Const cnsAPIMethodG As String = "GET"Const cnsOauthConsumerKey As String = "yourtwitterconsumerkey"Const cnsOauthConsumerSecret As String = "yourtwitterconsumersecret"Const cnsOauthToken As String = "yourtwitteraccesstoken"Const