Frage : Umwandeln, was Sie in ein Faltblatt in Windows Explorer (Detail-Ansicht) in einen Excel-Verteilungsbogen sehen.

Ist es möglich, umzuwandeln, was Sie in ein Faltblatt in Windows Explorer (Detail-Ansicht) in einen Excel-Verteilungsbogen sehen?

Hence, der Excel-Verteilungsbogen hat eine Liste

- der Dateinamen unter Namensspalte,
- Daten unter Datum geänderter column
- Aktenart unter Art column
- Dateigröße unter Größe column

I morgens nicht sure, dem in Zonen aufteilen diese Frage gehört zu. Ich hoffe, dass dieses das korrekte ist.

Thanks!

Antwort : Umwandeln, was Sie in ein Faltblatt in Windows Explorer (Detail-Ansicht) in einen Excel-Verteilungsbogen sehen.

Versuch jetzt.
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:
6:
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 = „Name, Datum geändert, Art, Größe“
Const xlExcel7 = 51

Auf Störungs-Zusammenfassung zunächst
objExcel = CreateObject („Excel.Application“) einstellen
objExcel.Visible = falsch
 
Wenn (Err.Number <> 0) dann
    Auf Störung Goto- 0
    Wscript.Echo „Excel Anwendung nicht gefunden.“
    Wscript.Quit
Beenden wenn
Auf Störung Goto- 0

col=1
row=2

'Ein neues Arbeitsbuch herstellen.
objExcel.Workbooks.Add

'An Arbeitsblatt binden.
objSheet = objExcel.ActiveWorkbook.Worksheets einstellen (1)

für jede Überschrift in der Spalte (SHEET_HEADERS, „, ")
	objSheet.Cells (1, Spalte). Wert = Überschrift
	col=col+1
zunächst

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objFolder = objFSO.GetFolder (FOLDER_PATH) einstellen
Für jedes objFile in objFolder.Files
	objSheet.Cells (Reihe, 1).Value = objFile.Name
	objSheet.Cells (Reihe, 2).Value = objFile.DateLastModified
	objSheet.Cells (Reihe, 3).Value = objFile.Type
	objSheet.Cells (Reihe, 4).Value = objFile.Size u. „KB“
	row=row+1
Zunächst

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

'Excel verlassen.
objExcel.Application.Quit

objSheet einstellen = nichts
objExcel einstellen = nichts

Wscript.Echo „getan.“
Weitere Lösungen  
 
programming4us programming4us