a.kawkab قام بنشر أغسطس 17, 2019 مشاركة قام بنشر أغسطس 17, 2019 السلام عليكم يوجد لدى فولدر على سطح المكتب وبه مجموعة من ملفات الاكسل مطلوب كود لفتح هذه الملفات من داخل ملف العمل(ملف الاكسل المفتوح) النشط رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أغسطس 17, 2019 أفضل إجابة مشاركة قام بنشر أغسطس 17, 2019 وعليكم السلام-تفضل هذا الكود Option Explicit Sub opening_multiple_file() Dim i As Integer With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "Excel Files", "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With End Sub 6 2 رابط هذا التعليق شارك More sharing options...
a.kawkab قام بنشر أغسطس 18, 2019 الكاتب مشاركة قام بنشر أغسطس 18, 2019 شكرا استاذ على حياك الله رابط هذا التعليق شارك More sharing options...
علي بطيخ سالم قام بنشر سبتمبر 16, 2019 مشاركة قام بنشر سبتمبر 16, 2019 جميل يا استاذ علي بارك الله لك وجزاك الله خيراً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.