Pergunta : O certificado para combinar todos os registros em 1 prima a lima. Como por as seleções em um UNC.

Olá!, o

Script para combinar todos os registros em 1 prima a lima. Como por as seleções em um certificado real de UNC.

The foi fornecido por Joe
Its um HTA relativo ao href= " http://www.experts-exchange.com/Programming/Languages/Q_26309499.html#a33213939 " do software capturing.
Original Q.
o ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 do e.com/Prog de http://www.experts-exchang class= > " desobstruído " do
soluções >Related class= código HTA " do title= de " de " /Programming/Languages/Q_26309499.html do href= do HTA que pode alistar todos os software em uma máquina e tem uma caixa pequena para incorporar comentários… a

Resposta : O certificado para combinar todos os registros em 1 prima a lima. Como por as seleções em um UNC.

E se você quer Excel, talvez isto:
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:

'Trajeto aos relatórios
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Trajeto à lima de XLS
strXLS= " c:\report.xls "


Ajustar o objExcel = o CreateObject (“Excel.Application”)
objExcel.DisplayAlerts = falso
objExcel.Visible = retificam
Ajustar o objWorkbook = o objExcel.Workbooks.Add

Ajustar o fso=CreateObject (“Scripting.FileSystemObject”)

'o XLS existe?
Se fso.FileExists (strXLS) então
	ret=msgbox (a “lima existe:  ” & o strXLS & o vbCrLf & o vbCrLf & “Overwrite? ”, de vbYesNo+vbQuestion, “de XLS fabricante do relatório”)
	Se ret=vbNo então 
		wscript.quit
	Mais
		fso.DeleteFile (strXLS)
		Se fso.FileExists (strXLS) então
			o msgbox “não podia overwrite a lima:  ” & strXLS, vbExclamation, “fabricante do relatório de XLS”
			wscript.quit
		Terminar se
	Terminar se
Terminar se

'Dar laços com os relatórios de TXT
Para cada um oFile em fso.GetFolder (strReportPath). Limas
	Se lcase (fso.GetExtensionName (oFile))= " txt " então
		MakeWorksheet oFile
	Terminar se
Em seguida

Para cada folha em objWorkbook.Worksheets
	Se saido (folha. O nome, 5) = " folha " cobre então. Supressão
Em seguida

objExcel.DisplayAlerts = retificam
'strXLS de objExcel.save
strXLS de objWorkbook.SaveAs

MakeWorksheet secundário (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	Ajustar o objWorksheetNew = o objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Ajustar oFile=fso.OpenTextFile (oFile)
	text=oFile.ReadAll
	oFile.close
	
	arrText = separação (texto, vbCrLf)
	
	'Escrever encabeçamentos
	intRow=1
	objWorksheetNew.Cells (intRow, 1). Value= do " título software "
	objWorksheetNew.Cells (intRow, 2). Value= do " comentário software "
	
	Para cada linha no arrText
		Se instr (linha, vbTab) então
			arrLine=split (linha, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1). Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2). Value=arrLine (1)
		Terminar se
	Em seguida
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Ajustar o objWorksheetNew = nada
	Ajustar oFile=Nothing
Terminar o submarino
Outras soluções  
 
programming4us programming4us