[已解决]我这段宏代码怎么更改 可以只出现一次选择文件啊

adders

wg68241064 发表于 2012-2-21 01:33
原数据的那个表 只是例子 显示情况下 可能读取的表 不一定是什么名字

好吧,按你的要求:

试验数据2.rar (31.97 KB, 下载次数: 8)

2012-2-21 21:01 上传

点击文件名下载附件

1. 
   
2. Sub Macro3()
   
3. Application.ScreenUpdating = False
   
4. Dim Mysh As Worksheet, fn As String
   
5. Set Mysh = ActiveSheet
   
6. fpfn = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file")
   
7. If fpfn = False Then Exit Sub
   
8. Workbooks.Open fpfn
   
9. fn = ActiveWorkbook.Name
   
10. Mysh.Range("B3:C100").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,column(),FALSE)),"""",VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,column(),TRUE))"
    
11. Mysh.Range("D3:D100").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,5,FALSE)),"""",VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,5,TRUE))"
    
12. Workbooks(fn).Close False
    
13. Set Mysh = Nothing
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

wg68241064

adders 发表于 2012-2-21 21:02
好吧,按你的要求:

出现这种情况！VLOOKUP那段语句提示错误

wg68241064

wg68241064 发表于 2012-2-22 12:33
出现这种情况！VLOOKUP那段语句提示错误

打开名为试验1的电子表格 出现这个我在宏里查找 也看不见有宏啊

wg68241064

wg68241064 发表于 2012-2-22 13:32
打开名为试验1的电子表格 出现这个我在宏里查找 也看不见有宏啊

我试验了 读取你附件那个表行 读取别的表就不行了 这是为什么呢啊？