如何使用qtp操作OpenOffice

wJ
Mx:_h7n0Public Function ConvertToURL(cFilename)
4b{N Ind E0Dim sURL
7TP.{Q6cb9k/@0' Ensure leading slash.51Testing软件测试网4@I)M1Mnq
If Left(cFilename, 1) <> "/" Then51Testing软件测试网iRW`0\J:y+VeM"U
cFilename = "/" + cFilename51Testing软件测试网9g1E\MCn
End If
"Q2hC%V0f_l'U0sURL = Replace(cFilename, "\", "/") 'change backslashes to forward slashes.
)[ LP#TTXSP2g%g+p0sURL = "file://" + sURL 'Example: "file:///E:/Sample Files/Sample.ods"51Testing软件测试网_e0OfY
ConvertToURL = sURL51Testing软件测试网!slG9c7k
End Function

51Testing软件测试网 W~BcQ*{h
 51Testing软件测试网BDn t#y$Yg

Function GetData(sFileName, sSheetName)
rT%u7Lb0kq}[X0Dim objServiceManager51Testing软件测试网$b+BD9O~H
Dim oDesktop
0e m\:G\`B0Dim oDocument
poSOLoL0Dim oSheet51Testing软件测试网1U)cP {,Z
Dim oParCursor
] tHESFI6W0Dim oCell51Testing软件测试网!]1Vq
k:b G
Dim xSearchDesc

Set ōbjServiceManager = CreateObject("com.sun.star.ServiceManager")
y6\:^,R2KNoM'|0Set ōDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")51Testing软件测试网XJRkk/c a/v |IP
Set ōDocument = oDesktop.loadComponentFromURL(ConvertToURL(sFileName), "_blank", 0, Array())51Testing软件测试网f)wvxyI$io{
Set ōSheet = oDocument.Sheets.getByName(sSheetName)

Q%\D)[\)B9fX!c5kAW0Set xSearchDesc = oSheet.createSearchDescrīptor()51Testing软件测试网{+nU7~!] n
xSearchDesc.SetSearchString("DC")51Testing软件测试网8gw9^GB-d
Set ōCell = oSheet.findFirst(xSearchDesc)
&J\L#y&BYp@0MsgBox oCell.getCellAddress().Row
Fr
phho0MsgBox oCell.getCellAddress().Column '//Use the openoffice search function to getcell and return the row and column

ne2@1@A0Set ōRowCursor = oSheet.createCursor() 51Testing软件测试网
M MK'ri#V |;?b
oRowCursor.gotoStartofUsedArea(false) 51Testing软件测试网+Iio8O}c
oRowCursor.gotoEndofUsedArea(True)
hExQp1W0MsgBox oRowCursor.getrows.Count

#@.sS^`O5iF d0Set ōColumnCursor = oSheet.createCursor() 51Testing软件测试网.tTh| r
oColumnCursor.gotoStartofUsedArea(false)
'{/xQ&p4k/F0oColumnCursor.gotoEndofUsedArea(True)
lz#J5e:C9@"g"FJ0MsgBox oColumnCursor.getColumns.Count51Testing软件测试网SP$xX;}TEAMs

d:yDT#x0MsgBox oSheet.GetCellByPosition(0, 0).GetString()

End Function

acHoU w.vW)Q0