文件path更改取决于单元格值(VBA)
我认为这将是非常基本的,我试图引用多个线程( 如何使用VBA单元格中的文件path? )。 但似乎无法得到任何代码工作没有任何问题。
基本上我想要做的是打开不同的XL文件依赖于一个单元格的input,所有的文件都在同一个位置(文件夹),但显然这个名字会改变。 所以在单元格C3我写了一个数字,例如12345,我希望它在相应的命名XL文件的常量文件夹中查找。
所有的文件保存在C:\ ***** \ ***** \ Documents \我的工作,我想打开文件夹C:\ ***** \ ***** \ Documents \ My Work \ 12345.XLS根据C3改变。
这是我试图使用的代码:
Sub Macro() Dim Filelocation As String Dim File As String Dim Filepathfull As String Filelocation = "C:\ ***** \ *****\Documents\My Work" File = "C3" Filepathfull="Filelocation & "\" & "File" & ".xlsx" Workbooks.Open(Filename:=Filepathfull) End Sub
生病继续寻找在此期间! 感谢您的帮助提前。
编辑答案:
Sub Macro() Dim Filelocation As String Dim File As String Dim Filepathfull As String Filelocation = "C:\ ***** \ *****\Documents\My Work" File = "C3" Filepathfull = Filelocation & "\" & Range(File).Value & ".xlsx" Workbooks.Open (Filepathfull) End Sub
试试这个( 未经testing )
Filepathfull= Filelocation & "\" & Sheets("Sheet1").Range(File).Value & ".xls"
File
位置和File
是variables。 像这样对待他们。 任何你用引号括起来的东西都会被认为是一个string。
在上面的代码中将Sheet1
更改为相关工作表。 即文件名称所在的工作表。