Изменить макрос под 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

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

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

Остап Бонд Заблокирован
	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