- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 1# 佩玄
因樓主妳的說明不是很清楚~
僅能就妳所寫的步驟來自行設計~
1. 一個空白EXCEL
2. 執行按鈕中的程式
3. 選舉要打開的檔案
4. 以唯讀的方式OPEN file
剩下的兩個取消共用跟執行匯整~
就沒有寫了~ 僅供我會的部份給您參考~- Private Sub CommandButton1_Click()
- PATCH = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xls), *.xls") '讀取檔案
- If PATCH = False Then
- Exit Sub
- Else
- Workbooks.Open Filename:=PATCH, ReadOnly:=True '唯讀打開FILE
- End If
- End Sub
複製代碼 |
|