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

wg68241064

• Sub Macro1()
• '
• ' Macro1 Macro
• ' 宏由 Lenovo User 录制，时间: 2012-2-17
• '
• '
•     Range("B3").Select
•     ActiveCell.FormulaR1C1 = _
•         "=IF(ISERROR(VLOOKUP(RC[-1],[选择文件]随机编号!R2C1:R100C5,2,FALSE)),"""",VLOOKUP(RC[-1],[选择文件]随机编号!R2C1:R100C5,2,TRUE))"
•     Range("C3").Select
•     ActiveCell.FormulaR1C1 = _
•         "=IF(ISERROR(VLOOKUP(RC[-2],[选择文件]随机编号!R2C1:R100C5,3,FALSE)),"""",VLOOKUP(RC[-2],[选择文件]随机编号!R2C1:R100C5,3,TRUE))"
•     Range("D3").Select
•     ActiveCell.FormulaR1C1 = _
•         "=IF(ISERROR(VLOOKUP(RC[-3],[选择文件]随机编号!R2C1:R100C5,5,FALSE)),"""",VLOOKUP(RC[-3],[选择文件]随机编号!R2C1:R100C5,5,TRUE))"
•     Range("B3:D3").Select
•     Selection.AutoFill Destination:=Range("B3:D100"), Type:=xlFillDefault
•     Range("B3:D100").Select
•     ActiveWindow.SmallScroll Down:=-123
•     Range("I2").Select
• End Sub
  

只要一运行宏  就让我选择文件 需要选择四次 怎么更改 能只需要选择一次啊

谢谢大家！

最佳答案

月排行榜 / 总排行榜

adders

2012-2-21 21:02

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

好吧,按你的要求:

(, 下载次数: 8)

上传

点击文件名下载附件

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

复制代码

跳转到最佳答案楼层

hrpotter

把第一次选择的文件名赋给一个变量，以后的几个文件名，直接用这个变量代替！

wg68241064

hrpotter 发表于 2012-2-17 11:06
把第一次选择的文件名赋给一个变量，以后的几个文件名，直接用这个变量代替！

您好 我是新手 请详细说 最好把代码给我  谢谢

hrpotter

wg68241064 发表于 2012-2-17 11:07
您好 我是新手 请详细说 最好把代码给我  谢谢

代码给你，先要把你的文件上传呀，才能调试！

happym8888

1. Sub Macro1()
   
2. Range("B3").Select
   
3. ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1],[选择文件]随机编号!R2C1:R100C5,2,FALSE)),"""",VLOOKUP(RC[-1],[选择文件]随机编号!R2C1:R100C5,2,TRUE))"
   
4. Range("B3:D3").Select
   
5. Selection.AutoFill Destination:=Range("B3:D100"), Type:=xlFillDefault
   
6. Range("B3:D100").Select
   
7. ActiveWindow.SmallScroll Down:=-123
   
8. Range("I2").Select
   
9. End Sub
   
10. 
    
11. 
    
12. 
    

复制代码

wg68241064

happym8888 发表于 2012-2-17 17:38

你好  三列不是一样的

wg68241064

hrpotter 发表于 2012-2-17 11:15
代码给你，先要把你的文件上传呀，才能调试！

你好 这个是我的表格 怎么实现你说的那个啊！请指教

wg68241064

wg68241064 发表于 2012-2-18 15:06
你好  三列不是一样的

我的附件已经上传！用“试验1”这个电子表格从“原数据”这个表格提出数据！现在的宏运行速度很慢 还有改进的方法吗？

adders

wg68241064 发表于 2012-2-20 20:41
我的附件已经上传！用“试验1”这个电子表格从“原数据”这个表格提出数据！现在的宏运行速度很慢 还有改 ...

简单来说,如果你还想保留Vlookup到"原数据"文件的公式,可以先打开"原数据"再关上,这样Vlookup速度会快些

稍稍改进代码如下:
试验表格.rar (30.89 KB, 下载次数: 11)

2012-2-21 11:09 上传

点击文件名下载附件

1. 
   
2. 
   
3. Sub Macro2()
   
4. Application.ScreenUpdating = False
   
5. Dim fp As String, fn As String, Mysh As Worksheet
   
6. Set Mysh = ActiveSheet
   
7. fp = ThisWorkbook.Path & ""
   
8. fn = "原数据.xls"
   
9. If Not IsWbOpen(fn) Then Workbooks.Open fp & fn
   
10. 
    
11. Mysh.Range("B3:C100").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,column(),FALSE)),"""",VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,column(),TRUE))"
    
12. Mysh.Range("D3:D100").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,5,FALSE)),"""",VLOOKUP(RC1,[" & fn & "]原始!R2C1:R100C5,5,TRUE))"
    
13. 
    
14. Workbooks(fn).Close True
    
15. Set Mysh = Nothing
    
16. Application.ScreenUpdating = True
    
17. End Sub
    
18. 
    
19. Function IsWbOpen(wbName As String) As Boolean
    
20.     Dim wb As Workbook
    
21.     IsWbkOpen = True
    
22.     On Error Resume Next
    
23.     Set wb = Workbooks(wbName)
    
24.     If wb Is Nothing Then IsWbOpen = False
    
25. End Function
    

复制代码

wg68241064

adders 发表于 2012-2-21 11:10
简单来说,如果你还想保留Vlookup到"原数据"文件的公式,可以先打开"原数据"再关上,这样Vlookup速度会快些 ...

原数据的那个表 只是例子 显示情况下 可能读取的表 不一定是什么名字