Frage : VBA Pase Special

Ich habe alle Beispiele betrachtet und sie nicht erhalten kann, um zu arbeiten!!!!

I möchten eine Strecke sparen wie eine CSV Akte, indem es die Strecke zu einem Werkbuch kopiert und sie als einfache csv Akte - wie spart?

What ist mit diesem Code falsch?

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

Private VorXLtoCSV ()
    shtData = ActiveSheet einstellen
    wbkDest einstellen = Workbooks.Add
    shtData.Range („$A$48“) .CurrentRegion.Copy
      
    'ActiveSheet.Range („a1“) .PasteSpecial Paste: =xlPasteValuesAndNumberFormats


    ActiveSheet.PasteSpecial Paste: =xlPasteValuesAndNumberFormats, Betrieb: = _
    xlNone, SkipBlanks: =False, stellen um: =False
 

    Application.DisplayAlerts = falsch

    wbkDest.SaveAs Dateiname: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close zutreffend
    Application.DisplayAlerts = richten aus



Enden-Unterseeboot

Antwort : VBA Pase Special

Dieses versuchen:
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:

Privates VorXLtoCSV ()
    shtData = ActiveSheet einstellen
    wbkDest einstellen = Workbooks.Add
    shtData.Range („$A$48“) .CurrentRegion.Copy

    Application.ScreenUpdating = falsch
      
    'ActiveSheet.Range („a1“) .PasteSpecial Paste: =xlPasteValuesAndNumberFormats


    wbkDest.Sheet1.Select
    wbkDest.Sheet1.Range („A1“) .PasteSpecial Paste: =xlPasteValuesAndNumberFormats, Betrieb: = _
    xlNone, SkipBlanks: =False, umstellen n: =False
 

    Application.DisplayAlerts = falsch

    wbkDest.SaveAs Dateiname: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close zutreffend
    Application.DisplayAlerts = ausrichten en
    Application.ScreenUpdating = ausrichten en



Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us