標題: [發問] 參考另一個檔案，設定sheet [打印本頁]

---

作者: eigen    時間: 2014-1-2 00:43     標題: 參考另一個檔案，設定sheet

參考另一個檔案，設定sheet

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

這是一個按下 Button 然後開啟另一個 excel 檔案的程序

被開啟的檔案檔名會被放在 C5 及 C6 ，而 C7 則另外存放了，被開啟檔案的 Sheet

現在我則卡在這個程序，當開啟檔案之後，我希望被開啟的檔案能夠跳到 C7 指定的 sheet

但是我這樣寫
Sheets(        Workbooks(ControlFile).WorksSheets("Setup").Range("C7")        ).Activate
怎麼寫，怎麼錯~~請指教，謝謝~~

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

複製代碼

---

作者: GBKEE    時間: 2014-1-2 07:24

本帖最後由 GBKEE 於 2014-1-2 07:27 編輯

回復 1# eigen
多了一個S
Sheets(Workbooks(ControlFile).WorksSheets("Setup").Range("C7").Value).Activate
Sheets(Workbooks(ControlFile).Worksheets("Setup").Range("C7").Value).Activate

---

作者: eigen    時間: 2014-1-2 17:25

回復 2# GBKEE


    :'( 天殺的~~居然是錯這種 一字千金

謝謝~~問題解決了~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)