Frage : Werte in VBA mit einzelnen Anführungszeichen - Excel kleben

Ich habe ein kleines Stück des VBA Codes, der versucht, von einer Strecke zu anderen using Streckenvorwähler und dann selection.copy zu kopieren und eine Zielzelle und ein activesheet.paste vorwählt.   Dieses arbeitet meistens, ausgenommen, wenn ich eine Zelle mit Textdaten in ihr habe und sie mit „anfängt und nicht ein Ende“ hat, der Pastenbetrieb arbeitet nicht richtig.  Es scheint, Werte von den Zellen über der beleidigenzelle mit dem einzelnen hinaus zu nehmen „und sie alle zusammen hinzuzufügen.

Antwort : Werte in VBA mit einzelnen Anführungszeichen - Excel kleben

was die Ursache ich sind nicht sicher aber ist, die Verlegenheit scheint, die Quelle bis NICHT nach die Paste zu schließen zu sein.

merken, dass dieses alle Formate importiert, die möglicherweise nicht sein können, was Sie wünschen.  PasteSpecial verwenden, wenn Formate nicht wünschen.
Selection.PasteSpecial Paste: =xlPasteValues, Betrieb: =xlNone, SkipBlanks _
       : =False, stellen um: =FalseU

Ich habe das ImportCode eine Spitze überarbeitet, um das Arbeitsbuch zu benutzen einwende direkt

z.B. einstellen b = Workbooks.open (fileIn)

(ive umbenannt das Programm und den Eingang [arameter, da ich, versuche Namen nicht zu verwenden, die mit einem definierten Namen zusammenstoßen konnten. gerade meine Verschrobenheit.)
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:
6:
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:

Funktion ImportData (fileIn als Variante)
    'Zweck:    Daten aus der Quellakte importieren, die in diese Akte vorgewählt wird. duplciate Informationen entfernen
    '            auf Drop-Down-Vorsprüngen.
    'Verbesserungen benötigt:
    '   1. überprüfen das Format des Quellarbeitsbuches, um zu garantieren, dass es im gleichen Format ist.
    
    'Application.ScreenUpdating = falsch
    
    'Dieses Arbeitsbuch
    A als Arbeitsbuch verdunkeln
    'Quellarbeitsbuch
    Schwaches b als Arbeitsbuch
    
    Schwacher Ca als Strecke
    Schwaches Columbium als Strecke
    Schwaches wsx als Arbeitsblatt
    Schwaches ur als Strecke
    Schwaches Sr als Schnur
    
    
    'Akte = FunctionGetFileName (Akte)
    'Wenn nicht IsFileOpen (Akte) dann
    
    Einstellen a = ThisWorkbook
    'Application.Workbooks.Open Akte
    'Sonst
    
    Einstellen b-= Workbooks.Open (fileIn)   'Arbeitsbücher (Akte)
    Mit b
    'Alle Arbeitsblätter visibile bilden
        Für jedes wsx in b.Worksheets
        
            wsx. Sichtbar = ausrichten
        Folgendes wsx
    
    Ende mit
    
    b.Sheets („Detail“). Aktivieren
    
    'Überschriftreihe von der Strecke entfernen.
    Columbium = Strecke („Seite“) einstellen. Versatz (1, 0). Die Größe neu bestimmen (Strecke („Seite“). Rows.Count - 1, Strecke („Seite“). Columns.Count)
    
    'Strecke („Seite“). Auserwählt
    Columbium. Auserwählt
    
    Selection.Copy
    
    'Den Detailvorsprung jetzt behandeln, indem Sie zu vorhandenen Daten hinzufügen
    ', wie man große Menge Daten bezüglich des Klemmbrettes bearbeitet?
    'Eine andere Methode außer Kopie zum Klemmbrett besonders für große Menge Daten anwenden müssen.  Möglicherweise
    'Reihe durch Reihe?
    'Using Detailsource Strecke als Eingang ansehen
    
    a.Sheets („Detail“). Aktivieren
    
    Lc als ganze Zahl verdunkeln
    
    'Versuchen, zur folgenden Reihe des Seitenbereichs zu gehen.
    lc = Strecke („Seite“). Reihe + Strecke („Seite“). Rows.Count
    Zellen (lc, 2).Select
    'Columbium = Strecke („Seite“) einstellen. Versatz (1, 0). Die Größe neu bestimmen (Strecke („Seite“). Rows.Count - 1, Strecke („Seite“). Columns.Count)
    
    'Strecke („Seite“). Auserwählt
    'Columbium. Auserwählt
    ActiveSheet.Paste
    'Selection.Paste
    'Zellen (lc, Paste 2).PasteSpecial: =xlPasteValues, Betrieb: =xlNone, SkipBlanks _
            : =False, stellen um: =False
    
    
    Blätter („Detail“). Aktivieren
    Application.CutCopyMode = falsch
    Application.ScreenUpdating = richten aus
    
    b.Close (falsch)

    'Beenden wenn

Funktion beenden
Weitere Lösungen  
 
programming4us programming4us