- 帖子
- 79
- 主題
- 33
- 精華
- 0
- 積分
- 123
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- x64
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2013-10-24
- 最後登錄
- 2024-3-28
|
參考另一個檔案，設定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
怎麼寫，怎麼錯~~請指教，謝謝~~- Private Sub CommandButton1_Click()
- Dim file_Input As String
- Dim file_path As String
- Dim file_name As String
- Dim file_index As Integer
- Dim ControlFile As String
-
- Dim RngCnt As Integer
- Dim RngSheet As String
-
-
- ControlFile = ActiveWorkbook.Name
-
- file_Input = ""
- file_Input = Application.GetOpenFilename("EXCE檔(*.XLS),*xls")
-
- If file_Input <> "" Then
- If file_Input <> "False" Then
-
- file_index = InStrRev(file_Input, "\")
-
- file_path = Left(file_Input, InStrRev(file_Input, "\"))
- file_name = Right(file_Input, Len(file_Input) - InStrRev(file_Input, "\"))
-
- MsgBox "Reference " & file_Input
- Range("C5").Value = file_Input
- Range("C6").Value = "[" & file_name & "]"
- Workbooks.Open file_Input
- ' Workbooks(ControlFile).WorksSheets("Setup").Range("C7") = 1
- Sheets( Workbooks(ControlFile).WorksSheets("Setup").Range("C7") ).Activate
- Sheets("Sheet4").Activate
- Windows(ControlFile).Activate
- Sheets("Setup").Activate
- Sheets("Setup").Range("B2").Select
- End If
- End If
- End Sub
|
|
發表於 2014-1-2 00:43
| 
發表於 2014-1-2 07:24
| 