أحتاج إلى ترحيل البيانات من الليست بوكس إلى شيت إكسيل

[حازم محمد سرور]

السلام عليكم و رحمة الله و بركاته إخواني الأعزاء

إحتاج إلى ترحيل البيانات من ليست بوكس في اليوزر فورم إلى شيت إكسيل و ملف   PDF مع إنشاء ملف جديد في فولدر العمل الخاص بي

بص هو الملف كبير شوية بس عشان تفتح البرنامج 

username : Abdallah

Pass. : 654321

بعدها ادخل على الاعدادات بعدها اعدادات المطور الباسورد هو 220588

الفورم اللي عايز ارحل منه البيانات 

BranchTransferRep

او BranchTransferPrRep

او DepTransferPrRep

او DepTransferRep

اي واحد منهم طبعا

 

و شكرا مقدماً

و لكم جزيل الشكر

 

تحويلات بين الفروع - مايو.xlsm

[Saleh Ahmed Rabie]

**كود VBA لترحيل البيانات من ليست بوكس في اليوزر فورم إلى شيت إكسيل:**`````

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    For i = 0 To Me.ListBox1.ListCount - 1
        ws.Cells(i + 1, 1).Value = Me.ListBox1.List(i, 0)
        ws.Cells(i + 1, 2).Value = Me.ListBox1.List(i, 1)
    Next i
End Sub

**كود VBA لترحيل البيانات من ليست بوكس في اليوزر فورم إلى ملف PDF:**```

Private Sub CommandButton2_Click()
    Dim pdf As Object
    Dim i As Long

    Set pdf = CreateObject("AcroExch.PDDoc")
    pdf.Open "C:\Path\To\Your.pdf"

    For i = 0 To Me.ListBox1.ListCount - 1
        pdf.Page(1).CreateTextField(i + 1, 100, 100, 100, 100)
        pdf.Page(1).Fields(i + 1).Value = Me.ListBox1.List(i, 0)
    Next i

    pdf.Save
    pdf.Close
End Sub

**كود VBA لإنشاء ملف جديد في مجلد العمل:**

Private Sub CommandButton3_Click()
    Dim wb As Workbook

    Set wb = Workbooks.Add
    wb.SaveAs "C:\Path\To\NewWorkbook.xlsx"
End Sub

**ملاحظة:**

* تأكد من استبدال المسارات في أكواد VBA بالمسارات الصحيحة للملفات الخاصة بك.
* يمكنك أيضًا تخصيص أكواد VBA لتناسب احتياجاتك الخاصة.