我已经编写了代码,但必须在多个工作簿上(每天一个)使用它,才能将数据传输到集体excel数据库中。我需要在代码中指定工作簿。我不会使用代码,而是会使用没有经验的人,因此我想将复杂性降到最低。有没有一种方法可以使集合工作簿中的单元格或按钮指定用于代码的工作簿?这样,使用它的任何人都只需要键入文件名并打开输入工作簿?类似于命令按钮,但具有可变输入。
先感谢您
我发现使用其他用户熟悉的表单最容易。VBA允许您调用标准Windows对话框,例如Open File
对话框。对话框返回一个字符串,该字符串是工作簿的路径。然后,您可以从该路径创建工作簿对象并对其执行常规操作。
在下面的代码中,我假设您已经在工作表上放置了一个按钮(称为OpenWorkbookButton
),并放置了用于调用对话框,获取文件路径并在OpenWorkbookButton_Click()事件处理程序中创建工作簿对象的代码。这会将工作簿作为参数传递给执行常规操作的子例程,这样用户就不必看到工作簿处于打开状态或以任何方式进行交互。
Private Sub OpenWorkbookButton_Click()
Dim wbPath As String
wbPath = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files *.xls* (*.xls*),")
Dim wb As Workbook
Set wb = Application.Workbooks.Open(wbPath)
Call DoMyUsualOperations(wb)
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句