Hsieh

¦^´_ 1# jesscc

1. Sub OpenFile1()
   
2. FileToOpen = Application.GetOpenFilename _
   
3. (Title:="¶}±Ò¥»¶g»Ý¨Dªí", _
   
4. FileFilter:="Matl Request *.xls (*.xls),")
   
5. If FileToOpen = False Then
   
6. MsgBox "¥²¶·¶}±Ò »Ý¨Dªí¡A¤u§@¤~¯àÄ~Äò!", 48, "ÀÉ®×¥¼¶}±Ò"
   
7. Exit Sub
   
8. Else
   
9. op = False
   
10. fn = Split(FileToOpen, "\")(UBound(Split(FileToOpen, "\")))
    
11. Var = MsgBox("½T©w¬O¶}±Ò³o¥÷»Ý¨Dªí¶Ü?", 36, "½Ð½T»{±ý¶}±Ò¤§ÀÉ®×")
    
12. If Var = 6 Then
    
13. For Each w In Windows 'ÀˬdÀɮ׬O§_¤w¶}±Ò
    
14.    If w.Caption = fn Then op = True: Exit For
    
15. Next
    
16. If op = False Then Workbooks.Open Filename:=FileToOpen '¦pªGµøµ¡¤¤¨S¦³¶}±Ò»Ý¨Dªí´N¶}±Ò»Ý¨Dªí
    
17. Set aw = Workbooks(fn) '±N»Ý¨Dªí³]µ¹ª«¥óÅܼƥH§Q«áÄò¨Ï¥Î
    
18. Workbooks("Main.xls").Activate
    
19. Sheets("MRP").Range("D1").Value = fn '±N»Ý¨DªíÀɦW¼g¤JÀx¦s®æ
    
20. Else
    
21. End If
    
22. End If
    
23. 
    
24. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# jesscc

¨º§A«ç»òÅýµ{¦¡ª¾¹D§A·Q¶}ªºÀɦW¬O¬Æ»ò?
¨Ò¦p¤w¦³2­Ó¤£¦P¤é´ÁªºÃþ¦üÀɦW¡A­n¥Î­þ¤@­Ó?

Hsieh

aw.Sheets("sheet1").[B11:N22].Copy Workbooks("Main").Sheets("MRP").[B11:N22]