Question : Le manuscrit pour combiner toutes les notations dans 1 excellent le dossier. Selon les choix dans un UNC.

Bonjour, le

Script pour combiner toutes les notations dans 1 excellent le dossier. Selon les choix dans UNC.

The un manuscrit réel a été fourni par Joe
Its un HTA lié au href= " http://www.experts-exchange.com/Programming/Languages/Q_26309499.html#a33213939 " du logiciel capturing.
Original Q.
le ramming/Languages/Q_26309499.html#a33213939


Regards
Sharath
 du e.com/Prog de http://www.experts-exchang class= > " clair " de
solutions >Related class= code de HTA de title= " de " /Programming/Languages/Q_26309499.html de href= " de HTA qui peut énumérer tous les logiciels dans une machine et a une petite case pour écrire des commentaires dans…

Réponse : Le manuscrit pour combiner toutes les notations dans 1 excellent le dossier. Selon les choix dans un UNC.

Et si vous voulez Excel, peut-être ceci :
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 :

'Chemin aux rapports
strReportPath= " \ \ SERVER1 \ MYSHARE "

'Chemin au dossier de XLS
strXLS= " c:\report.xls "


Placer l'objExcel = le CreateObject (« Excel.Application »)
objExcel.DisplayAlerts = faux
objExcel.Visible = rectifient
Placer l'objWorkbook = l'objExcel.Workbooks.Add

Placer le fso=CreateObject (« Scripting.FileSystemObject »)

'le XLS existe-t-il ?
Si fso.FileExists (strXLS) puis
	ret=msgbox (le « dossier existe :   » et le strXLS et le vbCrLf et le vbCrLf et « recouvrent ?  », de vbYesNo+vbQuestion, « de XLS fabricant de rapport »)
	Si ret=vbNo alors 
		wscript.quit
	Autrement
		fso.DeleteFile (strXLS)
		Si fso.FileExists (strXLS) puis
			le msgbox « n'a pas pu recouvrir le dossier :   » et strXLS, vbExclamation, « fabricant de rapport de XLS »
			wscript.quit
		Finir si
	Finir si
Finir si

'Faire une boucle par des rapports de TXT
Pour chacun oFile dans fso.GetFolder (strReportPath). Dossiers
	Si lcase (fso.GetExtensionName (oFile))= " txt " puis
		MakeWorksheet oFile
	Finir si
Après

Pour chaque feuille dans objWorkbook.Worksheets
	Si parti (feuille. Le nom, 5)= " feuille " couvrent alors. Suppression
Après

objExcel.DisplayAlerts = rectifient
'strXLS d'objExcel.save
strXLS d'objWorkbook.SaveAs

MakeWorksheet secondaire (oFile)
	strWorksheet = fso.GetBaseName (oFile)
	Placer l'objWorksheetNew = l'objWorkbook.Worksheets.Add
	objWorksheetNew.Name=strWorksheet
	
	Placer oFile=fso.OpenTextFile (oFile)
	text=oFile.ReadAll
	oFile.close
	
	l'arrText = s'est dédoublé (texte, vbCrLf)
	
	'Écrire les en-têtes
	intRow=1
	objWorksheetNew.Cells (intRow, 1).Value= " titre de logiciel "
	objWorksheetNew.Cells (intRow, 2).Value= " commentaire de logiciel "
	
	Pour chaque ligne dans l'arrText
		S'instr (ligne, vbTab) puis
			arrLine=split (ligne, vbTab)
			intRow=intRow+1
			objWorksheetNew.Cells (intRow, 1).Value=arrLine (0)
			objWorksheetNew.Cells (intRow, 2).Value=arrLine (1)
		Finir si
	Après
	
	objWorkSheetNew.Cells.EntireColumn.AutoFit
	Placer l'objWorksheetNew = rien
	Placer oFile=Nothing
Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us