Pytanie : VBA Pase Dodatek specjalny

I patrzeć wcale the przykład i móc!!!!

I chcieć save pasmo gdy CSV kartoteka the pasmo nowa praca książka i ono jako csv kartoteka - Prosty eh?

What być mylny z ten kod?

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

Private Okręt podwodny XLtoCSV ()
    Ustalony shtData = ActiveSheet
    Ustalony wbkDest = Workbooks.Add
    shtData.Range ("$A$48") .CurrentRegion.Copy
      
    'ActiveSheet.Range ("a1") .PasteSpecial Pasta: =xlPasteValuesAndNumberFormats


    ActiveSheet.PasteSpecial Pasta: =xlPasteValuesAndNumberFormats, Operacja: = _
    xlNone, SkipBlanks: =False, Przestawiać: =False
 

    Application.DisplayAlerts = Fałszywy

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



Końcówka Okręt podwodny

Odpowiedź : VBA Pase Dodatek specjalny

Próbować to:
(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:

Intymny Okręt podwodny XLtoCSV ()
    Ustalony shtData = ActiveSheet
    Ustalony wbkDest = Workbooks.Add
    shtData.Range ("$A$48") .CurrentRegion.Copy

    Application.ScreenUpdating = Fałszywy
      
    'ActiveSheet.Range ("a1") .PasteSpecial Pasta: =xlPasteValuesAndNumberFormats


    wbkDest.Sheet1.Select
    wbkDest.Sheet1.Range ("A1") .PasteSpecial Pasta: =xlPasteValuesAndNumberFormats, Operacja: = _
    xlNone, SkipBlanks: =False, Przestawiać: =False
 

    Application.DisplayAlerts = Fałszywy

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



Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us