اتلقى خطأ run-time rrror 1004 عند تشغيل ماكرو excel

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله وبركاته

الكود التالى من داخل ماكرو تم تسجيله بالاكسل (تسجيلا آليا) ويعمل بشكل جيد عند استدعائه من داخل الاكسل

المشكلة تحدث عند استدعاء الماكرو من داخل الأكسس تظهر رسالة الخطأ التالية:

Function runExcelMacro(wkbookPath) 
    Dim XL As Object
    Set XL = CreateObject("Excel.Application")
    
    With XL
        .Visible = false
        .displayalerts = False
        .Workbooks.Open wkbookPath

    
    .Range("A16:AY62000").Select
    .Range("AS16").Activate

    .Selection.Copy

    .Sheets.Add After:=.ActiveSheet
    .Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False      '<---------------المشكلة تحدث هنا 
    
	.Range("A:A,C:H,J:W,Y:AE,AG:AR").Select
    .Range("AG1").Activate
    
    .Application.CutCopyMode = False
    .Selection.Delete Shift:=xlToLeft
    
    .Range("A1").Select
    .ActiveCell.FormulaR1C1 = "bill_value"
    .Range("B1").Select
    .ActiveCell.FormulaR1C1 = "edafat"
    .Range("C1").Select
    .ActiveCell.FormulaR1C1 = "account_no"
    .Range("D1").Select
    .ActiveCell.FormulaR1C1 = "Customer_name"
    .Range("E1").Select
    .ActiveCell.FormulaR1C1 = "billNo"
    .Range("C1").Select
    
    .Cells.Find(What:="ÇáãÑÇÌÚ", After:=ActiveCell, LookIn:=xlFormulas, _
     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
     MatchCase:=False, SearchFormat:=False).Activate
    .ActiveCell.Select
    .Selection.ClearContents
    
    .Sheets("Sheet2").Select
    .Sheets("Sheet2").Move Before:=.Sheets(1)

        .ActiveWorkbook.Close (True)
        .Quit
    End With
    Set XL = Nothing
End Function

أرجو المساعدة فى معرفة سبب الخطأ قد جربت عددا من المحاولات ولكن لم تفلح 

وجزاكم الله خيرا.

 

[أبو عبدالله الحلوانى]

للرفع

[أبو عبدالله الحلوانى]

Up

[jjafferr]

وعليكم السلام اخوي ابو عبدالله 🙂

 

جرب

بدلا عن
.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

جرب
.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

بعض الاحيان مكان قطع السطر مهم!!

 

جعفر

[أبو عبدالله الحلوانى]

في ٣‏/٢‏/٢٠١٩ at 19:56, jjafferr said:

بعض الاحيان مكان قطع السطر مهم!!

جزاك الله خيرا أستاذنا جعفر 

وأعتذر عن التأخر بالاجابة 

لم تكن المشكلة بقطع السطر كما تفضلتم - ولكن يبدوا أن المشكلة بكود اللصق نفسه

وعل كل قد وجدت الحل فى أحد المواقع الأجنبية بهذا الكود 

    .Range("A16:AY62000").Select
    .Range("AS16").Activate

    .Sheets.Add After:=.ActiveSheet

	.Sheets(2).Range("A1:AY62000").Value = .Sheets(1).Range("A16:AY62000").Value

وجزاكم الله خيرا