Создание нескольких рабочих книг из одной рабочей книги VBA - PullRequest
Новая
       25

Создание нескольких рабочих книг из одной рабочей книги VBA

0 голосов
/ 27 апреля 2018

Я новичок в этом сайте, и это мой первый вопрос, поэтому, если я не настроил это правильно, извините. Вот некоторая справочная информация.

Мы приобрели цифровую книгу с соответствующей информацией о компании. Это была не сформулированная рабочая книга Excel, которая была великолепна. Эта рабочая тетрадь содержит все подробности наших нынешних, бывших и будущих клиентов. Мы конвертируем из бумаги в компьютерную файловую систему. Руководство стремится использовать Excel в качестве нашей рабочей лошадки. Все здесь не знают, как правильно пользоваться компьютерами. Таким образом, в моем простейшем решении я экспортирую названия компаний как их собственную папку

Я решил это с помощью, 

Sub MakeFolders()
Dim xdir As String
Dim fso
Dim lstrow As Long
Dim i As Long
Set fso = CreateObject("Scripting.FileSystemObject")
lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To lstrow
    'change the path on the next line where you want to create the folders
    xdir = "E:\theFILES\" & Range("A" & i).Value
    If Not fso.FolderExists(xdir) Then
        fso.CreateFolder (xdir)
    End If
Next
Application.ScreenUpdating = True
End Sub

* отказ от ответственности: я нашел этот код либо на этом сайте, либо в другом эквиваленте, не помню.

Затем я создал другую рабочую книгу («Обзорная книга компании») в качестве макета для ввода информации из этой приобретенной цифровой книги (рабочей книги). Имеется более 5 000 клиентов, и я не собираюсь копировать и вставлять более 20 ячеек за каждую новую книгу для каждой вновь созданной папки.

Эта книга с обзором компании необходима, поскольку мы ведем бизнес уже более 40 лет, и с течением времени наша информация должна будет регистрироваться. Каждая из этих новых рабочих тетрадей с обзором компании будет представлять собой журнал заметок.

Вопрос: Как я могу написать VBA, чтобы переходить строка за строкой, выбирая релевантную информацию, вводя ее в Обзорную книгу (каждая часть информации должна находиться в обозначенных ячейках), Сохранить как название компании.xlsm; в соответствующей папке. Затем перейдите к следующему ряду и повторите

В идеале, я хотел бы, чтобы эта книга-обзор была как-то связана с мастером, где, если руководству требуется больше (или меньше) информации, я могу быстро и безошибочно обновить форматирование. На данный момент, это не так уж важно, хотя это поможет мне решить другие проблемы в будущем

Я искал кого-то еще, кто решил или задал этот вопрос безуспешно. Любая помощь будет высоко ценится!

...