Question

目前正在尝试使用VBA脚本来使用我创建的新报告。问题是完全做这个报告，它需要每月224份个人报告的信息。

现在我可以手动提取信息，但VBA会更快。所有信息都会下载并存储在代表商店名称的各个文件夹中，然后按月进一步细分。（C：Folder \ Reports \ ShopName \ January）等。

我希望能够做的是设置一个标准或至少创建一个选项，用于搜索具有ShopName和Month的文件夹，由用户在表单开头确定。（他们简单地在电子表格的某个区域输入详细信息）然后VBA将从相关文件夹和文件中导出信息。

我可以运行VBA来格式化，选择和显示我需要的数据，但我无法弄清楚如何让VBA自己进入这些文件夹。

我写了一个VBA检查以确定文件夹是否存在，但这是我定义宏中的位置。

在这个例子中，我只是检查文件夹是否存在

Sub sbCheckingIfAFolderExists()

Dim FSO
Dim sFolder As String

sFolder = "W:\Simon Docs\Shop Reports\Weston Favell\Jan" 
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Is Available", vbInformation, "Exists!"
Else
MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If

End Sub

我需要改变的是Weston Favell \ Jan是......如果有意义的话，需要= A1 \ = A2？ A1和A2是他们想要提取的用户输入位置。

任何人都可以给予的任何帮助都会很棒。

由于

Answer 1

商店名称和月份可以作为变量添加到您编写的语句中：

Sub sbCheckingIfAFolderExists()

Dim FSO
Dim sFolder As String
Vshop = Range("B1").value
Vmonth = Range("B2").value

sFolder = "W:\Simon Docs\Shop Reports\" & Vshop & "\" & Vmonth 
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Is Available", vbInformation, "Exists!"
Else
MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If

End Sub

VBA Excel问题 - 使用条件打开文件夹和文件

1 个答案: