Cuestión : Special de VBA Pase

¡He mirado todos los ejemplos y no puedo conseguirlos para trabajar!!!! ¿el

I quiere ahorrar una gama como un archivo de CSV copiando la gama a un libro de las nuevas obras y ahorrándola como archivo del csv - simple eh? ¿el

What es incorrecto con este código?

John
 class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
>Private notpretty XLtoCSV secundario " del class= " del id= " codeSnippet756788 del
class= del

Respuesta : Special de VBA Pase

Intentar esto:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

XLtoCSV secundario privado ()
    Fijar el shtData = ActiveSheet
    Fijar el más wbkDest = Workbooks.Add
    shtData.Range (“$A$48”) .CurrentRegion.Copy

    Application.ScreenUpdating = falso
      
    Goma de 'ActiveSheet.Range (“a1”) .PasteSpecial: =xlPasteValuesAndNumberFormats


    wbkDest.Sheet1.Select
    goma de wbkDest.Sheet1.Range (“A1”) .PasteSpecial: =xlPasteValuesAndNumberFormats, operación: = _
    xlNone, SkipBlanks: El =False, transporta: =False
 

    Application.DisplayAlerts = falso

    nombre de fichero de wbkDest.SaveAs: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close verdad
    Application.DisplayAlerts = verdad
    Application.ScreenUpdating = verdad



Submarino del extremo
Otras soluciones  
 
programming4us programming4us