1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| Set objFSO = CreateObject("Scripting.FileSystemObject")
Set myRegExp = New RegExp
Set myRegExpIP = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "\(.*\)$|[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}"
Dim serviceManager
Dim Desktop
Dim Fichier
Dim arg()
Dim URL
Dim sheet
Dim Cell
'Création d'une instance Open Office
Set serviceManager = CreateObject("com.sun.star.serviceManager")
Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
objStartFolder = "D:\Users\ngreder\Downloads\FVS\FVS"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
' Fichier de commande pour intégration
FichierCMD = objStartFolder & "\command_OO.txt"
Set NewFichier = objFSO.CreateTextFile(FichierCMD,TRUE)
For Each objFile in colFiles
If UCase(objFSO.GetExtensionName(objFile.name)) = "XLSX" Then
FileName = objFSO.GetFileName(objFile)
'wscript.echo FileName
'wscript.echo objFile
URL = "file:///" & objFile
'wscript.echo URL
Set Document = Desktop.loadComponentFromURL(URL, "_blank", 0, Array())
Set Sheets = Document.getSheets()
Set Sheet = Sheets.getByIndex(1)
For row=24 to 55
If Sheet.getCellByPosition(0,row).String = "Services" And Sheet.getCellByPosition(1,row).String <> "Remote Procedure Call (RPC)(RpcSs)" Then
services_long=Sheet.getCellByPosition(1,row).String
'wscript.echo services_long
services_short = myRegExp.Replace(services_long, "")
Sheet.getCellByPosition(1,row).String = services_short
'wscript.echo services_short
End If
If Sheet.getCellByPosition(0,row).String = "Services" And Sheet.getCellByPosition(1,row).String = "Remote Procedure Call (RPC)(RpcSs)" Then
Sheet.getCellByPosition(1,row).String = "Remote Procedure Call (RPC)"
End If
Next
Document.store
'Closing the document.
'Document.Close (True)
'Set Document = Nothing
End If
Next |
Partager