Member 14124697 Ответов: 1

Как я могу создать микро для заданных требований?

У меня есть некоторый набор файлов проверки в excel с содержимым формулы. Я хочу создать макрос, который, указав необходимый путь к папке, будет копировать файл за файлом данные и вставлять их в другой файл в значениях с соответствующими именами файлов в другом месте.

Пример:- Предположим, что у меня есть формула содержимого файлов excel, как показано ниже
Проверка 1
проверка 2
проверка 3
на месте "C:\Bansi\Validation"
я ожидаю, что макрос должен выбрать выше расположение файлов пути и мимо специального его в значения с именами
Проверка 1
Проверка 2
Проверка 2
на месте "C:\Bansi\Validation_without формулы"

Что я уже пробовал:

Я не пробовал какую-либо вещь.
Кто-нибудь может мне здесь помочь

Richard MacCutchan

Мы не можем помочь, не зная точно, с какой частью у вас возникли проблемы. Но если вы ожидаете, что кто-то здесь сделает эту работу за вас, я боюсь, что вы будете разочарованы.

1 Ответов

Рейтинг:
0

CHill60

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

Взгляните на этот фрагмент кода...

Public Sub test()

    Dim SourceRange As Range, TargetRange As Range
    Set SourceRange = ThisWorkbook.Sheets(1).UsedRange
    
    Set TargetRange = ThisWorkbook.Sheets(2).Range(SourceRange.Address)

    TargetRange.Value = SourceRange.Value
    
End Sub
Чтобы увидеть, как он работает, создайте рабочую книгу с двумя листами.

На первом листе введите несколько формул. Запустите код - значения, вычисленные по формулам, окажутся на листе 2 ... как если бы вы использовали Paste, Special, Values. Просто гораздо быстрее и надежнее.

Чтобы выполнить бит обработки файлов, просто используйте объект файловой системы в VBA - примере здесь Список файлов VBA в папке - автоматизация Excel[^]

Если вы застряли после того как написали свой собственный код то обязательно вернитесь с конкретным вопросом

Maciej Los

5ed!

CHill60

Спасибо! Ты был тем, кто изначально указал мне правильное направление все это время назад!