Questione : Special di VBA Pase

Ho esaminato tutti gli esempi e non posso convincerlo per funzionare!!!! il

I vuole conservare una gamma come una lima di CSV copiando la gamma ad un libro dei lavori recenti e conservandola come lima del csv - semplice eh? il

What è errato con questo codice?

John
 class= > " libero " 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 secondario " del class= " del id= " codeSnippet756788 del
class= del

Risposta : Special di VBA Pase

Provare questo:
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 secondario riservato ()
    Regolare lo shtData = ActiveSheet
    Regolar il più wbkDest = Workbooks.Add
    shtData.Range (“$A$48„) .CurrentRegion.Copy

    Application.ScreenUpdating = falso
      
    'Colla di ActiveSheet.Range (“a1„) .PasteSpecial: =xlPasteValuesAndNumberFormats


    wbkDest.Sheet1.Select
    colla di wbkDest.Sheet1.Range (“A1„) .PasteSpecial: =xlPasteValuesAndNumberFormats, funzionamento: = _
    xlNone, SkipBlanks: Il =False, traspone: =False
 

    Application.DisplayAlerts = falso

    nome di schedario di wbkDest.SaveAs: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close allineare
    Application.DisplayAlerts = allineano
    Application.ScreenUpdating = allineano



Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us