Изменить макрос под vb6, и вставить данные в столбец как значение

@ASSEI · Регистрация: 18.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте! подскажите почему не получается макросом вставить данные в столбец как значение,

Visual Basic
1
2
3
4
5
 xl.Columns("D:D").Select
   xl.Selection.Copy
   xl.Columns("E:E").Select
   xl.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'здесь не получается пишет ошибка: метод PasteSpecial  из класса Range завершен не верно 
xl.ActiveWorkbook.Save

Остап Бонд · 14.12.2017, 15:44

ASSEI,
1 - нам отсюда не видно, что такое xl
2 - велика вероятность того, что VB6 не знает констант типа xlPasteValues, xlNone и т.п. (в этом случае надо их описать выше или задать явно числами)

@ASSEI · 14.12.2017, 16:01 **[ТС]**

как макрос в xl строка работает а перенес в vb6 выдает ошибку

@ASSEI · 14.12.2017, 16:05 **[ТС]**

Сообщение от Остап Бонд

нам отсюда не видно, что такое xl

может так понятнее будет

Остап Бонд · 14.12.2017, 16:30

ASSEI, что Вы хотели сказать этим кодом

Visual Basic
1
xl.Workbooks.Open App.Path & "\ПКО.vbs"

?
Excel не будет выполнять VBS- скрипты таким образом.

@ASSEI · 14.12.2017, 16:50 **[ТС]**

я открываю книгу как vbs файл, в примере все открывает нормально загвоздка только в том что я указал выше
ошибка: метод PasteSpecial из класса Range завершен не верно

Остап Бонд · 14.12.2017, 17:42

Понятно! Отладчиком пользоваться вы не хотите. См. картинки.
Какой файл вы обрабатываете.
Какие константы используете.
Попытался показать всё в одном -

@Alex77755 · 14.12.2017, 19:52

Вставь обычным Paste а потом сделай .Value=.Value для нужного диапазона

@ASSEI · 15.12.2017, 10:05 **[ТС]**

простите косяк мой , вот корректный файл, во вложении

@ASSEI · 15.12.2017, 10:12 **[ТС]**

вот корректный файл, во вложении

Остап Бонд · 15.12.2017, 10:24

ASSEI, не знаю уже - как объяснить

Visual Basic
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
Private Sub Command1_Click()
Const xlPasteValues = -4163 'ОБЪЯВИ КОНСТАНТЫ
Const xlNone = -4142 'ИЛИ ИСПОЛЬЗУЙ ЧИСЛОВЫЕ ЗНАЧЕНИЯ
 
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open App.Path & "\ПКО.vbs"
 
xl.Visible = True '!!!!И СМОТРИ ПО ШАГАМ ЧЕМ ЗАНИМАЕТСЯ ЭТА ЧУДО-ПРОГРАММА
Stop 'ДАЛЕЕ [F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8][F8]
xl.Columns("D:M").Select
    xl.Selection.Delete Shift:=xlToLeft
    xl.Range("A1").Select
    xl.ActiveWindow.FreezePanes = False
    xl.Rows("1:1").Select
    xl.Selection.Delete Shift:=xlUp
    
    xl.Range("D1").Select
    xl.ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-3],RC[-2],RC[-1])"
    
    xl.Selection.AutoFill Destination:=xl.Range("D1:D350"), Type:=xlFillDefault
    xl.Range("D1:D350").Select
    
      
xl.Columns("D:D").Select
   xl.Selection.Copy
   xl.Columns("E:E").Select
   xl.Selection.PasteSpecial Paste:=-4163, Operation:=-4142, SkipBlanks _
       :=False, Transpose:=False
       xl.ActiveWorkbook.Save
xl.Application.Quit
 
End Sub

@ASSEI · 15.12.2017, 11:04 **[ТС]**

получится получилось , поясните что за константы, я вроде всегда тупо копировал макрос и он работал, ну немного правил и все , а тут константы?

Остап Бонд · 15.12.2017, 16:51

ASSEI, а с какого перепугу VB обязан знать, какие константы понаобъявляло внутри себя левое приложение?

Visual Basic
1
OPTION EXPLICIT

вставь в начало каждого своего шедевра и избежишь подобных проблем!
Сваливаю с темы...

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Остап Бонд Заблокирован
	14.12.2017, 15:44
	ASSEI, 1 - нам отсюда не видно, что такое xl 2 - велика вероятность того, что VB6 не знает констант типа xlPasteValues, xlNone и т.п. (в этом случае надо их описать выше или задать явно числами) 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	14.12.2017, 16:01 [ТС]
	как макрос в xl строка работает а перенес в vb6 выдает ошибку 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	14.12.2017, 16:50 [ТС]
	я открываю книгу как vbs файл, в примере все открывает нормально загвоздка только в том что я указал выше ошибка: метод PasteSpecial из класса Range завершен не верно 0

Остап Бонд Заблокирован
	14.12.2017, 17:42
	Понятно! Отладчиком пользоваться вы не хотите. См. картинки. Какой файл вы обрабатываете. Какие константы используете. Попытался показать всё в одном - Миниатюры 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	14.12.2017, 19:52
	Вставь обычным Paste а потом сделай .Value=.Value для нужного диапазона 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	15.12.2017, 10:05 [ТС]
	простите косяк мой , вот корректный файл, во вложении 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	15.12.2017, 11:04 [ТС]
	получится получилось , поясните что за константы, я вроде всегда тупо копировал макрос и он работал, ну немного правил и все , а тут константы? 0