pedido de exportação Mantis BT via “WinHttp.WinHttpRequest.5.1”
-
13-09-2019 - |
Pergunta
Meu chefe me pediu para exportar Mantis banco de dados erros do corp para o Excel, mas ele não pode me dar acesso ao SQL Server, e o processo tem de ser automatizado.
A única coisa que eu posso usar é Excel (sem ODBC, nenhuma exportação manual).
Então, eu consegui fazer isso:
Dim webClient As Object
Dim i As Long, vFF As Long, oResp() As Byte
Dim vLocalFile As String
Dim username As String, password As String
username = "blahblah"
password = "blahblah"
Set webClient = CreateObject("WinHttp.WinHttpRequest.5.1")
// Opening the connection to the application with a POST, containing user, password, and "permanent login" checked
webClient.Open "POST", "http://10.202.157.40/mantisbt-1.1.6/login.php", False
webClient.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
webClient.send ("username=" & username & "&password=" & password & "&perm_login=on")
// Now I set the "project" to "All Projects" (as I want the view to display our 2200 bugs)
webClient.Open "POST", "http://10.202.157.40/mantisbt-1.1.6/set_project.php", False
webClient.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
webClient.send ("project_id=0")
// The problem is, the last query displays 624 bugs instead of 2200, but I noticed when I click on "Advanced Filters" it successfully show the 2200 bugs (tested under a web browser AND Excel : the ResponseText shows them)
webClient.Open "GET", "http://10.202.157.40/mantisbt-1.1.6/view_all_set.php?type=6&view_type=advanced", False
webClient.send
// And NOW I can download the CSV file... (and that's where something is wrong *)
webClient.Open "GET", "http://10.202.157.40/mantisbt-1.1.6/csv_export.php", False
webClient.send
oResp = webClient.responseBody
// Creating a file and then filling it...
vFF = FreeFile
vLocalFile = "_mantis_export.csv"
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oResp
Close #vFF
// Freeing memory
Set webClient = Nothing
(*: cf o código) a linha antes, a responseText mostrou "2200 bugs", então tudo estava bem até a última consulta (csv_export.php). O roteiro, quando chamado através de um navegador, mostra exatamente o mesmo que a página que o chamou (se a página mostrava 2 erros, o CSV conterá 2 bugs). Com meus erros 2200 mostrado na IE / Firefox, o CSV traz me 2200 bugs. Mas no Excel, mesmo se os espectáculos responseText 2200 erros, o CSV traz me 624 erros ... Como se eu não tivesse chamado a página "Filtro avançado": (
Espero que alguém possa compreender e ajuda-me;)
Agradecemos antecipadamente,
David
Solução
Talvez seria mais fácil para você usar a API de SOAP? O ponto de entrada é em http: //server/mantis/api/soap/mantisconnect.php .