| |
▼UO3 さん：
▼UO3 さん：
UO3さん。ありがとうございます。
ローカルに置いてあるブックのプロシージャです。（ブックを呼び出す部分）
Sub workbook_open()
Application.WindowState = xlMaximized
Dim url As String
url = Worksheets("セット").Range("ネット上フォルダー") & "/hontai.xls"
Workbooks.Open url
End Sub
ネット上のブック内、終了処理をするプロシージャです。
（コメントアウトしてある部分は、オブジェクトの解放が必要がと思ってもがいた名残です）
Sub 終了処理()
'氏名選択フォーム・問題集選択フォームの段階で終了する場合にも♪
If MsgBox("終了しますか？", vbOKCancel) = vbCancel Then
Exit Sub
End If
'終了を選択した場合
Application.StatusBar = "終了処理中"
Dim ワークブック As Workbook
For Each ワークブック In Workbooks
If ワークブック.Name <> ThisWorkbook.Name Then
ワークブック.Saved = True
ワークブック.Close
End If
Next ワークブック
'オブジェクトを解放する
' Set 本体ブック = Nothing
' Set 作業シート = Nothing
' Set 設定シート = Nothing
' Set 問題集一覧シート = Nothing
'
' Set 個々情報シート = Nothing
' Set 個々履歴シート = Nothing
' Set 成績シート = Nothing
Application.WindowState = xlMaximized
Application.Quit
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
