Vraag : Het manuscript om alle logboeken in 1 te combineren blinkt dossier uit. Vanaf de selecties in een UNC.

Hallo, blinkt

Script om alle logboeken in 1 te combineren dossier uit. Vanaf de selecties in een daadwerkelijk manuscript UNC.

The werd verstrekt door Joe
Its een HTA op software capturing.
Original Q.
http://www.experts-exchang e.com/Prog ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 betrekking had
Related Oplossingen: HTA die van alle software in een machine kan een lijst maken en een klein vakje hebben om commentaren in… in te gaan

Antwoord : Het manuscript om alle logboeken in 1 te combineren blinkt dossier uit. Vanaf de selecties in een UNC.

En als u Excel wilt, misschien dit:
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:

'Weg aan rapporten
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Weg aan Xls- dossier
strXLS= " c:\report.xls "


Reeks objExcel = CreateObject („Excel.Application“)
objExcel.DisplayAlerts = vals
objExcel.Visible = Waar
Reeks objWorkbook = objExcel.Workbooks.Add

Reeks fso=CreateObject („Scripting.FileSystemObject“)

'Bestaat XLS?
Als fso.FileExists (strXLS) toen
	ret=msgbox („Dossier er bestaat:  “ & strXLS beschrijf & vbCrLf & vbCrLf & „? “, vbYesNo+vbQuestion, „De Maker van het xls- Rapport“)
	Als ret=vbNo toen 
		wscript.quit
	Anders
		fso.DeleteFile (strXLS)
		Als fso.FileExists (strXLS) toen
			msgbox „kon geen dossier beschrijven:  “ & strXLS, vbExclamation, „De Maker van het xls- Rapport“
			wscript.quit
		Eind als
	Eind als
Eind als

'Lijn door Txt- rapporten
Voor elk oFile in fso.GetFolder (strReportPath). Dossiers
	Als lcase ((oFile) fso.GetExtensionName)= " txt " toen
		oFile MakeWorksheet
	Eind als
Daarna

Voor elk blad in objWorkbook.Worksheets
	Indien weggegaan (blad. Naam, 5) = het blad van het " Blad " toen. Schrap
Daarna

objExcel.DisplayAlerts = waar
'objExcel.save strXLS
objWorkbook.SaveAs strXLS

Sub (oFile) MakeWorksheet
	strWorksheet = (oFile) fso.GetBaseName
	Reeks objWorksheetNew = objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Vastgestelde (oFile) oFile=fso.OpenTextFile
	text=oFile.ReadAll
	oFile.close
	
	arrText = verdeel (tekst, vbCrLf)
	
	'Schrijf Kopballen
	intRow=1
	objWorksheetNew.Cells (intRow, 1). Value= de " Titel van de Software "
	objWorksheetNew.Cells (intRow, 2). Value= de " Commentaar van de Software "
	
	Voor elke lijn in arrText
		Als instr (lijn, vbTab) toen
			arrLine=split (lijn, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1). Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2). Value=arrLine (1)
		Eind als
	Daarna
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Reeks objWorksheetNew = niets
	Het vastgestelde oFile=Nothing
Sub van het eind
Andere oplossingen  
 
programming4us programming4us