Question

我是这个网站的新手，这是我的第一个问题，所以如果我没有正确设置，请原谅。这是一些背景信息。

我们购买了一本包含相关公司信息的数字图书。它来自一个非常规的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

*免责声明：我在本网站或其他同等网站上发现此代码，我不记得了。

接下来，我创建了另一个工作簿（公司概览工作簿）作为输入此购买的数字图书（工作簿）的信息的布局。有超过5k的客户，我不打算复制和粘贴20多个单元格为每个新创建的文件夹的每个新工作簿。

我们需要这份公司概览工作簿，因为我们已经开展了超过40年的业务，随着时间的推移，我们必须记录我们的信息。这些新制作的公司概览工作簿中的每一个都将记录笔记。

问题：如何编写VBA以逐行选择相关信息，输入到概述工作簿（每条信息都需要在指定的单元格中），另存为公司名称.xlsm;在相应的文件夹中。然后转到下一行并重复

理想情况下，我希望将此概述工作簿以某种方式链接到主服务器，如果管理需要更多（或更少）信息，我可以快速更新格式。在这一点上，这不是一个大问题，虽然它将帮助我解决其他问题

我一直在寻找别人谁解决了或者问这个问题没有成功。任何帮助将不胜感激！

从一个工作簿VBA创建多个工作簿

0 个答案: