تصدير نتائج اللست بوكس الى ملف اكسل جديد

[طلعت محمد حسن]

السلام عليكم 

اذا ممكن اضافة كود بالفورم يصدر نتائج اللست بوكس الى ملف اكسل جديد

وشكرا

الكتب.rar

[طلعت محمد حسن]

للرفع

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub CommandButton3_Click()

If ListBox1.ListCount = 0 Then Exit Sub
    Dim NBook As Workbook
    Set NBook = Workbooks.Add
With NBook
    .Sheets(1).Range("A1:I1") = ورقة1.Range("A1:I1").Value
    .Sheets(1).Range("A2").Resize(ListBox1.ListCount, 9).Value = ListBox1.List
    .SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "dd")
    .Close
End With

End Sub

حيث يتم حفظ الملف في نفس مسار الملف الاصلي و يحمل اسم اليوم مثلا 09 او 08 و هكذا

تم تعديل يناير 9, 2014 بواسطه أبو حنين

[طلعت محمد حسن]

كود جميل ومفهوم كل الشكر والاحترام لك اخي ابو حنين.

[حمادة عمر]

الاستاذ الحبيب / ابو حنين

 

[أبو حنــــين]

أخي  : أبو سما

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

حفظكم الله ورعاكم