[ Pannello di Controllo Moderatore ]
ma tu hai capito cosa vuole fare ? io no.Gaetanopr ha scritto:patel credo che lui intenda dire dal file pinco al file datario, quindi tramite una macro.
pol ha scritto:Nella cartella pazienti ci sono delle cartelle nominate con dei nomi, i nomi dovrebbero finire nella prima riga della cartella datario, in nessun ordine uno sotto l'altro in base alla creazione.
Grazie.
Sub AggiornaDatario
Dim Doc As Object
Dim Url As String
Dim Args(3) as New com.sun.star.beans.PropertyValue
Args(0).Name="Hidden"
Args(0).Value= False
Args(1).Name = "AsTemplate"
Args(1).value = False
Doc = ThisComponent
'DrawPage = Doc.Sheets.getByName("Foglio1").DrawPage
'Form = DrawPage.Forms.GetByIndex(0)
'Ctl = Form.getByName("Datario")
'If Ctl.State = 1 Then MsgBox (" Paziente già inserito nel datario ") : EXIT Sub
Paziente = Doc.Sheets.getByName("Foglio1").getCellRangeByName("B1").String
REM file datario
Url = "D:\Users\Gaetano\Desktop\prova\datario.ods"
file1 = StarDesktop.LoadComponentFromUrl(ConvertToURL(Url) , "_default", 0, Args() )
Sh = file1.getSheets.getByName("Foglio1") ' Foglio1 del file datario
a = Sh.createCursor
a.gotoEndOfUsedArea(false)
LastRow = a.RangeAddress.EndRow
oRange = Sh.getCellRangeByPosition(0, 2, 0, LastRow)
oDescriptor = oRange.createSearchDescriptor()
With oDescriptor
.SearchString = Paziente
.SearchWords = False
.SearchType = 1
.SearchCaseSensitive = False
End With
oFound = oRange.findFirst(oDescriptor)
If Not IsNull(oFound) Then MsgBox "Paziente già inserito" : exit sub
Sh.getCellbyposition(0, LastRow+1).String = Paziente
'Ctl.State = 1
file1.store
end sub
Visitano il forum: Nessuno e 18 ospiti