0

上司から、会社の Mantis バグ データベースを Excel にエクスポートするように依頼されましたが、SQL Server へのアクセスを許可してもらえず、プロセスを自動化する必要があります。

私が使用できる唯一のものはExcelです（ODBCなし、手動エクスポートなし）。

だから私はこれを行うことができました：

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

(* : コード参照) 前の行で、ResponseText に「2200 bugs」と表示されていたので、最後のクエリ (csv_export.php) までは問題ありませんでした。スクリプトは、ブラウザー経由で呼び出されると、それを呼び出したページとまったく同じように表示されます (ページに 2 つのバグが表示された場合、CSV には 2 つのバグが含まれます)。私の 2200 のバグが IE / Firefox に表示されているので、CSV は 2200 のバグをもたらします。しかし、Excel では、ResponseText に 2200 のバグが表示されていても、CSV には 624 のバグがあります...まるで「高度なフィルター」ページを呼び出さなかったかのように :(

誰かが私を理解して助けてくれることを願っています;）

前もって感謝します、

デビッド

4

1 に答える 1

0

おそらく、SOAP APIを使用する方が簡単でしょうか？エントリポイントはhttp://server/mantis/api/soap/mantisconnect.phpにあります。

于 2009-08-13T19:59:21.163 に答える