對象變量或與塊變量未設置試圖從命令按鈕

Question

運行宏

我只需打開位於進行中，我要更新（因爲它們依賴於間接的在我的工作簿）一些不同的驅動器的一些工作簿的摘要工作簿文件，並在擴展更新所有值（希望）。我已經試過是實現通過開發選項卡和ActiveX控件命令按鈕。然後我用鼠標右鍵單擊該按鈕，「查看代碼」在那裏我簡直是「私人小組CommandButton21_Click」和「結束子」這是我收集意味着「按鈕的名稱」是CommandButton21。

我的代碼如下所示：

Private Sub CommandButton21_Click() 
    Dim WbookCheck As Workbook 
    Dim sPath As String, sFile As String 

On Error Resume Next 
    sPath = "C:\Pathtofile" 
    sFile = sPath & "filename.xlsx" 
    Set WbookCheck = Workbooks(sFile) 
On Error GoTo 0 
    If CommandButton21.Value = True Then 
     If WbookCheck Is Nothing Then 'Closed 
      Workbooks.Open Filename:=sFile, ReadOnly:=True 
     ElseIf Application.ActiveWorkbook.Name = WbookCheck.Name Then 
      WbookCheck.Close SaveChanges:=True 
     Else 
      WbookCheck.Activate 
     End If 
    Else 
     WbookCheck.Close True 
    End If 
End Sub 

是否有人有這方面的線索？

Answer 1

我不知道爲什麼你想測試一個命令按鈕的價值，但它會是假，因此試圖關閉這是從來沒有分配將失敗的工作簿變量。你應該跳過Value測試並使用：

Private Sub CommandButton21_Click() 
    Dim WbookCheck As Workbook 
    Dim sPath As String, sFile As String 

On Error Resume Next 
    sPath = "C:\Pathtofile\" 
    sFile = sPath & "filename.xlsx" 
    Set WbookCheck = Workbooks(sFile) 
On Error GoTo 0 

    If WbookCheck Is Nothing Then 'Closed 
     Workbooks.Open Filename:=sFile, ReadOnly:=True 
    ElseIf Application.ActiveWorkbook.Name = WbookCheck.Name Then 
     WbookCheck.Close SaveChanges:=True 
    Else 
     WbookCheck.Activate 
    End If 
End Sub