使用Excel VBA插入Vlookup公式

Question

I'm having trouble using VBA to insert a vlookup formula in a column. I get a "Run-time error '1004': Application-defined or object-defined error". I suspect this could be an issue with the "double-quotes" thing. I've done some research on this, but still can't manage to wrap my head around when the double quotes are needed, and when they are not. Also, I'm using a dynamic date variable (TodaysDate), a string determined by =Format(Date, "mm-dd-yyyy"). Below is the code line that's not working:

Range("Y2:Y" & RowCount).Formula = "=IF(ISNA(VLOOKUP(X2,""'[PHO """ & TodaysDate & """.xlsx]Detail'!$C:$D""),1,FALSE)),""Yes"",""No"")"

Answer 1

Having worked on the same thing this past week I found it was easier to assign the file name (and in my case location) to a variable and place that into the vlookup instead of putting it all inside. For example, I did the following and got past this hurdle.

filename1 = "C:\Users\me\Documents\Custom Office Templates\DataValidation.xlsx" & "Sheet1'!$A:$C"

ActiveWorkbook.Worksheets("PipelineData").Range("I2:I" & lrow) = "=VLOOKUP(trim(A2),'" & filename1 & " ,2,FALSE)"

so yours might be

 filename = "Pho" & TodaysDate & ".xlsx" & "Detail'!$C$D"
 Range("Y2:Y" & RowCount).Formula = "=IF(ISNA(VLOOKUP(X2,'" & filename & "),1,FALSE)),""Yes"",""No"")"

Dont' know if this counts as an answer but it might help you out.