Pergunta : Colando valores em VBA com umas únicas citações dobro - Excel

Eu tenho uma parte pequena de código de VBA que tenta copiar de uma escala a outra using a seleção da escala e então o selection.copy, selecionando uma pilha de alvo e um activesheet.paste.   Isto trabalha na maioria das vezes, exceto se eu tenho uma pilha com dados do texto nela e começa com “e não tem um término”, a operação da pasta não trabalha corretamente.  Parece tomar valores das pilhas além da pilha de ofensa com o único “e adicioná-lo junto toda. class= do

Resposta : Colando valores em VBA com umas únicas citações dobro - Excel

o que não é certo que a causa é mim mas o reparo parece ser não fechar a fonte until after a pasta.

anotar que isto importa todos os formatos que não podem ser o que você quer.  usar PasteSpecial se não querer formatos.
Pasta de Selection.PasteSpecial: =xlPasteValues, operação: =xlNone, _ de SkipBlanks
       : O =False, transpor: =FalseU

Eu reworked o ImportCode um bocado para usar o manual de instruções objeto diretamente

por exemplo ajustar b = Workbooks.open (o fileIn)

(ive rebatizado a rotina e a entrada [arameter porque eu tento não usar os nomes que poderiam discordar com um nome definido. apenas meu capricho.)
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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

Função ImportData (fileIn como a variação)
    'Finalidade:    Importar dados da lima de fonte selecionada nesta lima. remover a informação do duplciate
    '            em abas dropdown.
    'Realces necessários:
    '   1. verific o formato do manual de instruções da fonte para assegurar-se de que esteja no mesmo formato.
    
    'Application.ScreenUpdating = falso
    
    'Este manual de instruções
    Escurecer a como o manual de instruções
    'Manual de instruções da fonte
    B não ofuscante como o manual de instruções
    
    Ca não ofuscante como a escala
    Cb não ofuscantes como a escala
    Wsx não ofuscante como a folha
    Ur não ofuscante como a escala
    Sénior não ofuscante como a corda
    
    
    'lima = FunctionGetFileName (lima)
    'Se não IsFileOpen (lima) então
    
    Ajustar a = ThisWorkbook
    'Lima de Application.Workbooks.Open
    'Mais
    
    Ajustar manuais de instruções de b = de Workbooks.Open (fileIn   ) '(a lima)
    Com b
    'Fazer todas as folhas visibile
        Para cada wsx em b.Worksheets
        
            wsx. Visível = retificar
        Wsx seguinte
    
    Extremidade com
    
    b.Sheets (“detalhe”). Ativar
    
    'Remover a fileira do encabeçamento da escala.
    Ajustar Cb = escala (“página”). Offset (1, 0). Resize (escala (“página”). Rows.Count - 1, escala (“página”). Columns.Count)
    
    'Escala (“página”). Seleto
    Cb. Seleto
    
    Selection.Copy
    
    'Segurar agora a aba do detalhe adicionando aos dados existentes
    'Como segurar a grande quantidade de dados na prancheta?
    'Precisar de usar especialmente um outro método além da cópia à prancheta para a grande quantidade de dados.  Talvez
    'fileira pela fileira?
    'Considerar using a escala de Detailsource como a entrada
    
    a.Sheets (“detalhe”). Ativar
    
    Escurecer o lc como o inteiro
    
    'Tentar ir à fileira seguinte da escala de página.
    lc = escala (“página”). Fileira + escala (“página”). Rows.Count
    Pilhas (lc, 2). Seleto
    'Ajustar Cb = escala (“página”). Offset (1, 0). Resize (escala (“página”). Rows.Count - 1, escala (“página”). Columns.Count)
    
    'Escala (“página”). Seleto
    'Cb. Seleto
    ActiveSheet.Paste
    'Selection.Paste
    'Pasta das pilhas (lc, 2) .PasteSpecial: =xlPasteValues, operação: =xlNone, _ de SkipBlanks
            : O =False, transpor: =False
    
    
    Folhas (“detalhe”). Ativar
    Application.CutCopyMode = falso
    Application.ScreenUpdating = retificam
    
    b.Close (falso)

    'Terminar se

Terminar a função
Outras soluções  
 
programming4us programming4us