I enjoyed your tutorial and I downloaded your zip file and toyed around with with the code to understand your usage. I am currently working on capturing information from quickbooks for use in MS Access. I am needed the “Duration” field in the timetrackingquery. I have a working xml file that, when I use the SDK test utility, successfully creates an xml response that contains the Duration field. eg PT4H30M0S. I then save that xml file. I have writen vba code to import the xml into Excel and run through several operation that turns that Duration value into 4.5

I would love to find a way to capture this query from QB from Excel VBA. If tried to rewrite your code, but I run into an Argument error when I hit the line of code that contains Duration.GetValue

Since I know the xml file can get the data, I know QB will supply it. I would really love any help you can provide so I can send the xml request and process the response from within Excel’s VBA.

Scott

Nice summary and use of vba to access and enumerate your QB data.

Saved me hours of pawing, sucking, and chewing on the rather terse IDN info.

Thanks much-o for the sample code!

dave m

The following code is working fine in owc.spreadsheet component version 9 but not working fine when i use owc11.spreadsheet component.

‘******************************************
sub subWriteHeader

with objExcel.Range(“C1:E1?)
.Merge
.Borders.Color = “black”
.Interior.Color = “white”
.Font.Bold = “true”
.Borders.Weight = 2
.Font.Size = “12?
.Font.Color = “Darkblue”
.value = “WWAS Active Delegations”
end with

with objExcel.Range(“C4:C4?)
.Font.Color = “green”
.Font.Size= “12?
.Value= “Limits Displayed In US Dollars”
end with

with objExcel.Range(“A5:N5?)

.Borders.Color = “black”
.Interior.Color = “LightSteelBlue”
.Borders.Weight = 1
.Font.Size = “12?
.Font.Color = “white”
end with

objExcel.Cells(5, 1).Value = “Authorizer”
objExcel.Cells(5, 2).Value = “Authorizer Emp#”
objExcel.Cells(5, 3).Value = “Location Code”
objExcel.Cells(5, 4).Value = “MRU Code”
objExcel.Cells(5, 5).Value = “General Expenses”
objExcel.Cells(5, 6).Value = “Capital Purchases”
objExcel.Cells(5, 7).Value = “Business Case Name”
objExcel.Cells(5, 8).Value = “Business Case Limit”
objExcel.Cells(5, 9).Value = “Delegate”
objExcel.Cells(5, 10).Value = “Delegate Emp#”
objExcel.Cells(5, 11).Value = “Delegate Email”
objExcel.Cells(5, 12).Value = “Delegate Phone”
objExcel.Cells(5, 13).Value = “From Date”
objExcel.Cells(5, 14).Value = “To Date”

end sub

The cell preoperties and the headers are not setting.

Please can you give me a clue what could be the problem.

Thanks,
Raghu