用最笨的方法...記錄已開啟的檔名
看看合不合用
<pre class="c" name="code">
Option Explicit
Dim FileAlreadyOpened '已開啟的檔案
Sub OpenWorkbook()
Dim FileToOpen '使用者選擇要開啟的檔案
FileToOpen = Application.GetOpenFilename(Title:="Please choose a file to import", FileFilter:="Excel Files *.xls (*.xls),")
If FileToOpen = False Then
MsgBox "未指定檔案", vbInformation
Exit Sub
Else
If FileToOpen = FileAlreadyOpened Then
MsgBox "檔案已開啟", vbInformation
Else
Workbooks.Open FileName:=FileToOpen
FileAlreadyOpened = FileToOpen
End If
End If
End Sub
Excel 不是給企業這樣用
你該用應用系統
不是用 Excel
請洽 : ....
感謝您的回覆！
不過無論如何，總是要盡力嘗試。
發出問題後，經過苦思，有想到一個替代方法如下，希望拋磚引玉，
能由各位高手找出更棒的方法：
替代方法就是，只讓User 選一次檔案，因為舊檔案名稱可能因人而異。
可是新檔案是我提供的，我可以直接設定在程式內，就不用讓User 去選。
只是每次都要去改新檔案名稱，覺得有一點 Low end 的感覺。
不知是否還有大大可以提供更U的方式？
Tks a lot!
john
一般 [領料底稿] 我們會拋出 Mail Excel 格式, 給 應該去領料的人
一般 [收料底稿] 我們會拋出 Mail Excel 格式, 給 應該去收料的人
一般 [驗收底稿] 我們會拋出 Mail Excel 格式, 給 應該去驗收的人
一般 [檢貨底稿] 我們會拋出 Mail Excel 格式, 給 應該去檢貨的人
一般 [出貨底稿] 我們會拋出 Mail Excel 格式, 給 應該去出貨的人
......
再將以經填有 [實計數量] UPLOAD 回 ERP
......
大大
有 : 財務主管經驗, 有系統分析師經驗
要往 [高階技術] 走才有大路
要用 [企業工具] 走才能整合
我們有千億企業
管理部經理,財務部經理,等相同經驗...
只是我多了
Developer,Founder,
技術轉移顧問
...
歡迎交流
財務一般 EQ較高
IQ 部分不太想去發揮
用用 Excel 就好了
我教學妹10次 MDA 架構, 學妹是勤業同學會成員,
學妹(財務長)現在會用 MDA 架構系統
你還只用 Excel ?
........
iThome鐵人賽
看影片追技術