« anterior próximo »
Páginas: [1]   Ir Abajo

Autor Tema: Crear un archivo con indices de un FOR???  (Leído 3000 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado navaismo

  • Jubilado Todopic
  • PIC24H
  • ****
  • Mensajes: 1973
Crear un archivo con indices de un FOR???
« en: 10 de Noviembre de 2006, 16:24:19 »
Hola amigos, Bueno esto es mas bien un off-topic de pics.

Mi duda es la siguiente tengo un programa que a una hoja de excel con muchos datos la filtra y genera un archivo tambien de excel pero con los datos individuales en diferentes libros. Funciona bien pero para hacerlo tengo que crear el nombre del archivo ya saben eso de entrecomillar la ruta y el nombre de donde se van a guardar.

Como son varios tengo que hacer esa rutina muchas veces y pense en usar 2 for anidados para que incremente los filtros y genere solito el nombre del archivo basado en los indices i, j. Pero no puedo o no se si se puede meter en la ruta donde se va a guardar el archivo los indices, como esto esta entrecomillado no reconoce la sintaxis.

No sabran de alguna forma mas sencilla.
En línea
"Mi tercer deseo, que otra cosa podría ser, poner un final a todo el sufrimiento, que sólo con mi propia extinción el planeta podrá ser aliviado. Pobre de mí, Si tuviera tres deseos hoy, la elección no sería dificil para mí, Sólo tres deseos serían suficientes, No tendría uso para más."

"He sido un hombre que busca y aun lo sigo siendo, pero ya no busco en las estrellas y en los libros, sino en las enseñanzas de mi sangre."

Desconectado BrunoF

  • Administrador
  • DsPIC30
  • *******
  • Mensajes: 3865
Re: Crear un archivo con indices de un FOR???
« Respuesta #1 en: 10 de Noviembre de 2006, 17:38:45 »
Hola navaismo.

Cita de: navaismo en 10 de Noviembre de 2006, 16:24:19
...Como son varios tengo que hacer esa rutina muchas veces y pense en usar 2 for anidados para que incremente los filtros y genere solito el nombre del archivo basado en los indices i, j. Pero no puedo o no se si se puede meter en la ruta donde se va a guardar el archivo los indices, como esto esta entrecomillado no reconoce la sintaxis...

No entendi bien cual es el problema.

Supongamos i= 23 j = 50

Deberías poder hacer por ejemplo:

objWorkbook.SaveAs ("C:\" & i & j & ".xls")
obteniendo: C:\2350.xls
otros ejemplos:

Path= "C:\"
objWorkbook.SaveAs (Path & i & j & ".xls")
obteniendo: C:\2350.xls

Path="C:\"
objWorkbook.SaveAs (Path & "_" & i & "_" & j & ".xls")
obteniendo: C:\_23_50.xls

Tal vez no entendi bien lo que quisiste expresar. Por favor indicame si estoy equivocado.
En línea
"All of the books in the world contain no more information than is broadcast as video in a single large American city in a single year. Not all bits have equal value."  -- Carl Sagan

Sólo responderé a mensajes personales, por asuntos personales. El resto de las consultas DEBEN ser escritas en el foro público. Gracias.

Desconectado navaismo

  • Jubilado Todopic
  • PIC24H
  • ****
  • Mensajes: 1973
Re: Crear un archivo con indices de un FOR???
« Respuesta #2 en: 10 de Noviembre de 2006, 18:11:13 »
Hola BRUNOF gracias, dejame usar una expresion que aprendi aqui en el foro.

LA LECHE!!!! BRUNOF :D osea te rifas si exactamente es lo que queria, yo lo ponia entre corchetes y no me dejaba.

Gracias por la ayuda.

Voy a probarlo
En línea
"Mi tercer deseo, que otra cosa podría ser, poner un final a todo el sufrimiento, que sólo con mi propia extinción el planeta podrá ser aliviado. Pobre de mí, Si tuviera tres deseos hoy, la elección no sería dificil para mí, Sólo tres deseos serían suficientes, No tendría uso para más."

"He sido un hombre que busca y aun lo sigo siendo, pero ya no busco en las estrellas y en los libros, sino en las enseñanzas de mi sangre."

Desconectado BrunoF

  • Administrador
  • DsPIC30
  • *******
  • Mensajes: 3865
Re: Crear un archivo con indices de un FOR???
« Respuesta #3 en: 10 de Noviembre de 2006, 19:58:21 »
Me alegro que haya sido lo que necesitabas.
:D

Saludos!
En línea
"All of the books in the world contain no more information than is broadcast as video in a single large American city in a single year. Not all bits have equal value."  -- Carl Sagan

Sólo responderé a mensajes personales, por asuntos personales. El resto de las consultas DEBEN ser escritas en el foro público. Gracias.

Desconectado navaismo

  • Jubilado Todopic
  • PIC24H
  • ****
  • Mensajes: 1973
Re: Crear un archivo con indices de un FOR???
« Respuesta #4 en: 21 de Diciembre de 2006, 16:29:01 »
mas ayuda please.....
Hola Amigos pues quiero mediante un form actualizar datos de excel pero no tengo idea de como es el codigo,  esto es lo que estoy usando pero es para columna por columna y quisiera que el form agregara una fila nueva con los datos correspondientes cada que se use el form, bueno aqui el codigo que uso

PD un Frankeinstein de la RED:


Private Sub Command1_Click()
Dim Msg
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

   'Iniciar un nuevo libro en Excel
   Set oExcel = CreateObject("Excel.Application";-)   
   Set oBook = oExcel.Workbooks.Add

oExcel.Visible = True
   'Agregar datos a las celdas de la primera hoja de cálculo del nuevo libro
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:j1";-)   .Font.Bold = True
   oSheet.Range("A1";-)   .Value = "Fecha"
   oSheet.Range("B1";-)   .Value = "Piso:"
   oSheet.Range("c1";-)   .Value = "Folio:"
   oSheet.Range("d1";-)   .Value = "Enviado a:"
   oSheet.Range("e1";-)   .Value = "Atencion:"
   oSheet.Range("f1";-)   .Value = "Autorizado a:"
   oSheet.Range("g1";-)   .Value = "Compañia:"
   oSheet.Range("h1";-)   .Value = "Descripcion:"
   oSheet.Range("i1";-)   .Value = "Numero de Serie:"
   oSheet.Range("j1";-)   .Value = "Activo Fijo:"
   
   oSheet.Range("A2";-)   .Value = "" & Text2.Text
   oSheet.Range("g2";-)   .Value = "" & Text7.Text

   'Guardar el libro y cerrar Excel
   oBook.Worksheets(1).SaveAs "mes de " & m
   oBook.SaveAs "C:\x1.xls"
   oExcel.Quit

Set oBook = Nothing
Set oExcel = Nothing
Set oSheet = Nothing

On Error GoTo ErrorHandler

Printer.Copies = 2
Printer.CurrentX = 120
Printer.CurrentY = 350
PrintForm
Exit Sub
ErrorHandler:
Msg = "El Formulario no Puede Imprimirse."
MsgBox Msg
Resume Next

Text3.SetFocus
End Sub
En línea
"Mi tercer deseo, que otra cosa podría ser, poner un final a todo el sufrimiento, que sólo con mi propia extinción el planeta podrá ser aliviado. Pobre de mí, Si tuviera tres deseos hoy, la elección no sería dificil para mí, Sólo tres deseos serían suficientes, No tendría uso para más."

"He sido un hombre que busca y aun lo sigo siendo, pero ya no busco en las estrellas y en los libros, sino en las enseñanzas de mi sangre."

Desconectado navaismo

  • Jubilado Todopic
  • PIC24H
  • ****
  • Mensajes: 1973
Re: Crear un archivo con indices de un FOR???
« Respuesta #5 en: 26 de Diciembre de 2006, 12:01:15 »
Hola amigos pues ya casi esta solo que aun no logro que no me bote error a la  hora de repetir otro form sin cerrar la ventana.

estoy usando la propiedad isempty pero cuando uso la linea de codogo de FINC dentro del for la segunda vueta me dice que esta fuera de rango. Y cuando uso el for ya preestablecido la segunda vuelta me bota un error con la propiedad cell...

Alguien tiene una idea de como evitar eso

Código: [Seleccionar]
'finC = Range("A65536").End(xlDown).Row
   For i = 1 To 20
    If IsEmpty(Cells(i, 1)) Then
      Cells(i, 1).Formula = "" & Text2.Text
      Cells(i, 2).Formula = "" & Text3.Text
      Cells(i, 3).Formula = "" & Text4.Text
      Cells(i, 4).Formula = "" & Text11.Text
      Cells(i, 5).Formula = "" & Text12.Text
      Cells(i, 6).Formula = "" & Text6.Text
      Cells(i, 7).Formula = "" & Text7.Text
      Cells(i, 8).Formula = "" & Text8.Text
      Cells(i, 9).Formula = "" & Text9.Text
      Cells(i, 10).Formula = "" & Text10.Text
      Exit For
    End If
   Next i

ojala me puedan ayudar ya me duele la cabeza jiji de no encontrar porque sale  ese error.


Saludos
En línea
"Mi tercer deseo, que otra cosa podría ser, poner un final a todo el sufrimiento, que sólo con mi propia extinción el planeta podrá ser aliviado. Pobre de mí, Si tuviera tres deseos hoy, la elección no sería dificil para mí, Sólo tres deseos serían suficientes, No tendría uso para más."

"He sido un hombre que busca y aun lo sigo siendo, pero ya no busco en las estrellas y en los libros, sino en las enseñanzas de mi sangre."
Páginas: [1]   Ir Arriba
« anterior próximo »
 

anything