مداد_1423 قام بنشر أغسطس 30, 2020 مشاركة قام بنشر أغسطس 30, 2020 تحية طيبة يا سادة ، وأدعوا الله بالتوفيق أن يديم عليكم لباس الصحة وبعد:- Sub LoopThroughFiles() Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim i As Integer Range("A:A").ClearContents Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("D:\TEST_2\FILES") For Each oFile In oFolder.Files Cells(i + 1, 1) = oFile.Name i = i + 1 Next oFile End Sub أريد أن يكون المجلد الداخلي فقط ثابت FILES أما المسار الذي قبله متغير كل أسبوع تقريبا فا ليت أحد يتكرم بتعديل الكود ليكون المسار في الكود نفس مسار الملف مع المجلد الداخلي FILES بعبارة أخرى : يكون المسار متغير ، والملف الذي فيه الكود مع مجلد FILES ثابت مثال: Set oFolder = oFSO.GetFolder("\FILES") شكرا لك من مر من هنا ,, وأخص بالشكر والدعاء من ساعدني تحياتي TEST_2.rar رابط هذا التعليق شارك More sharing options...
مداد_1423 قام بنشر أغسطس 31, 2020 الكاتب مشاركة قام بنشر أغسطس 31, 2020 للرفع رابط هذا التعليق شارك 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.