VBA的查找公式错误
我是一个在Excelmacros观vba新手。 我在查询代码时遇到了一个问题，它引用了用户select的另一个工作簿。
这是我的代码：
Private Sub vlookups() Dim data_file_new As String Dim i As Integer Dim a As String, b As String, path As String data_file_new = CStr(Application.GetOpenFilename(FileFilter:="Excel Workbooks (*.xls*),*.xls*", Title:="Select new data file for VLOOKUP")) path = data_file_new a = "=VLOOKUP(A:A,'[" & path & "]Source'!$A:$AB,28,0)" b = "=VLOOKUP(A:A,'[" & path & "]Source'!$A:$AJ,36,0)" i = 7 Do Until Sheets("Macro Template").Cells(i, 1) = "" Sheets("Macro Template").Cells(i, 37) = a Sheets("Macro Template").Cells(i, 38) = b i = i + 1 Loop End Sub 我的问题是，我的代码不给vlookup正确的公式。 相反，它给出了这个公式：
=VLOOKUP(A:A,'[E:\AP NO APPROVAL\[No Approval Monitoring Log_June 2015 xlsx.xlsx]Source]No Approval Monitoring Log_June'!$A:$AB,28,0)
正确的公式是这样的：
=VLOOKUP(A:A,'E:\AP NO APPROVAL\[No Approval Monitoring Log_June 2015 xlsx.xlsx]Source'!$A:$AB,28,0)
任何帮助，将不胜感激。
谢谢！
试试这个（ 未经testing ）
Private Sub vlookups() Dim ws As Worksheet Dim lRow As Long Dim sPath As String, sFile As String, sTemp As String Dim Ret Set ws = ThisWorkbook.Sheets("Macro Template") Ret = Application.GetOpenFilename(FileFilter:="Excel Workbooks (*.xls*),*.xls*", _ Title:="Select new data file for VLOOKUP") If Ret = False Then Exit Sub sFile = GetFilenameFromPath(Ret) sPath = Split(Ret, sFile)(0) sTemp = "=VLOOKUP(A:A,'" & sPath & "[" & sFile With ws lRow = .Range("A" & .Rows.Count).End(xlUp).Row .Range("AK7:AK" & lRow).Formula = sTemp & "]Source'!$A:$AB,28,0)" .Range("AL7:AL" & lRow).Formula = sTemp & "]Source'!$A:$AJ,36,0)" End With End Sub Public Function GetFilenameFromPath(ByVal strPath As String) As String If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then GetFilenameFromPath = _ GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1) End If End Function
说明 ：
-
Application.GetOpenFilename()返回一个Variant。 如上面的代码所示处理它。 -
你正在寻找的公式是
=VLOOKUP(A:A,'E:\AP NO APPROVAL\[No Approval Monitoring Log_June 2015 xlsx.xlsx]Source'!$A:$AB,28,0)，Ret会给你一个直的文件path和名称E:\AP NO APPROVAL\No Approval Monitoring Log_June 2015 xlsx.xlsx。Vlookup在文件名周围放置一个[]。 您必须首先从文件path中提取文件名并重build整个string。 我们使用上面代码中的Function GetFilenameFromPath来检索。 -
您不需要循环单元格来input公式。 您可以在整个范围内input一个GO的公式。
你没有指定公式所指的表格。 那就是问题所在。