Excel VBA 2016 - перекрестные ссылки между несколькими книгами - PullRequest
Новая
       15

Excel VBA 2016 - перекрестные ссылки между несколькими книгами

0 голосов
/ 14 октября 2018

У меня не было ничего, кроме успеха, когда я задавал свои вопросы по StackOverflow, поэтому у меня есть еще один,

У меня есть строка, расположенная в ячейке A54 из книги "Main", и я хочу сделать перекрестную ссылку на неев «1», «2» и «3» других файлов .CSV, чтобы увидеть, существует ли строка в этих файлах.Я хочу, чтобы он зациклился, чтобы он создавал новую строку, пока она не существует ни в одном из других файлов CSV.Я думаю, что основной синтаксис выглядит примерно так: 

'1.csv, 2.csv and 3.csv are already open, and Main.xlsm is currently active

Do Until Workbooks("1.csv").Application.WorksheetFunction.VLookup(Workbooks("Main.xlsm").Range("A54").Value, Workbooks("1.csv").Range("B:B"), 1, False) = False And _
        Workbooks("2.csv").Application.WorksheetFunction.VLookup(Workbooks("Main.xlsm").Range("A54").Value, Workbooks("2.csv").Range("B:B"), 1, False) = False And _
        Workbooks("3.csv").Application.WorksheetFunction.VLookup(Workbooks("Main.xlsm").Range("A54").Value, Workbooks("1.csv").Range("B:B"), 1, False) = False

        Range("J2").ClearContents # Basically like pressing F9 to randomize the formulas I have in the workbooks

        Loop

«ClearContents» - это то, что генерирует новую строку в книге, так что это легко, но этот синтаксис не работает, и яЯ не слишком знаком с тем, как работать с несколькими рабочими книгами.

Есть идеи, как сделать перекрестную ссылку на строку из одной рабочей книги, чтобы узнать, существует ли она в 3 других уже открытых CSV-файлах?Большое спасибо!

...