Vraag : Het kleven waarden in VBA met één enkel dubbel citaat - Excel

Ik heb een reepje van code VBA dat om van één waaier aan een andere probeert te kopiëren gebruikend waaierselectie en dan selection.copy, selecterend een doelcel en een activesheet.paste.   Dit werk meestal, behalve als ik een cel met tekstgegevens daarin heb en het met „begint en geen einde“ heeft, de deegverrichting werkt niet correct.  Het schijnt om waarden van de cellen voorbij de beledigende cel met enig „te nemen en hen samen toe te voegen allen.

Antwoord : Het kleven waarden in VBA met één enkel dubbel citaat - Excel

wat de oorzaak ik is ben niet bepaald maar de moeilijke situatie schijnt te zijn niet de bron tot na het deeg te sluiten.

merk op dat dit alle formaten invoert die niet kunnen zijn wat u wilt.  gebruik PasteSpecial als geen formaten wil.
Selection.PasteSpecial kleef: =xlPasteValues, Verrichting: =xlNone, SkipBlanks _
       : =False, herschik: =FalseU

Ik heb ImportCode een beetje herwerkt om de werkboekvoorwerpen direct te gebruiken

plaats b.v. B = Workbooks.open (fileIn)

(ive anders genoemd de routine en de input [arameter aangezien ik probeer om namen niet te gebruiken die met een bepaalde naam konden botsen. mijn enkel gril.)
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:

Functie ImportData (fileIn als Variant)
    'Doel:    De gegevens van de invoer van brondiedossier in dit dossier wordt geselecteerd. verwijder duplciate informatie
    '            op dropdown lusjes.
    De 'verhogingen vereisten:
    '   1. Verifi�ër het formaat van het bronwerkboek om ervoor te zorgen dat het in het zelfde formaat is.
    
    'Application.ScreenUpdating = Vals
    
    'Dit werkboek
    Verduister a als Werkboek
    'BronWerkboek
    Schemerige B als Werkboek
    
    Schemerige ca als Waaier
    Schemerige cb als Waaier
    Schemerige wsx als Aantekenvel
    Schemerige ur als Waaier
    Schemerig SR als Koord
    
    
    'dossier = FunctionGetFileName (dossier)
    'Als niet IsFileOpen (dossier) toen
    
    Plaats a = ThisWorkbook
    'Application.Workbooks.Open- dossier
    'Anders
    
    Vastgesteld B = (fileIn) '   Werkboeken Workbooks.Open (dossier)
    Met B
    'Maak alle aantekenvellen visibile
        Voor Elke wsx in b.Worksheets
        
            wsx. Zichtbaar = Waar
        Volgende wsx
    
    Eind met
    
    b.Sheets („detail“). Activeer
    
    'Verwijder kopbalrij uit waaier.
    Plaats cb = Waaier („Pagina“). Compensatie (1, 0). Resize (Waaier („Pagina“). Rows.Count - 1, Waaier („Pagina“). Columns.Count)
    
    'Waaier („Pagina“). Selecteer
    cb. Selecteer
    
    Selection.Copy
    
    'Behandel nu het lusje van het Detail door toe te voegen aan bestaande gegevens
    'Hoe te om hoop gegevens over klembord te behandelen?
    'Behoefte om een andere methode naast exemplaar aan klembord vooral voor hoop gegevens te gebruiken.  Misschien
    'rij door rij?
    'Denk na gebruikend waaier Detailsource als input
    
    a.Sheets („Detail“). Activeer
    
    Verduister lc als Geheel
    
    'Probeer gaand naar volgende rij van de Waaier van de Pagina.
    lc = Waaier („Pagina“). Rij + Waaier („Pagina“). Rows.Count
    Cellen (lc, 2). Selecteer
    'Plaats cb = Waaier („Pagina“). Compensatie (1, 0). Resize (Waaier („Pagina“). Rows.Count - 1, Waaier („Pagina“). Columns.Count)
    
    'Waaier („Pagina“). Selecteer
    'cb. Selecteer
    ActiveSheet.Paste
    'Selection.Paste
    Deeg .PasteSpecial het 'van cellen (lc, 2): =xlPasteValues, Verrichting: =xlNone, SkipBlanks _
            : =False, herschik: =False
    
    
    Bladen („Detail“). Activeer
    Application.CutCopyMode = Vals
    Application.ScreenUpdating = Waar
    
    (Vals) b.Close

    'Beëindig als

Beëindig Functie
Andere oplossingen  
 
programming4us programming4us