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

كود فيجول بيسك لعمل دمج عدة ملفات اكسل فى شيت اكسل واحد دفعة واحدة بضغط زر
دمج ملفات الاكسل
كيفية دمج ملفات الاكسل
دمج عدة ملفات اكسل فى شيت اكسل واحد
ماكروا دمج ملفات الاكسل فى شيت اكسل واحد
تجميع ملفات الاكسل فى ملف اكسل واحد
دمج الاكسل
Making an Excel Ribbon App | VBA
merge excel sheets
للتواصل :-
Mobile : [phone]
Email : [e-mail]
• دورة VBA EXCEL لمهندسي...
دورة الفيجول بيسك لمهندسين المكتب الفنى او التنفيذ
• 1- كود التفقيط بضغط زر...
درس كود التفقيط تحويل الارقام الى نص باللغة العربية حسب عملة كل دولة
• شيت اكسل لحصر ورسم جمي...
برنامج حصر الحديد المتكامل مع رسم اشكال الحديد اتوماتيكيا وكتابة الاطوال على شكل الحديد
/ @quantitiessurveying
رابط الاشتراك فى القناة
/ 1344832723089730
جروب الفيس بوك الخاص بالقناة
الكود المستخدم فى الفيديو ( كود دمج عدة ملفات اكسل فى شيت اكسل واحد بضغط زر )
Sub MergeExcelSheetsIntoActiveWorkbook()
Dim FileDialog As FileDialog
Dim SelectedFiles As FileDialogSelectedItems
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
' Initialize the file dialog to select multiple files
Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
FileDialog.AllowMultiSelect = True
FileDialog.Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls"
' Show the file dialog
If FileDialog.Show = -1 Then
Set SelectedFiles = FileDialog.SelectedItems
Else
MsgBox "No files selected."
Exit Sub
End If
' Set the active workbook as the destination workbook
Set wbDest = ActiveWorkbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' Loop through each selected file
For Each FilePath In SelectedFiles
Set wbSource = Workbooks.Open(FilePath)
' Loop through each sheet in the source workbook
For Each wsSource In wbSource.Sheets
' Copy the sheet to the destination workbook
wsSource.copy After:=wbDest.Sheets(wbDest.Sheets.Count)
Next wsSource
' Close the source workbook without saving
wbSource.Close False
Next FilePath
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'MsgBox "All sheets have been merged into the active workbook."
End Sub

[@QuantitiesSurveying]

Sub MergeExcelSheetsIntoActiveWorkbook() Dim FileDialog As FileDialog Dim SelectedFiles As FileDialogSelectedItems Dim wbSource As Workbook Dim wsSource As Worksheet Dim wbDest As Workbook ' Initialize the file dialog to select multiple files Set FileDialog = Application.FileDialog(msoFileDialogFilePicker) FileDialog.AllowMultiSelect = True FileDialog.Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls" ' Show the file dialog If FileDialog.Show = -1 Then Set SelectedFiles = FileDialog.SelectedItems Else MsgBox "No files selected." Exit Sub End If ' Set the active workbook as the destination workbook Set wbDest = ActiveWorkbook Application.ScreenUpdating = False Application.DisplayAlerts = False ' Loop through each selected file For Each FilePath In SelectedFiles Set wbSource = Workbooks.Open(FilePath) ' Loop through each sheet in the source workbook For Each wsSource In wbSource.Sheets ' Copy the sheet to the destination workbook wsSource.copy After:=wbDest.Sheets(wbDest.Sheets.Count) Next wsSource ' Close the source workbook without saving wbSource.Close False Next FilePath Application.DisplayAlerts = True Application.ScreenUpdating = True 'MsgBox "All sheets have been merged into the active workbook." End Sub

[@waelmahmoud2810]

جزاكم الله خيرا م أسامه مجهود مميز جدا

[@QuantitiesSurveying]

وجزاكم بالمثل يا مهندس وائل بالتوفيق ان شاء الله