Questione : Incollando i valori in VBA con una singola doppia citazione - Excel

Ho una piccola parte del codice di VBA che tenta di copiare da una gamma ad un altro using la selezione della gamma ed allora selection.copy, selezionando una cellula di obiettivo e un activesheet.paste.   Ciò funziona per lo più, tranne se ho una cellula con i dati del testo in esso e comincia con “e non ha una conclusione„, il funzionamento della colla non funziona correttamente.  Sembra prendere i valori dalle cellule oltre la cellula offendente con il singolo “ed aggiungerla insieme tutte. class= del

Risposta : Incollando i valori in VBA con una singola doppia citazione - Excel

che cosa la causa è io non sono determinata ma la difficoltà sembra essere di non vicino la fonte fino a dopo la colla.

si noti che questo importa tutte le disposizioni che non possono essere che cosa volete.  usare PasteSpecial se non volere le disposizioni.
Colla di Selection.PasteSpecial: =xlPasteValues, funzionamento: =xlNone, _ di SkipBlanks
       : Il =False, traspone: =FalseU

Ho ripreso il ImportCode una punta per usare il libro di esercizi obietto direttamente

per esempio regolar b = Workbooks.open (fileIn)

(ive cambiato titolo la procedura e l'input [arameter poichè provo a non usare i nomi che potrebbero scontrarsi con un nome definito. appena il mio capriccio.)
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:

Funzione ImportData (fileIn come variante)
    'Scopo:    Importare i dati dall'archivio sorgente selezionato in questa lima. rimuovere le informazioni del duplciate
    '            sulle linguette a discesa.
    'Aumenti stati necessari:
    '   1. verifica la disposizione del libro di esercizi di fonte per assicurare che sia nella stessa disposizione.
    
    'Application.ScreenUpdating = falso
    
    'Questo libro di esercizi
    Oscurare la a come libro di esercizi
    'Libro di esercizi di fonte
    B fioca come libro di esercizi
    
    Ca fioco come gamma
    Cb fiochi come gamma
    Wsx fioco come manuale
    Ur fioco come gamma
    Sr fioco come stringa
    
    
    'lima = FunctionGetFileName (lima)
    'Se non IsFileOpen (lima) allora
    
    Regolar a = ThisWorkbook
    'Lima di Application.Workbooks.Open
    'Altrimenti
    
    Regolar libri di esercizi di Workbooks.Open = di b (fileIn   ) '(lima)
    Con la b
    'Rendere tutti i manuali visibile
        Per ogni wsx in b.Worksheets
        
            wsx. Visibile = allineare
        Wsx seguente
    
    Estremità con
    
    b.Sheets (“particolare„). Attivare
    
    'Rimuovere la fila dell'intestazione da gamma.
    Regolare i Cb = la gamma (“pagina„). Contrappeso (1, 0). Ridimensionare (gamma (“pagina„). Rows.Count - 1, gamma (“pagina„). Columns.Count)
    
    'Gamma (“pagina„). Prescelto
    Cb. Prescelto
    
    Selection.Copy
    
    'Ora trattare la linguetta del particolare aggiungendo ai dati attuali
    'Come trattare gran numero dei dati sulla lavagna per appunti?
    'Dovere usare un altro metodo oltre alla copia alla lavagna per appunti particolarmente per il gran numero dei dati.  Forse
    'fila dalla fila?
    'Considerare using la gamma di Detailsource come input
    
    a.Sheets (“particolare„). Attivare
    
    Oscurare il lc come numero intero
    
    'Provare a andare alla fila seguente della gamma di pagina.
    lc = gamma (“pagina„). Fila + gamma (“pagina„). Rows.Count
    Cellule (lc, 2).Select
    'Regolare i Cb = la gamma (“pagina„). Contrappeso (1, 0). Ridimensionare (gamma (“pagina„). Rows.Count - 1, gamma (“pagina„). Columns.Count)
    
    'Gamma (“pagina„). Prescelto
    'Cb. Prescelto
    ActiveSheet.Paste
    'Selection.Paste
    'Cellule (lc, colla 2).PasteSpecial: =xlPasteValues, funzionamento: =xlNone, _ di SkipBlanks
            : Il =False, traspone: =False
    
    
    Strati (“particolare„). Attivare
    Application.CutCopyMode = falso
    Application.ScreenUpdating = allineano
    
    b.Close (falso)

    'Concluder se

Concludere la funzione
Altre soluzioni  
 
programming4us programming4us