csv guardando espacios vacios

[fernandaYO]

no se como ponerlo, voy a ver si asi da

Código excel:

KARDEX FREE 2009                                                                    
                                                                        
    ALMACEN             ACCION  INDICADOR       ACCION                                      
    Material    Inventario  Físico  Prometido Ventas    Entregado Produccion    Free    Mínimo  Comprado        Consumos para Agregar                               
    UV03/D45    182 130 0.0 52                                                  
    UV05/D45    2280    1,438       842                                                 
    UV07/D45    18648   1,560       17,088                                                  
    IF07/D48    60  47      13                                                  
    UV08/D35    8181.5  1   7568.0  8,181   614                                             
    UV08 MALA   1993    739     1,254                                                   
    MD03/D30    600 300     300                                                 
    MD03/D18    600 505     95                                                  
    MD05/D18    3600    0       3,600                                                   
    MD10/D18    210 0       210                                                 
    MD10/D30    8499    0   19.0    8,499   8,480                                               
    XP03/D18    1920    84      1,836                                                   
    XP08/D18    1890    63      1,827                                                   
    XP10/D18    1470    0       1,470                                                   
    XP14/D18    700 700                                                         
    EMB03/D40   23181   314 6742.3  22,867  16,439  300                                         
    EMB08/D40   17643   579 2054.0  17,064  15,589  150                                         
    CO03/D30    13842   231     13,611          500                                     
    CO08/D30    13954   103 70.0    13,851  13,884  150 600                                     
    CO04/D30    29907   0   14581.0 29,907  15,326  300                                         
    CO10/D30    10890   156 14.0    10,734  10,876  150 300                                     
    CO12/D30    14893   59  3147.0  15,135  11,746  150 300                                     
    CO14/D30    8459    195 2294.0  8,264   6,165   150                                         
    XT20/D20    2471    169 615.0   2,303   1,856   100                                         
    XT24/D20    2362    18  637.0   2,344   1,725   100 100                                     
    EMB05/D40   3891.5  127 716.0   3,765   3,176   300                                         
    EMB10/D30   20127   364 964.0   19,763  19,163  150                                         
    EMB12/D30   2132    112 1022.0  2,020   1,110   150                                         
    OW14/D30    7267.5  21  853.0   7,247   6,415   150 100                                     
    OT20/D20    2193    49  390.0   2,144   1,803   100                                         
    OT24/D20    2132    8   1127.2  2,124   1,005   100                                         
    PBL001  93114.84    2,909   18788.0 90,206  74,327  2,000                                           
    PBL009  79133.09    1,037   14278.0 78,096  64,855  1,000                                           
    PBL185  57052.52    5,206   7727.0  51,847  49,326  2,000                                           
    PBL021  75411.4 2,995   14250.0 72,416  61,161  2,000
 

Código C++:

Sub Auto_Close()
'
' Macro5 Macro
'
 
 
If ActiveWindow.Caption = "Kardex Free.xls" Then
 
Application.ScreenUpdating = False
 
'----------------------------------------------
 
Dim PauseTime, Start, Finish, TotalTime
 
   PauseTime = 1  ' Set duration.
  Start = Timer    ' Set start time.
 Do While Timer < Start + PauseTime
  DoEvents    ' Yield to other processes.
Loop
Finish = Timer    ' Set end time.
TotalTime = Finish - Start    ' Calculate total time.
  
 
'-------------------------------------------------
 
Workbooks.OpenText Filename:= _
        "P:\Sistemas\Aplicaciones Bonco\Excel SQL\Kardex Free 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("Kardex Free SQL.csv").Activate
Sheets("Kardex Free SQL").Select
 
Cells.Select
Selection.Clear
 
Windows("Kardex Free.xls").Activate
Sheets("2011").Select
 
Cells.Select
    Selection.Copy
 
 
 
Windows("Kardex Free SQL.csv").Activate
Sheets("Kardex Free SQL").Select
Range("A1").Select
    
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Rows("1:4").Select
    Selection.Delete Shift:=xlUp
    Columns("I:J").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll Down:=-18
    Range("E6").Select
     ActiveWindow.Close True
     
    
    
    End If
    
'
End Sub
 

no se si hace puedan entender, o no se com ohacer mostrar el xls, , los espacios vacios quedarian al final, es decir, aparece hasta la 39, pero de ahi en adelante parecen otras 12 filas, pero vacias...