runtime error 1004 hatası ve çözümü runtime error 1004 hatası, Microsoft Excel kullanıcılarını etkilediği bilinen Microsoft Visual Basic ile ilgili bir hata kodudur. Microsoft’un bilgisayarlar için popüler çalışma sayfası uygulamasının hiçbir sürümü runtime error 1004 hatası (Çalışma zamanı hatası 1004) olan tehditten güvenli olmamasına rağmen, hatanın en çok Excel 2003 ve Excel 2007’de olduğu bilinmektedir. Çalışma zamanı hatası 1004’ün iki farklı varyasyonu. Bütünüyle, runtime error 1004 hatası iki varyasyonu şu şekildedir:
Hata kodu aynı kalsa da gördüğünüz hata mesajı da birkaç durumda biraz değişebilir. Ancak, sorunun hangi sürümüyle karşılaşırsanız karşılaşın, neredeyse her zaman Excel’de çalışma sayfalarını kopyalamak ve ardından kopyaları orijinal çalışma sayfasıyla aynı çalışma kitabına yerleştirmek üzere tasarlanmış bir makro çalıştırılırken oluşur.
Orada en kötü teknik sorunların aksine, Microsoft Excel içinde runtime error 1004 hatasının nedeni bilinmektedir. runtime error 1004 hatası, çalıştırdığınız makro özgün çalışma sayfasını, makroyu çalıştırmadan önce kaydetmediğiniz ve kapatmadığınız tanımlanmış bir ada sahip bir çalışma kitabına kopyalandığında oluşur. Böyle bir makro örneği aşağıdaki kodda görülebilir.
Sub CopySheetTest()
Dim iTemp As Integer
Dim oBook As Workbook
Dim iCounter As Integer
' Create a new blank workbook:
iTemp = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set oBook = Application.Workbooks.Add
Application.SheetsInNewWorkbook = iTemp
' Add a defined name to the workbook
' that RefersTo a range:
oBook.Names.Add Name:="tempRange", _
RefersTo:="=Sheet1!$A$1"
' Save the workbook:
oBook.SaveAs "c:\test2.xls"
' Copy the sheet in a loop. Eventually,
' you get error 1004: Copy Method of
' Worksheet class failed.
For iCounter = 1 To 275
oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)
Next
End SubMicrosoft Excel bağlamında runtime error 1004 hatası nedeni olduğu gibi çözüm de biliniyor. Bu soruna yönelik bir çözüme ek olarak, bundan etkilenen kullanıcılar için de mevcut olan, çözümün çalışmadığı veya uygun bir çözüm olarak çözüm bulamadığı durumlarda kullanılabilecek bir çözümdür.
Bu özel sorunun çözümü, çalıştırdığınız makronun kodunu, çalışma sayfalarının kopyalarını oluştururken hedef çalışma kitabını düzenli olarak kaydetmesi ve kapatması için düzenlemektir. Bunu yapan bir makronun kodu, aşağıdakilerin çizgileri boyunca gibi görünür.
Sub CopySheetTest()
Dim iTemp As Integer
Dim oBook As Workbook
Dim iCounter As Integer
' Create a new blank workbook:
iTemp = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set oBook = Application.Workbooks.Add
Application.SheetsInNewWorkbook = iTemp
' Add a defined name to the workbook
' that RefersTo a range:
oBook.Names.Add Name:="tempRange", _
RefersTo:="=Sheet1!$A$1"
' Save the workbook:
oBook.SaveAs "c:\test2.xls"
' Copy the sheet in a loop. Eventually,
' you get error 1004: Copy Method of
' Worksheet class failed.
For iCounter = 1 To 275
oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)
'Uncomment this code for the workaround:
'Save, close, and reopen after every 100 iterations:
If iCounter Mod 100 = 0 Then
oBook.Close SaveChanges:=True
Set oBook = Nothing
Set oBook = Application.Workbooks.Open("c:\test2.xls")
End If
Next
End Sub
Not: Kopyaların kaydedildiği çalışma kitabını kaydetmeniz ve kapatmanız gerekmeden önce bir çalışma sayfasını kopyalayabileceğiniz tam sayı, kopyaladığınız çalışma sayfasının boyutuna bağlı olduğu için bir durumdan diğerine değişir.
Daha önce belirtildiği gibi, bu özel soruna yönelik bir geçici çözüm de mevcuttur. Bu soruna geçici bir çözüm, varılan bir çalışma sayfasının bir kopyasını oluşturmak yerine bir şablondan yeni bir çalışma sayfası eklemek için basit bir konudur. Bu soruna geçici bir çözüm bulmak istiyorsanız, yapmanız gerekenler aşağıda anlatılmıştır.
Sheets.Add Type:=path\filename
Not: Yukarıda açıklanan kod satırında, az önce oluşturduğunuz sayfa şablonunun konumu için yol \ dosya adının tam yolla (tam dosya adı dahil) değiştirilmesi gerekir.
