Questione : Lo scritto per unire tutti i ceppi in 1 eccelle la lima. Secondo le selezioni in un UNC.

Ciao, il

Script per unire tutti i ceppi in 1 eccelle la lima. Secondo le selezioni in UNC.

The uno scritto reale è stato fornito da Joe
Its un HTA relativo al href= " http://www.experts-exchange.com/Programming/Languages/Q_26309499.html#a33213939 " del software capturing.
Original Q.
ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 del e.com/Prog di http://www.experts-exchang class= > " libero " del
soluzioni >Related class= codice di HTA " del title= " " di /Programming/Languages/Q_26309499.html del href= di HTA che può elencare tutti i software in una macchina ed ha una piccola scatola per fornire le osservazioni… in

Risposta : Lo scritto per unire tutti i ceppi in 1 eccelle la lima. Secondo le selezioni in un UNC.

E se volete Excel, forse questo:
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:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

'Percorso ai rapporti
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Percorso alla lima di XLS
strXLS= " c:\report.xls "


Regolare il objExcel = CreateObject (“Excel.Application„)
objExcel.DisplayAlerts = falso
objExcel.Visible = allineano
Regolare il objWorkbook = objExcel.Workbooks.Add

Regolare il fso=CreateObject (“Scripting.FileSystemObject„)

'il XLS esiste?
Se fso.FileExists (strXLS) allora
	ret=msgbox (“la lima esiste:  „ & lo strXLS & il vbCrLf & il vbCrLf & “scrivono sopra? „, di vbYesNo+vbQuestion, “di XLS creatore di rapporto„)
	Se ret=vbNo allora 
		wscript.quit
	Altrimenti
		fso.DeleteFile (strXLS)
		Se fso.FileExists (strXLS) allora
			il msgbox “non ha potuto scrivere sopra la lima:  „ & strXLS, vbExclamation, “creatore di rapporto di XLS„
			wscript.quit
		Concluder se
	Concluder se
Concluder se

'Collegare con i rapporti di TXT
Per ciascuno oFile in fso.GetFolder (strReportPath). Lime
	Se lcase (fso.GetExtensionName (oFile))= " txt " allora
		MakeWorksheet oFile
	Concluder se
Dopo

Per ogni strato in objWorkbook.Worksheets
	Se andato (strato. Il nome, 5)= " strato " allora riveste. Cancellazione
Dopo

objExcel.DisplayAlerts = allineano
'strXLS di objExcel.save
strXLS di objWorkbook.SaveAs

MakeWorksheet secondario (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	Regolare il objWorksheetNew = objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Regolare oFile=fso.OpenTextFile (oFile)
	text=oFile.ReadAll
	oFile.close
	
	il arrText = ha spaccato (testo, vbCrLf)
	
	'Scrivere le intestazioni
	intRow=1
	objWorksheetNew.Cells (intRow, 1).Value= " titolo del software "
	objWorksheetNew.Cells (intRow, 2).Value= " commento del software "
	
	Per ogni linea nel arrText
		Se instr (linea, vbTab) allora
			arrLine=split (linea, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1).Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2).Value=arrLine (1)
		Concluder se
	Dopo
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Regolare il objWorksheetNew = niente
	Fissare oFile=Nothing
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us