Ecxcel Macros y Csv

[fernandaYO]

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.

[mrocf]

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:=myFile, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
End Sub 
   

Saludos, Cacho.

[fernandaYO]

Hola Mrocf!

Muchas gracias por tu respuesta, tampoco me funciono, pero gracias de igual forma!

[mrocf]

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.

[fernandaYO]

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?

[fernandaYO]

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.

[mrocf]

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?...

[fernandaYO]

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!

[mrocf]

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.

[dorde]

me cae bien MROCF...111