Guten Tag Marcus Polk,
am Montag, 23. Juli 2012 um 05:08 schrieben Sie:
> The problem is, it's all something I'm not familiar with.
Maybe hiring a consultant is an option, I would suspect some of them
having something ready to use:
http://www.bugzilla.org/support/consulting.html
Else the following looks like what I meant:
http://blog.sos-company.com/?p=3
Public Function HTTPGet(ByVal URL As String) As String
Dim xmlhttp As Object
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", URL
' Indicate the header length
xmlhttp.setRequestHeader "User-Agent", _
"mozilla/4.0 (compatible; MSIE 6.0)"
xmlhttp.Send
Dim counter As Double
' Wait 1 minute for the server's answer
TimeOut = Date + Time + TimeSerial(0, 0, 60)
While (Not xmlhttp.readyState = 4) And (Date + Time < TimeOut)
DoEvents
Wend
If xmlhttp.readyState = 4 Then
If xmlhttp.Status = 200 Then
HTTPGet = xmlhttp.ResponseText
ElseIf xmlhttp.Status <> 200 Then
MsgBox "Server error: " & xmlhttp.Status
End If
ElseIf xmlhttp.readyState <> 4 Then
MsgBox "Ready State error: " & xmlhttp.readyState
End If
End Function
Sub SheetUpdate()
Dim sQueryString As String
' This is the URL to the CSV file
sQueryString = "
https://bugzilla.redhat.com/buglist.cgi?bug_status=NEW&bug_status=ASSIGNED&classification=Red%20Hat&component=openldap&field-1-0-0=classification&field-1-1-0=product&field-1-2-0=component&field-1-3-0=bug_status&product=Red%20Hat%20Enterprise%20Linux%205&query_format=advanced&remaction=&type-1-0-0=anyexact&type-1-1-0=anyexact&type-1-2-0=anyexact&type-1-3-0=anyexact&value-1-0-0=Red%20Hat&value-1-1-0=Red%20Hat%20Enterprise%20Linux%205&value-1-2-0=openldap&value-1-3-0=NEW%2CASSIGNED&ctype=csv"
' Send a HTTP Query to the bugzilla server
sAnswer = HTTPGet(sQueryString)
' The answer is a CSV text, split it into lines, and then into cells
aLines = Split(sAnswer, vbLf)
' Loop on the lines
For i = LBound(aLines) To UBound(aLines)
aElements = Split(aLines(i), ",")
' Loop on the elements of each line
For j = LBound(aElements) To UBound(aElements)
ActiveSheet.Range("B10").Offset((i - LBound(aLines)),
(j - LBound(aElements)))._
Formula = aElements(j)
Next j
Next i
End Sub