Вопрос : Наклеивающ значения в VBA с одиночной двойной цитатой - Эксел

Я имею малую часть Кодего VBA пытает скопировать от одного ряда к другим using выбор ряда и после этого selection.copy, выбирающ клетку цели и activesheet.paste.   Это работает большое часть из времени, за исключением если я имею клетку с данными по текста в ей и он начинает с «и не имеет законцовку», то, деятельность затира не работает правильно.  Оно кажется, что принимает значения от клеток за обижая клеткой с одиночной «и прилагает их все совместно. class=

Ответ : Наклеивающ значения в VBA с одиночной двойной цитатой - Эксел

причиной будет я не обязательно но не покажется, что должны будет починка не закрыть источник до после затира.

заметьте что это импортирует все формы не могут быть вы хотите.  используйте PasteSpecial если не те формы.
Затир Selection.PasteSpecial: =xlPasteValues, деятельность: =xlNone, _ SkipBlanks
       : =False, транспонирует: =FalseU

Я перерабатывал ImportCode бит для использования workbook возражаю сразу

например установите b = Workbooks.open (fileIn)

(переименованное ive режимом и входным сигналом [arameter по мере того как я пытаюсь не использовать имена smogли столкнуться с определенным именем. как раз моя особенность.)
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:

Функция ImportData (fileIn как вариант)
    'Цель:    Импортируйте данные от архива источника выбранного в этот архив. извлекайте данные по duplciate
    '            на платах падающих вниз.
    'Нужные повышения:
    '   1. проверяет форму workbook источника для того чтобы обеспечить что оно находится в такой же форме.
    
    'Application.ScreenUpdating = ложно
    
    'Этот workbook
    Затемните a как Workbook
    'Workbook источника
    Тусклый b как Workbook
    
    Тусклый ca как ряд
    Тусклые cb как ряд
    Тусклое wsx как рабочий лист
    Тусклое ur как ряд
    Тусклый старший как шнур
    
    
    'архив = FunctionGetFileName (архив)
    'Если не IsFileOpen (архив) после этого
    
    Установите a = ThisWorkbook
    'Архив Application.Workbooks.Open
    'Еще
    
    Установите Workbooks b = Workbooks.Open (fileIn   ) '(архив)
    С b
    'Сделайте все рабочий лист visibile
        Для каждого wsx в b.Worksheets
        
            wsx. Видимо = True
        Следующее wsx
    
    Конец с
    
    b.Sheets («деталь»). Активируйте
    
    'Извлекайте рядок коллектора от ряда.
    Установите cb = ряд («страницу»). Смещение (1, 0). Измените размеры (ряд («страница»). Rows.Count - 1, ряд («страница»). Columns.Count)
    
    'Ряд («страница»). Отборно
    cb. Отборно
    
    Selection.Copy
    
    'Теперь отрегулируйте плату детали путем прилагать к существующий данным
    'Как отрегулировать большое количество данных на clipboard?
    'Нужно использовать другой метод кроме экземпляра к clipboard специально для большого количества данных.  Возможно
    'рядок рядком?
    'Рассматривайте using ряд Detailsource как входной сигнал
    
    a.Sheets («деталь»). Активируйте
    
    Затемните lc как интежер
    
    'Попытайтесь пойти к следующему рядку ряда страницы.
    lc = ряд («страница»). Рядок + ряд («страница»). Rows.Count
    Клетки (lc, 2).Select
    'Установите cb = ряд («страницу»). Смещение (1, 0). Измените размеры (ряд («страница»). Rows.Count - 1, ряд («страница»). Columns.Count)
    
    'Ряд («страница»). Отборно
    'cb. Отборно
    ActiveSheet.Paste
    'Selection.Paste
    'Клетки (lc, затир 2).PasteSpecial: =xlPasteValues, деятельность: =xlNone, _ SkipBlanks
            : =False, транспонирует: =False
    
    
    Листы («деталь»). Активируйте
    Application.CutCopyMode = ложно
    Application.ScreenUpdating = True
    
    b.Close (ложное)

    'Закончитесь если

Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us