|
こんばんは
マクロを設定するブックとは違うブック「test」の「Sheet1」を処理するのですか?
よく分かりませんので、取り敢えずこんな感じで、
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim test_bk As Workbook 'Worksheetですか?
Dim test_ws As Worksheet 'Worksheet
On Error Resume Next
' 変数「test_bk_Name」はどこで用意されているのですか?
Set test_bk = Application.Workbooks(test_bk_Name).Worksheets("Sheet1")
If test_bk Is Nothing Then
MsgBox "test" & _
"をExcelで開いてから実行して下さい。"
Cancel = True
On Error GoTo 0
Exit Sub
End If
Set test_ws = test_bk.Worksheets("Sheet1")
If test_ws Is Nothing Then
MsgBox "testにSheet1が有りません。"
Cancel = True
On Error GoTo 0
Exit Sub
End If
test_ws.Range("F6").ClearContents
On Error GoTo 0
End Sub
|
|