7-كود اضافة الملفات الى الاكسل اى كان صيغة الملف بضغط زر مع تثبيت الكود كإيقونة فى كل شيتات الاكسل.

اضافة ملفات الورد الى الاكسل
اضافة ملفات الاكسل الى الاكسل
اضافة ملفات الاتوكاد الى الاكسل
اضافة ملفات pdf الى الاكسل
اضافة جميع الملفات الى الاكسل
اكسل
اتعلم اكسل
دورة اكسل
دورة فيجوال بيسك فى الاكسل
add files to excel
للحصول على الأضافة مدى الحياة تواصل معانا على :-
Mobile : [phone]
Email : [e-mail]
/ @quantitiessurveying
رابط الاشتراك فى القناة
/ 1344832723089730
جروب الفيس بوك الخاص بالقناة

[@QuantitiesSurveying]

*الكود المستخدم فى الفيديو Sub AddMultipleFilesToSheet() Dim ws As Worksheet Dim selectedCell As Range Dim fileDialog As fileDialog Dim filePath As Variant Dim fileName As String Dim i As Integer Set ws = ActiveSheet Set selectedCell = Application.Selection Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = True .Title = "Select Files" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = -1 Then i = selectedCell.Row For Each filePath In .SelectedItems fileName = Dir(filePath) With ws .Hyperlinks.Add Anchor:=.Cells(i, selectedCell.Column), Address:=filePath, TextToDisplay:=fileName End With i = i + 1 Next filePath End If End With End Sub

[@ahmedeloraby637]

الله ينور يا هندسة بالتوفيق

[@asmaaorabi3041]

بالتوفيق دايما يا بشمهندس

[@mohamedeid1993]

الاسطورة اللي مشرفنا ❤❤❤ حبيبي م أسامة