salve a tutti avrei un problema con un script
praticamente quello attuale legge i nomi dei file pdf in una cartella e crea un Excel con il criterio che legge : NOME - COGNOME - N° POLIZZA
io vorrei aggiungere una colonna codice
di seguito il programma esistente
' apre excel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
' scorre la directory
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim Filter
Select Case WScript.Arguments.Count
Case 0: Filter = "." ' list current directory
Case 1: Filter = WScript.Arguments(0)
Case Else: WScript.Echo "Numero di parametri errato!": WScript.Quit
End Select
Set Folder = fso.GetFolder(Filter)
Dim Files: Set Files = Folder.Files
' intestazione
objExcel.Cells(1, 1).Value = "COGNOME"
objExcel.Cells(1, 2).Value = "NOME"
objExcel.Cells(1, 3).Value = "POLIZZA"
' loop lettura file PDF
Dim n : n = 2
Dim File, pos, pos2, pos3, cogn, nome, pol
For Each File In Files
If fso.GetExtensionName(File)="pdf" Then
pos = Instr(1,File.Name,"-")
cogn = left(File.Name, pos-1)
pos2 = Instr(pos+1, File.Name,"-")
pos3 = Instr(pos2+1, File.Name,".pdf")
nome = mid(File.Name,pos+1,pos2-pos-1)
pol = mid(File.Name,pos2+1, pos3-pos2)
objExcel.Cells(n, 1).Value = cogn
objExcel.Cells(n, 2).Value = nome
objExcel.Cells(n, 3).Value = pol
n = n + 1
end if
next
:
e di seguito la parte di programma modificato:
' intestazione
objExcel.Cells(1, 1).Value = "COGNOME"
objExcel.Cells(1, 2).Value = "NOME"
objExcel.Cells(1, 3).Value = "POLIZZA"
objExcel.cells(1, 4).value = "CODICE"
' loop lettura file PDF
Dim n : n = 2
Dim File, pos, pos2, pos3, pos4, cogn, nome, pol, cod
For Each File In Files
If fso.GetExtensionName(File)="pdf" Then
pos = Instr(1,File.Name,"-")
cogn = left(File.Name, pos-1)
pos2 = Instr(pos+1, File.Name,"-")
pos3 = Instr(pos2+1, File.Name,"-")
pos4 = Instr(pos3+1, File.Name,".pdf")
nome = mid(File.Name,pos+1,pos2-pos-1)
pol = mid(File.Name, pos2+1, pos3-pos2-1)
cod = mid(File.Name, pos3+1, pos4)
objExcel.Cells(n, 1).Value = cogn
objExcel.Cells(n, 2).Value = nome
objExcel.Cells(n, 3).Value = pol
objExcel.Cells(n, 4).value = cod
grazie a tutti
Rispondi quotando
