Questione : Convertire che cosa vedete in un dispositivo di piegatura in Windows Explorer (vista dei particolari) in un foglio elettronico di Excel.

È possibile convertire che cosa vedete in un dispositivo di piegatura in Windows Explorer (vista dei particolari) in un foglio elettronico di Excel? il

Hence, il foglio elettronico di Excel avrà una lista dei nomi di schedario sotto la colonna noma, date del

- del
- nell'ambito del tipo di lima modificato data del column
- nell'ambito di tipo formato di lima del column
- nell'ambito del column

I di formato non sure a cui suddividere in zone questo problema appartiene. Spero che questo sia quello corretto.

Thanks! class= del

Risposta : Convertire che cosa vedete in un dispositivo di piegatura in Windows Explorer (vista dei particolari) in un foglio elettronico di Excel.

prova ora.
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 = “nome, data modificata, tipo, formato„
Const xlExcel7 = 51

Sul riassunto di errore dopo
Regolare il objExcel = CreateObject (“Excel.Application„)
objExcel.Visible = falso
 
Se (Err.Number <> 0) allora
    Sull'errore 0 di avanzamento
    Applicazione di Wscript.Echo “Excel non trovata.„
    Wscript.Quit
Si concludono se
Sull'errore 0 di avanzamento

col=1
row=2

'Generare un nuovo libro di esercizi.
objExcel.Workbooks.Add

'Legare al manuale.
Regolare il objSheet = objExcel.ActiveWorkbook.Worksheets (1)

per ogni intestazione nella spaccatura (SHEET_HEADERS, “, ")
	objSheet.Cells (1, colonna). Valore = intestazione
	col=col+1
dopo

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Regolare il objFolder = objFSO.GetFolder (FOLDER_PATH)
Per ciascuno objFile in objFolder.Files
	objSheet.Cells (fila, 1).Value = objFile.Name
	objSheet.Cells (fila, 2).Value = objFile.DateLastModified
	objSheet.Cells (fila, 3).Value = objFile.Type
	objSheet.Cells (fila, 4).Value = objFile.Size & “Kb„
	row=row+1
Dopo

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

'Rinunciare Excel.
objExcel.Application.Quit

Regolare il objSheet = niente
Regolare il objExcel = niente

Wscript.Echo “fatti.„
Altre soluzioni  
 
programming4us programming4us