Çalışma Zamanı Hatası '1004': Bu sınıfın yöntemini, ThisWorkbook

Question

kullanarak gerçekleştiremedi. Bir komut dosyası çalıştırma işlemi sırasında, makroyu içeren Çalışma Kitabından el ile odağı manuel olarak kaldırırsam hata iletilir. Hiçbir şey üzerine tıklamazsam, sorunsuz çalışır. Komut dosyası hataları, yalnızca "Giriş" sayfasından seçim geri A1'a yerleştirmeye çalışırken hata veriyor. Kırılma noktası aşağıdaki satırda:

ThisWorkbook.Sheets("Input").Range("A1").Select 

ben hata ayıklama ve yeri geri senaryo sorunu olmadan tamamlar makro çalışma sayfası odaklanırsanız. Önceki satır: Ben kapsam dışında düşüyor ancak önceki kapsam gösterimler tarafından tanımlanmalıdır olarak oldukça neden anlamıyorum yelpazesini tahmin ediyorum bu yüzden hatasız

ThisWorkbook.Sheets("Input").Cells.Delete 

çalışır. Birisi neden çizginin kapsam dışı kaldığını açıklayabilir mi? ThisWorkbook, kodumun referans aldığı Çalışma Kitabını oldukça açık bir şekilde tanımlamamalı mı? Herhangi bir rehberlik büyük beğeni topluyor.

Answer 1

ThisWorkbook referansıyla hiçbir ilgisi yoktur. Etkin olmayan bir nesnede bir Aralık Seçemezsiniz. Çalışma Sayfaları ile

Private Sub OneOhOhFour() 

    'Executing with Book1.xlsm active and Book2.xlsx open. 
    Dim wb As Workbook 
    Set wb = Application.Workbooks("Book2.xlsx") 
    Debug.Print ThisWorkbook.Name 
    'Outputs 'Book1.xlsm' to Immediate window. 
    wb.Sheets("Sheet1").Range("A1").Select 'Error 1004 

End Sub 

aynı şeyi:

Private Sub OneOhOhFourVTwo() 
    'Starting on anywhere but Sheet2 gives an error. 
    Dim ws As Worksheet 
    Set ws = ThisWorkbook.Worksheets("Sheet2") 
    ws.Range("A1").Select 'Error 1004. 
End Sub 

basit çözümü içindeki seç önce nesneyi etkinleştirme şudur: Aynı hatayı sergileyen bu kodu düşünün

Private Sub NoOneOhOhFour() 

    Dim wb As Workbook 
    Set wb = Application.Workbooks("Book2.xlsx") 
    wb.Activate 
    wb.Sheets("Sheet1").Range("A1").Select 'No error. 

End Sub 

Daha da iyisi, referansları kullanmak ve Seçim ve Aktif * nesnelerini tamamen kullanmaktan kaçınmaya çalışmaktır.