Pergunta : Special de VBA Pase

Eu olhei todos os exemplos e não posso consegui-los trabalhar!!!! o

I quer conservar uma escala como uma lima de CSV copiando a escala a um livro da nova obra e conservando a como uma lima do csv - simples eh? o

What é errado com este código?

John
 class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
>Private notpretty XLtoCSV secundário " do class= " do id= " codeSnippet756788 do
class= do

Resposta : Special de VBA Pase

Tentar isto:
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 secundário confidencial ()
    Ajustar o shtData = o ActiveSheet
    Ajustar mais wbkDest = Workbooks.Add
    shtData.Range (“$A$48”) .CurrentRegion.Copy

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


    wbkDest.Sheet1.Select
    pasta de wbkDest.Sheet1.Range (“A1”) .PasteSpecial: =xlPasteValuesAndNumberFormats, operação: = _
    xlNone, SkipBlanks: O =False, transpor: =False
 

    Application.DisplayAlerts = falso

    nome de arquivo de wbkDest.SaveAs: = " C:\nv\MPGAllocation.csv ", FileFormat: =xlCSV
    wbkDest.Close verdadeiro
    Application.DisplayAlerts = retificam
    Application.ScreenUpdating = retificam



Submarino da extremidade
Outras soluções  
 
programming4us programming4us