- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 120
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-5-18
               
|
回復 1# jesscc - Sub OpenFile1()
- FileToOpen = Application.GetOpenFilename _
- (Title:="開啟本週需求表", _
- FileFilter:="Matl Request *.xls (*.xls),")
- If FileToOpen = False Then
- MsgBox "必須開啟 需求表，工作才能繼續!", 48, "檔案未開啟"
- Exit Sub
- Else
- op = False
- fn = Split(FileToOpen, "\")(UBound(Split(FileToOpen, "\")))
- Var = MsgBox("確定是開啟這份需求表嗎?", 36, "請確認欲開啟之檔案")
- If Var = 6 Then
- For Each w In Windows '檢查檔案是否已開啟
- If w.Caption = fn Then op = True: Exit For
- Next
- If op = False Then Workbooks.Open Filename:=FileToOpen '如果視窗中沒有開啟需求表就開啟需求表
- Set aw = Workbooks(fn) '將需求表設給物件變數以利後續使用
- Workbooks("Main.xls").Activate
- Sheets("MRP").Range("D1").Value = fn '將需求表檔名寫入儲存格
- Else
- End If
- End If
- End Sub
|
|
發表於 2011-5-7 13:40
| 
