Question : Convertir ce que vous voyez dans une chemise dans Windows Explorer (vue de détails) dans un bilan d'Excel.

Est-il possible de convertir ce que vous voyez dans une chemise dans Windows Explorer (vue de détails) dans un bilan d'Excel ? le

Hence, le bilan d'Excel aura une liste des noms de fichier du

- sous la colonne nommée, dates du
- sous le type de dossier modifié par date du column
- sous le type taille de fichier de fichier du column
- sous le column

I AM de taille pas sure au lequel répartir en zones cette question appartient. J'espère que c'est le correct.

Thanks ! class= de

Réponse : Convertir ce que vous voyez dans une chemise dans Windows Explorer (vue de détails) dans un bilan d'Excel.

essai maintenant.
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 :

Const FOLDER_PATH = « c:\temp\files »
const OUTPUT_EXCEL_FILE = « c:\temp\output.xlsx »
const SHEET_HEADERS = « nom, date modifiée, type, taille »
Const xlExcel7 = 51

Sur le résumé d'erreur après
Placer l'objExcel = le CreateObject (« Excel.Application »)
objExcel.Visible = faux
 
Si (Err.Number <> 0) puis
    Sur l'erreur 0 GoTo
    Application de Wscript.Echo « Excel non trouvée. »
    Wscript.Quit
Finissent si
Sur l'erreur 0 GoTo

col=1
row=2

'Créer un nouveau cahier de travail.
objExcel.Workbooks.Add

'Lier à la feuille de travail.
Placer l'objSheet = l'objExcel.ActiveWorkbook.Worksheets (1)

pour chaque en-tête dans la fente (SHEET_HEADERS, « , ")
	objSheet.Cells (1, colonne). Valeur = en-tête
	col=col+1
après

Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Placer l'objFolder = l'objFSO.GetFolder (FOLDER_PATH)
Pour chacun objFile dans objFolder.Files
	objSheet.Cells (rangée, 1).Value = objFile.Name
	objSheet.Cells (rangée, 2).Value = objFile.DateLastModified
	objSheet.Cells (rangée, 3).Value = objFile.Type
	objSheet.Cells (rangée, 4).Value = objFile.Size et « KB »
	row=row+1
Après

objExcel.DisplayAlerts = faux
objExcel.ActiveWorkbook.SaveAs OUTPUT_EXCEL_FILE, xlExcel7
objExcel.ActiveWorkbook.Close faux

'Excel stoppé.
objExcel.Application.Quit

Placer l'objSheet = rien
Placer l'objExcel = rien

Wscript.Echo « faits. »
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