Pytanie : Klajstrowanie wartość w VBA z pojedynczy dwoisty wycena - Przodować

I mieć mały kawałek VBA kod który próba od jeden pasmo jeden using pasmo wybór i wtedy selection.copy, wybierać cel komórka i activesheet.paste.   Prawidłowo pracować prawidłowo the czas, oprócz jeżeli I mieć komórka z tekst dane w ono i ono zaczynać z "i mieć ending", the pasta operacja pracować prawidłowo.  Ono pojawiać się wartość od the komórka poza the naruszanie komórka z the pojedynczy "i append pojedynczy wpólnie.

Odpowiedź : Klajstrowanie wartość w VBA z pojedynczy dwoisty wycena - Przodować

pasta the przyczyna być I być pewny ale the dylemat pojawiać się The źródło do po the pasta.

zauważać że ty importować wszystkie the format che móc zauważać ty chcieć.  używać PasteSpecial jeżeli chcieć format.
Selection.PasteSpecial Pasta: =xlPasteValues, Operacja: =xlNone, SkipBlanks _
       : =False, Przestawiać: =FalseU

I przerabiać the ImportCode trochę the workbook przedmiot bezpośrednio

eg. ustawiać B = Workbooks.open (fileIn)

(ive przemianowywać the rutyna i the wkład [arameter gdy i próbować imię który móc z definiować imię. właśnie mój dziwactwo.)
(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:

Funkcja ImportData (fileIn Jako Wariant)
    'Purpose:    Importowy dane od źródło kartoteka wybierać w ten kartoteka. usuwać duplciate informacja
    '            na zakładka zakładka.
    'Ulepszenie potrzebować:
    '   1. Weryfikować the format the źródło workbook że ono być w the ten sam format.
    
    'Application.ScreenUpdating = Fałszywy
    
    'Ten workbook
    Ćmić a Jako Workbook
    'Źródło Workbook
    Ciemnawy B Jako Workbook
    
    Ciemnawy ca Pasmo
    Ciemnawy cb Pasmo
    Ciemnawy wsx Jako Worksheet
    Ciemnawy ur Pasmo
    Ciemnawy sr Sznurek
    
    
    'kartoteka = FunctionGetFileName (kartoteka)
    'Jeśli nie IsFileOpen (kartoteka) Wtedy
    
    Ustawiać a = ThisWorkbook
    'Application.Workbooks.Open kartoteka
    'Inny
    
    Ustalony B = Workbooks.Open (fileIn)   'Workbooks (kartoteka)
    Z B
    'Robić wszystkie worksheets visibile
        Dla B.Worksheets wsx W b.Worksheets
        
            wsx. Widoczny = Prawdziwy
        Następny wsx
    
    Końcówka Z
    
    b.Sheets ("szczegół"). Aktywować
    
    'Usuwać chodnikowiec rząd od pasmo.
    Ustawiać cb = Pasmo ("Strona"). Odsadzka ((1), (0)). Resize (Pasmo ("Strona"). Rows.Count - (1), Pasmo ("Strona"). Columns.Count)
    
    'Pasmo ("Strona"). Wybiórka
    cb. Wybiórka
    
    Selection.Copy
    
    'Teraz rękojeść the Szczegół zakładka appending istniejący dane
    'Dlaczego duże ilości dane na schowek?
    'Potrzeba inny metoda oprócz kopia schowek szczególnie dla duże ilości dane.  Być może
    'rząd rząd?
    'Rozważać Detailsource pasmo wkład
    
    a.Sheets ("Szczegół"). Aktywować
    
    Ćmić lc Jako Integer
    
    'Próbować następny rząd Strona Pasmo.
    lc = Pasmo ("Strona"). Rząd + Pasmo ("Strona"). Rows.Count
    Komórka (lc, 2).Select
    'Set cb = Pasmo ("Strona"). Odsadzka ((1), (0)). Resize (Pasmo ("Strona"). Rows.Count - (1), Pasmo ("Strona"). Columns.Count)
    
    'Pasmo ("Strona"). Wybiórka
    'cb. Wybiórka
    ActiveSheet.Paste
    'Selection.Paste
    'Komórka (lc, 2).PasteSpecial Pasta: =xlPasteValues, Operacja: =xlNone, SkipBlanks _
            : =False, Przestawiać: =False
    
    
    Prześcieradło ("Szczegół"). Aktywować
    Application.CutCopyMode = Fałszywy
    Application.ScreenUpdating = Prawdziwy
    
    b.Close (Fałszywy)

    'Kończyć Jeżeli

Kończyć Funkcja
Inne rozwiązania  
 
programming4us programming4us