Fråga : Att klistra värderar i VBA med ett singeldubblettcitationstecken - Excel

Jag har ett litet att lappa av VBA kodifierar att försök att kopiera från ett spänner till another using spänner val och därefter selection.copy och att välja en uppsätta som målcell och en activesheet.paste.   Detta fungerar mest av tiden, undantar, om jag har en cell med textdata i den, och den börjar med ”och inte har en ändelse”, degfunktionen fungerar inte korrekt.  Det verkar att ta värderar från celldet okända den kränkande cellen med singeln ”och fästar alla dem tillsammans. " klar "

Svar : Att klistra värderar i VBA med ett singeldubblettcitationstecken - Excel

vad orsaka är den inte bestämda I-förmiddagen men, knipan verkar att vara till INTE nära källan till efter degen.

notera att detta alla importer formaterar som inte kan vara vad du önskar.  använd PasteSpecial, om inte önska formaterar.
Selection.PasteSpecial-deg: =xlPasteValues funktion: =xlNone SkipBlanks _,
       : =False transponerar: =FalseU

Jag har omarbetat ImportCoden a bet för att använda arbetsboken anmärker direkt

eg. uppsättning b = Workbooks.open (fileIn)

(ive som byts namn på det rutinmässigt och mata in [arameter, som I-försök att inte använda namnger som kunde kollidera med ett definierat känt. precis min quirk.)
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:

Fungera ImportData (fileIn som Variant)
    'Ämna:    Importdata från källa sparar utvalt in i detta sparar. ta bort information om duplciate
    '            på dropdown flikar.
    'Förbättringar behövde:
    '   1. Verifiera att formatera av källarbetsboken som ser till, att den är i samma formaterar.
    
    'Application.ScreenUpdating = falskt
    
    'Denna arbetsbok
    Dunkelt a som arbetsboken
    'Källarbetsbok
    Dunkelt b som arbetsboken
    
    Dunkel ca som spänner
    Dunkla cb som spänner
    Dunkel wsx som arbetssedeln
    Dunkel ur som spänner
    Dunkel sr som stränger
    
    
    'spara = FunctionGetFileName (spara),
    (Spara), 'om inte IsFileOpen därefter
    
    Uppsättning a = ThisWorkbook
    'Application.Workbooks.Open sparar
    'Annars
    
    Uppsättning arbetsböcker för b = för Workbooks.Open (fileIn   ) '(spara),
    Med b
    'Gör alla arbetssedlar visibile
        För varje wsx i b.Worksheets
        
            wsx. Synligt = True
        Nästa wsx
    
    Avsluta med
    
    b.Sheets (”specificera”). Aktivera
    
    'Ta bort titelraden ror från spänner.
    Fastställda cb = spänner (”sidan”). Offset (1, 0). Resize (spänna (”sidan”). Rows.Count - 1, spänner (”sidan”). Columns.Count)
    
    'Spänna (”sidan”). Välj
    cb. Valt
    
    Selection.Copy
    
    'Behandla nu specificerafliken, genom att fästa till existerande data
    'Hur man behandlar stort belopp av data på clipboarden?
    'Behov att använda en annan metod förutom kopierar till clipboarden speciellt för stort belopp av data.  Kanske
    'ro ror by?
    'Betrakta using Detailsource spänner som matar in
    
    a.Sheets (”specificera”). Aktivera
    
    Dunkel lc som heltal
    
    'Försök som går därefter att ro av sidan, spänner.
    lc = spänner (”sidan”). Ro + spänna (”sidan”). Rows.Count
    Celler (lc, 2). Valt
    'Fastställda cb = spänner (”sidan”). Offset (1, 0). Resize (spänna (”sidan”). Rows.Count - 1, spänner (”sidan”). Columns.Count)
    
    'Spänna (”sidan”). Välj
    'cb. Valt
    ActiveSheet.Paste
    'Selection.Paste
    Deg 'för celler (lc, 2) .PasteSpecial: =xlPasteValues funktion: =xlNone SkipBlanks _,
            : =False transponerar: =False
    
    
    Täcker (”specificera”). Aktivera
    Application.CutCopyMode = falskt
    Application.ScreenUpdating = True
    
    (falsk) b.Close,

    'Avsluta om

Avsluta fungerar
Andra lösningar  
 
programming4us programming4us