syba
03 de Junio del 2004

Tengo q realizar un programa de manera q:
tengo 100 fichero de excel, y quiero generar un fichero donde me escriba los nombre de los ficheros separados por ";" y los nombre de los campo separados por ",". Ejemlo:

Nombre_fichero1;
campo1, campo2, campo3,...

Nombre_fichero2;
campo1, campo2, campo3,...

.....

y asi con todos los fichros, se puede hacer eso de alguna manera???. Muchas gracias.

kaliman
03 de Junio del 2004

oks..

dim LoExcel as Excel.Application
dim LoExcelDestino as Excel.Application
dim LsCampos as String
dim pNombreArchivo as String

for (iNum =1 to iTotalArchivos)
pNombreArchivo = "Archivo"& str(inum)&"".xls
Set loexcel = New Excel.Application
loexcel.Workbooks.Open pNombreArchivo
loexcel.DisplayAlerts = False
loexcel.Visible = False
loexcel.WindowState = xlMinimized


If Trim(loexcel.Range("A1")) <> "" Then
LsCampos = LsCampos & "," & Trim(loexcel.Range("A1")) & ""
For iCont = 2 To 10000
If loexcel.Range("A" & Trim(Str(iCont))) <> "" Then
LsCampos = LsCampos & ",''" & Trim(loexcel.Range("A" & Trim(Str(iCont)))) & "''"
Else
loexcel.Quit
GoTo Salir
End If
Next iCont
End If
next iNum


este ejemplo es un ciclo sobre el total de archivos, te faltaria Abrir el objeto "LoExcelDestino", para que en este guardes el ombre de todos los archivos y sus campos..

Salu2

kaliman
03 de Junio del 2004

hola..
Solo una Aclaracion...

este ciclo lee solo la columna A de arriba hacia Abajo..

si necesitas leer las Columnas de izquierda a derecha , solo debes cambiar la "A" por "B", "C", "D", etc...