[已解决]导入对应数据 在线等 万分感谢

vikyu

因客户的价格表都不一样 要求必须能弹出窗口选择价格表。

导入.rar (36.86 KB, 下载次数: 6)

2016-1-5 21:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-1-6 11:18

1. Sub 打开指定文件()          '用文件选择界面打开文件
   
2.     Dim Fil
   
3.     ChDir ThisWorkbook.Path
   
4.     Fil = Application.GetOpenFilename(filefilter:="EXCEL 工作表(*.xlsx;*.xlsm;*.xls),*.xlsx;*.xlsm;*.xls")
   
5.     If Fil = False Then MsgBox "请选择文件！": Exit Sub
   
6.     Set wb = Workbooks.Open(Fil)        '打开文件
   
7.     arr = wb.Sheets(1).[a1].CurrentRegion
   
8.     wb.Close False
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     Set d1 = CreateObject("scripting.dictionary")
    
11.     For i = 2 To UBound(arr)
    
12.         x = arr(i, 1)
    
13.         d(x) = arr(i, 2): d1(x) = arr(i, 3)
    
14.     Next
    
15.     arr = [a10].CurrentRegion
    
16.     For i = 2 To UBound(arr)
    
17.         x = arr(i, 4)
    
18.         arr(i, 6) = d(x)
    
19.         arr(i, 7) = d1(x)
    
20.     Next
    
21.     [a10].CurrentRegion = arr
    
22. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 打开指定文件()          '用文件选择界面打开文件
   
2.     Dim Fil
   
3.     ChDir ThisWorkbook.Path
   
4.     Fil = Application.GetOpenFilename(filefilter:="EXCEL 工作表(*.xlsx;*.xlsm;*.xls),*.xlsx;*.xlsm;*.xls")
   
5.     If Fil = False Then MsgBox "请选择文件！": Exit Sub
   
6.     Set wb = Workbooks.Open(Fil)        '打开文件
   
7.     arr = wb.Sheets(1).[a1].CurrentRegion
   
8.     wb.Close False
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     Set d1 = CreateObject("scripting.dictionary")
    
11.     For i = 2 To UBound(arr)
    
12.         x = arr(i, 1)
    
13.         d(x) = arr(i, 2): d1(x) = arr(i, 3)
    
14.     Next
    
15.     arr = [a10].CurrentRegion
    
16.     For i = 2 To UBound(arr)
    
17.         x = arr(i, 4)
    
18.         arr(i, 6) = d(x)
    
19.         arr(i, 7) = d1(x)
    
20.     Next
    
21.     [a10].CurrentRegion = arr
    
22. End Sub

复制代码

QCW911

Vlookup 就可以吧

vikyu

用Vlookup 可以实现 问题是价格表不一样 难题在于选择价格表 万分感谢高手 能实现的