Vraag : VBA Speciale Pase

Ik heb alle voorbeelden bekeken en niet hen kunnen ertoe brengen om te werken!!!!

I wil een waaier als Csv- dossier bewaren door de waaier te kopiëren aan een nieuw het werkboek en het te bewaren als csvdossier - Eenvoudige eh? is

What verkeerd met deze code?

John
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Private SubXLtoCSV ()
    Vastgestelde shtData = ActiveSheet
    Vastgestelde het meest wbkDest = Workbooks.Add
    shtData.Range („$A$48“) .CurrentRegion.Copy
      
    '(„A1“) .PasteSpecial Deeg ActiveSheet.Range: =xlPasteValuesAndNumberFormats


    ActiveSheet.PasteSpecial Deeg: =xlPasteValuesAndNumberFormats, Verrichting: = _
    xlNone, SkipBlanks: =False, herschik: =False
 

    Application.DisplayAlerts = Vals

    wbkDest.SaveAs Filename: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close waar
    Application.DisplayAlerts = Waar



Sub van het eind

Antwoord : VBA Speciale Pase

Probeer dit:
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:

Privé SubXLtoCSV ()
    Vastgestelde shtData = ActiveSheet
    Vastgestelde het meest wbkDest = Workbooks.Add
    shtData.Range („$A$48“) .CurrentRegion.Copy

    Application.ScreenUpdating = Vals
      
    '(„A1“) .PasteSpecial Deeg ActiveSheet.Range: =xlPasteValuesAndNumberFormats


    wbkDest.Sheet1.Select
    wbkDest.Sheet1.Range („A1“) Deeg .PasteSpecial: =xlPasteValuesAndNumberFormats, Verrichting: = _
    xlNone, SkipBlanks: =False, herschik: =False
 

    Application.DisplayAlerts = Vals

    wbkDest.SaveAs Filename: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close waar
    Application.DisplayAlerts = Waar
    Application.ScreenUpdating = Waar



Sub van het eind
Andere oplossingen  
 
programming4us programming4us