Foros del Web » Soporte técnico » Ofimática »

Ecxcel Macros y Csv

Estas en el tema de Ecxcel Macros y Csv en el foro de Ofimática en Foros del Web. Hola Chicos.. ya he posteado este tema.. no se si alguien aqui lo sabe Tengo una macros que hace qeu una base de datos de ...
  #1 (permalink)  
Antiguo 22/06/2011, 14:24
Avatar de fernandaYO  
Fecha de Ingreso: mayo-2011
Ubicación: Medellin
Mensajes: 166
Antigüedad: 13 años, 2 meses
Puntos: 4
Ecxcel Macros y Csv

Hola Chicos.. ya he posteado este tema.. no se si alguien aqui lo sabe


Tengo una macros que hace qeu una base de datos de excel se convierta en archivos CSV para subirlo por medio de un codigo php a mysql, el problema es el siguiente.

La macro efectivamente me convierte el archivo, pero, son 84 columnas y lo que hace es reducirla a 1 pero con toda la informacion de las 84, y lo separa por comas, que de hecho se supone que espara eso. Pasa que cuando lo hago manualmente me funciona de una manera diferente y definitivamente es la que necesito, pero necesito que eso lo haga una macro por que es para actualizar bases de datos autmaticos, no se cual sera el problema, posteo el codigo de la macro, por si depronto ven alli el error me pueden porfavor corregir.
Mil gracias.

Código:
Sub Auto_Open()

Workbooks.OpenText Filename:= _
        "P:\Sistemas\Aplicaciones Bonco\Excel SQL\Pedidos Bonco SQL.csv", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True



Windows("Pedidos Bonco SQL.csv").Activate
Sheets("Pedidos Bonco SQL").Select
 
Cells.Select
Selection.Clear


Windows("Pedidos Bonco 2011.xls").Activate
Sheets("Hoja1").Select
Range("A2").Select
Selection.AutoFilter
Selection.AutoFilter
Cells.Select
Selection.Copy

Windows("Pedidos Bonco SQL.csv").Activate
Sheets("Pedidos Bonco SQL").Select
Range("A1").Select
    
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Rows("1:1").Select
   Selection.Delete Shift:=xlUp
   
   ActiveWindow.Close True
   
   Windows("Pedidos Bonco 2011.xls").Activate

End Sub

Gracias.
__________________
Umm, infraccion :(//
  #2 (permalink)  
Antiguo 22/06/2011, 19:02
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 3 meses
Puntos: 88
De acuerdo Excel Macros y Csv

Hola! Fernanda. Intenta con:

Código PHP:
Sub Auto_Open()
Const 
myFile As String "P:\Sistemas\Aplicaciones Bonco\Excel SQL\Pedidos Bonco SQL.csv"
ActiveSheet.Copy
ActiveSheet
.AutoFilterMode False
If Dir(myFile) <> "" Then Kill myFile
ActiveWorkbook
.SaveAs Filename:=myFileFileFormat:=xlCSVCreateBackup:=False
ActiveWorkbook
.Close False
End Sub 
Saludos, Cacho.
  #3 (permalink)  
Antiguo 23/06/2011, 08:03
Avatar de fernandaYO  
Fecha de Ingreso: mayo-2011
Ubicación: Medellin
Mensajes: 166
Antigüedad: 13 años, 2 meses
Puntos: 4
Respuesta: Ecxcel Macros y Csv

Hola Mrocf!

Muchas gracias por tu respuesta, tampoco me funciono, pero gracias de igual forma!
__________________
Umm, infraccion :(//
  #4 (permalink)  
Antiguo 23/06/2011, 08:16
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 3 meses
Puntos: 88
De acuerdo Excel Macros y Csv

Fernanda. Permíteme decirte con toda franqueza:

¡Sigues describiendo MUY MAL tu dilema!...
Y me explico:

a) Comenzaste hablando de archivos "csv".
¿Sabes que son los archivos "csv"?... Son aquellos archivos de texto en los que sus campos se hallan separados por COMAS.

Exactamente "eso" es lo que hace la macro que te he mostrado.

b) Sin embargo el código que acompaña a la descripción de tu problema, abre un cierto archivo de texto en los que sus campos están separados por tabulaciones.

Mi estimada Fernanda: los "Tab" y las "Comas" son cosas diferentes.

De modo que -aún- no has explicado correctamente cual es la estructura final del archivo que deseas conseguir.

c) Finalmente, re-lee tu último mensaje: - "... tampoco me funcionó ..."

¿Qué cosa no te funcionó?
¿Qué esperabas obtener que no has obtenido?
Etc. etc. etc.

Me parece que si no mejoras -significativamente- tu capacidad para describir lo que tienes y lo que deseas obtener, será muy difícil ayudarte de forma exitosa.

Saludos, Cacho.
  #5 (permalink)  
Antiguo 23/06/2011, 08:50
Avatar de fernandaYO  
Fecha de Ingreso: mayo-2011
Ubicación: Medellin
Mensajes: 166
Antigüedad: 13 años, 2 meses
Puntos: 4
Respuesta: Ecxcel Macros y Csv

Uy.. bueno regañada tambien, haber.
se que el csv es separado por comas, cuando yo lo hago manualmente, es decir, yo misma abro la base de dats le doy guardar como y le doy guardar como CSV (pongamos BD.csv), lo guarda y cierro verdad?, cuando lo vuelvo a abrir me aparece de la siguiente forma (teniendo en cuenta que solo pondre 2 columnas de 84):

Código:
Cliente	                        Orden Compra Cliente
PROINTIMO S.A.	           22221
PROINTIMO S.A.	           22218
PRYM S.A.	                           3003691
PRYM S.A.	                           3003691
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017872
RINPLAY S DE RL DE CV	   1017873
RINPLAY S DE RL DE CV	   1017873
a esto es a lo que quiero llegar con la macro.

Cuando la macro hace el proceso y abro el archivo aparece de la siguiente manera:

Código:
Cliente,Orden Compra Cliente,Orden Pedido,Fecha Recibido OC,Orden Produccion,Prototipo,Fecha Promesa Entrega,REF.,Espuma,Calibre,Referencia,Talla,Pestaña,Largo de cuadro,Ancho de cuadro,Cuadro,Color de tela,Cantidad solicitada (Pares),Inventario,Cant. programada (Pares),%,Cantidad Progr+% (Pares),Cantidad Bondeo (Metros),Cantidad Bondeo Indicador(Metros),Pedido de Espuma y/o Tela,Fecha 1 entrega,Cantidad 1 entrega,Fecha 2 entrega,Cantidad 2 entrega,Fecha 3 entrega,Cantidad 3 entrega,Fecha 4 entrega,Cantidad 4 entrega,FECHA DE ENTREGA ALM.,CANT. ENTREGADA ALM,CANT. CANCELADA,SALDO,OBSERVACIONES,OPORTUNIDAD EN LA ENTREGA,VALOR BRUTO,DESCUENTO,VALOR NETO,TIPO DE CLIENTE,MÁQUINA,Observaciones,Programado por,Generacion de Ops,TIS,OC,TIS/OC,%Cant,Entregada,De Menos,Demas,Dias,Dias Prom,10,11,12,13,14,15,16,17,18,19,20,21,22,23,REF/TALLA,FACTURACIÓN DE SALDO PENDIENTE,SE PUEDE FACTURAR?,Vendedor,Vía libre para el pedido,Subcliente,Nro O Prod. Impresa,Insumos,Orden Produccion 2010,Metros Bondeados,Saldo Pendiente Por Bondear,Enviado,Aprobado,Rechazado,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
PROINTIMO S.A.,22221,4607,6-ene-10,2010 - 1,SI,22-ene-10,LP 39,OW,5,LP 39 OW 5,34,NO,35.0,25.0,35 x 25,MARFIL PBL 012,3,,3,0.00%,3,0.18,0.19,OK,22-ene-10,3,,,,,,,22-ene-10,3,,0,,0,"$ 1,700",0.00%,"$ 5,100",N,GENERICO,ASUMAMOS LA CALIDAD CON RESPONSABILIDAD,JCM,OK,1,1,1,100.0,3,0,0,16,,,,,,,,,,,,,,,,LP 39 34,$ 0,,AA,,,4083,,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
PROINTIMO S.A.,22218,4608,6-ene-10,2010 - 2,SI,22-ene-10,LP 39,OW,5,LP 39 OW 5,34,NO,35.0,25.0,35 x 25,NEGRO PBL 009,3,,3,0.00%,3,0.18,0.19,OK,22-ene-10,3,,,,,,,22-ene-10,3,,0,,0,"$ 1,700",0.00%,"$ 5,100",N,GENERICO,ASUMAMOS LA CALIDAD CON RESPONSABILIDAD,JCM,OK,1,1,1,100.0,3,0,0,16,,,,,,,,,,,,,,,,LP 39 34,$ 0,,AA,,,4084,,2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
PRYM S.A.,03003691,4615,13-ene-10,2010 - 10,SI,8-feb-10,ST 95,OW,10,ST 95 OW 10,36,NO,31.0,21.5,"31 x 21,5",MARFIL PBL 012,50,,50,0.00%,50,2.21,2.44,OK,9-feb-10,50,,,,,,,9-feb-10,50,,0,,1,"$ 2,000",0.00%,"$ 100,000",N,MOLDE 04,ASUMAMOS LA CALIDAD CON RESPONSABILIDAD,JCM,OK,0,1,0,100.0,50,0,0,26,,,,,,,,,,,,,,,,ST 95 36,$ 0,,AA,,,4018,,10,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
PRYM S.A.,03003691,4615,13-ene-10,2010 - 11,SI,8-feb-10,ST 95,OW,10,ST 95 OW 10,38,NO,32.0,25.0,32 x 25,MARFIL PBL 012,80,,80,0.00%,80,4.27,4.69,OK,9-feb-10,80,,,,,,,9-feb-10,80,,0,,1,"$ 2,000",0.00%,"$ 160,000",N,MOLDE 04,ASUMAMOS LA CALIDAD CON RESPONSABILIDAD,JCM,OK,0,1,0,100.0,80,0,0,26,,,,,,,,,,,,,,,,ST 95 38,$ 0,,AA,,,4019,,11,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
RINPLAY S DE RL DE CV,1017872,4611,13-ene-10,2010 - 12,NO,26-feb-10,ST 95,OW,10,ST 95 OW 10,36,NO,31.0,21.5,"31 x 21,5",MATORRALES PBL 185,833,,833,5.00%,875,38.73,42.61,OK,18-mar-10,750,25-mar-10,83,,,,,25-mar-10,833,,0,,27,"$ 1,646",0.00%,"$ 1,371,052",E,MOLDE 04,ASUMAMOS LA CALIDAD CON RESPONSABILIDAD,JCM,OK,0,1,0,100.0,833,0,0,72,,,,,,,,,,,,,,,,ST 95 36,$ ,
No se si me hago explicar o no, que mas hace falta para entender?
__________________
Umm, infraccion :(//
  #6 (permalink)  
Antiguo 23/06/2011, 08:53
Avatar de fernandaYO  
Fecha de Ingreso: mayo-2011
Ubicación: Medellin
Mensajes: 166
Antigüedad: 13 años, 2 meses
Puntos: 4
Respuesta: Ecxcel Macros y Csv

y con respecto a lo qeu no funciona:
Dijiste intenta con este, supuse que habias entendido a lo qeu me referia entonces, simplemente lo ensayo, y como lo qeu mas piden aqui es decir si funciona o no.. puse que no me funciono.
__________________
Umm, infraccion :(//
  #7 (permalink)  
Antiguo 23/06/2011, 11:54
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 3 meses
Puntos: 88
De acuerdo Excel Macros y Csv

Ahora sí, Fernanda: ¡Ahora sí!...

Para que tú misma descubras lo que ocurre, te sugiero que generes el archivo de texto con los dos métodos:

-> Por un lado manualmente;
-> Y por otro lado, vía macro.

Luego abre ambos archivos, pero con el "NotePad" ó "Bloc de notas" (es el editor de textos más sencillo que encontrarás en la PC): ¿Adviertes la GRAN diferencia entre ambos?...
  #8 (permalink)  
Antiguo 23/06/2011, 14:06
Avatar de fernandaYO  
Fecha de Ingreso: mayo-2011
Ubicación: Medellin
Mensajes: 166
Antigüedad: 13 años, 2 meses
Puntos: 4
Respuesta: Ecxcel Macros y Csv

Oye muchas gracias, ya supe que pasaba, resulta que en mi configuracion regional la tenia para decimales con coma y pues esto generaba el error, tenia qeu ser con cn punto y el separador de miles con coma, y a esto le sumaba que en el codigo php qeu tenia uno de los parametros era ; y debia ser coma.


Gracias por tu ayuda!
__________________
Umm, infraccion :(//
  #9 (permalink)  
Antiguo 23/06/2011, 17:34
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 3 meses
Puntos: 88
Respuesta: Ecxcel Macros y Csv

Fue un gusto orientarte y espero (y aspiro a) que mi franqueza de un par de mensajes atrás no te haya disgustado más de la cuenta.

Saludos, Cacho.
  #10 (permalink)  
Antiguo 07/07/2011, 11:58
Avatar de dorde  
Fecha de Ingreso: diciembre-2003
Mensajes: 145
Antigüedad: 20 años, 7 meses
Puntos: 7
Respuesta: Ecxcel Macros y Csv

me cae bien MROCF...111
__________________
Pero si alguno de vosotros se ve falto de sabiduría, que la pida a Dios, el cual da a todos abundantemente y sin reproche, y le será dada. Pero que pida con fe, sin dudar

Santiago 1.5-6

Etiquetas: csv, macros
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:34.