[µo°Ý] °Ñ¦Ò¥t¤@­ÓÀɮסA³]©wsheet

eigen

°Ñ¦Ò¥t¤@­ÓÀɮסA³]©wsheet

https://dl.dropboxusercontent.com/u/12575824/test03.xls

³o¬O¤@­Ó«ö¤U Button µM«á¶}±Ò¥t¤@­Ó excel Àɮתºµ{§Ç

³Q¶}±ÒªºÀÉ®×ÀɦW·|³Q©ñ¦b C5 ¤Î C6 ¡A¦Ó C7 «h¥t¥~¦s©ñ¤F¡A³Q¶}±ÒÀɮתº Sheet

²{¦b§Ú«h¥d¦b³o­Óµ{§Ç¡A·í¶}±ÒÀɮפ§«á¡A§Ú§Æ±æ³Q¶}±ÒªºÀɮׯà°÷¸õ¨ì C7 «ü©wªº sheet

¦ý¬O§Ú³o¼Ë¼g
Sheets(        Workbooks(ControlFile).WorksSheets("Setup").Range("C7")        ).Activate
«ç»ò¼g¡A«ç»ò¿ù~~½Ð«ü±Ð¡AÁÂÁÂ~~

1. Private Sub CommandButton1_Click()
   
2.         Dim file_Input As String
   
3.         Dim file_path As String
   
4.         Dim file_name As String
   
5.         Dim file_index As Integer
   
6.         Dim ControlFile As String
   
7.         
   
8.         Dim RngCnt      As Integer
   
9.         Dim RngSheet    As String
   
10.         
    
11.         
    
12.         ControlFile = ActiveWorkbook.Name
    
13.         
    
14.         file_Input = ""
    
15.         file_Input = Application.GetOpenFilename("EXCEÀÉ(*.XLS),*xls")
    
16.       
    
17. 
    
18.         If file_Input <> "" Then
    
19.                 If file_Input <> "False" Then
    
20.                
    
21.                 file_index = InStrRev(file_Input, "\")
    
22.                
    
23.                 file_path = Left(file_Input, InStrRev(file_Input, "\"))
    
24.                 file_name = Right(file_Input, Len(file_Input) - InStrRev(file_Input, "\"))
    
25.                
    
26.                 MsgBox "Reference " & file_Input
    
27.                 Range("C5").Value = file_Input
    
28.                 Range("C6").Value = "[" & file_name & "]"
    
29. 
    
30.                 Workbooks.Open file_Input
    
31. 
    
32. '                Workbooks(ControlFile).WorksSheets("Setup").Range("C7") = 1
    
33.                 Sheets(        Workbooks(ControlFile).WorksSheets("Setup").Range("C7")        ).Activate
    
34.                 Sheets("Sheet4").Activate
    
35. 
    
36.                 Windows(ControlFile).Activate
    
37.                 Sheets("Setup").Activate
    
38.                 Sheets("Setup").Range("B2").Select
    
39.                 End If
    
40.         End If
    
41. 
    
42. 
    
43. 
    
44. End Sub

½Æ»s¥N½X

eigen

¦^´_ 2# GBKEE


    :'( ¤Ñ±þªº~~©~µM¬O¿ù³oºØ ¤@¦r¤dª÷

ÁÂÁÂ~~°ÝÃD¸Ñ¨M¤F~~

GBKEE

¦^´_ 1# eigen
¦h¤F¤@­ÓS
Sheets(Workbooks(ControlFile).WorksSheets("Setup").Range("C7").Value).Activate
Sheets(Workbooks(ControlFile).Worksheets("Setup").Range("C7").Value).Activate