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.