- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
3#
發表於 2017-12-1 09:14
| 只看該作者
本帖最後由 yangjie 於 2017-12-1 09:23 編輯
回復 2# adrian_9832
主要是要跳離Excel安全性選項
如下
Sub Main()
Dim f1
f1 = App.EXEName
Dim fso, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1 & ".exe")
Dim n
n = fso.GetParentFolderName(f.Path)
Dim objXLApp
Dim objXLBook
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
Set objXLBook = objXLApp.Workbooks.Open(n & "\M1 資料庫\" & f1 & ".xls")
End Sub
VB可有法子處裡資料夾畫面或使所開Excel為最上層?
(若用*.xls直接開,所開Excel為最上層沒問題)
(次要我在處裡一個1.xls 可讓兩人同時開,處理2.xls資料而閃避唯讀) |
|
