Cuestión : Convertir lo que usted ve en una carpeta en Windows Explorer (opinión de los detalles) en una hoja de balance de Excel.

¿Es posible convertir lo que usted ve en una carpeta en Windows Explorer (opinión de los detalles) en una hoja de balance de Excel? el

Hence, la hoja de balance de Excel tendrá una lista de los nombres de fichero debajo de la columna conocida, fechas del

- del
- bajo tipo de archivo modificado fecha del column
- bajo tipo tamaño del archivo del column
- bajo column

I del tamaño no sure a el cual dividir esta pregunta en zonas pertenezca. Espero que éste sea el correcto. ¡

Thanks! class= del

Respuesta : Convertir lo que usted ve en una carpeta en Windows Explorer (opinión de los detalles) en una hoja de balance de Excel.

intento ahora.
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 = “nombre, fecha modificada, tipo, tamaño”
Const xlExcel7 = 51

En curriculum vitae del error después
Fijar el objExcel = CreateObject (“Excel.Application”)
objExcel.Visible = falso
 
Si (Err.Number <> 0) entonces
    En el error 0 indicado
    Uso de Wscript.Echo “Excel no encontrado.”
    Wscript.Quit
Terminan si
En el error 0 indicado

col=1
row=2

'Crear un nuevo libro de trabajo.
objExcel.Workbooks.Add

'Atar a la hoja de trabajo.
Fijar el objSheet = objExcel.ActiveWorkbook.Worksheets (1)

para cada jefe en la fractura (SHEET_HEADERS, “, ")
	objSheet.Cells (1, columna). Valor = jefe
	col=col+1
después

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar el objFolder = objFSO.GetFolder (FOLDER_PATH)
Para cada uno objFile en 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 y “KB”
	row=row+1
Después

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

'Parar Excel.
objExcel.Application.Quit

Fijar el objSheet = nada
Fijar el objExcel = nada

Wscript.Echo “hechos.”
Otras soluciones  
 
programming4us programming4us