在Shell脚本中使用单元格值

Question

请帮忙！

我是VBA的新手，并尝试合并一个宏，最好以按钮的形式，使用记事本打开目录中的文件。当我事先指定文件的名称时，这很容易，但我想要做的是打开活动单元格中指定的文件名。

我的数据中的一列是每行中数据来自的文件名减去路径，所以我可以说“打开DIRECTORY \ ACTIVE CELL VALUE”吗？

非常感谢提前

Answer 1

你已经在那里，你只需要在活动单元格中获取值。这样就可以了：

Sub OpenFileInDefaultApp()

' open a file in it's windows default application

Dim filepath As String
Dim shellApp As Object

filepath = "" ' PUT YOUR CONSTANT FILEPATH HERE
filepath = filepath & "/" & ActiveCell.Text ' THIS IS FOR THE FILE NAME IN THE CELL
Set shellApp = CreateObject("Shell.Application")

shellApp.Open (filepath)