تغییر محتوی مجموعه از فایلهای اکسل

**fokker** · 2017/08/17, 16:27

دوستان راهی هست

**fokker** · 2017/08/20, 15:18

دوستان کمک نمایید لطفا

**Amir Ghasemiyan** · 2017/08/20, 21:54

سلام دوست عزیز

بله با کدنویسی امکان پذیره
اگر نمونه بذارین شاید بشه بهتر کمک کرد اما این کد رو تست کنید ببینین جواب مورد نظرتون رو میده یا نه
دقت کنید که این کدها رو داخل یک فایل جدید قرار بدین و فایل جدید رو داخل همون پوشه که فایلهاتون قرار داره بذارید. (حتما قبل از اجرای کد روی چند فایل تست کنید)

کد:

Sub EI_OpenEditClose() Dim Source As String Dim StrFile As String Application.ScreenUpdating = False Source = ActiveWorkbook.Path & "\" StrFile = Dir(Source) Do While Len(StrFile) > 0 Workbooks.Open Filename:=Source & StrFile Range("A3").ClearContents Range("I1") = "tarikh" Range("I2") = "15/05/1396" ActiveWorkbook.Save ActiveWorkbook.Close StrFile = Dir() Loop Application.ScreenUpdating = True End Sub

**fokker** · 2017/08/21, 15:18

سلام مجدد
فرمایشتون رو انجام دادم اما پیغامی رو می ده که باید ذخیره کرد. این کار رو انجام هم دادم اما عملیات انجام نمی شه ( کد نویسی ها رو در یک فایل Execl macro enable workbook کپی کردم )

**Amir Ghasemiyan** · 2017/08/21, 20:09

نوشته اصلی توسط fokker

سلام مجدد
فرمایشتون رو انجام دادم اما پیغامی رو می ده که باید ذخیره کرد. این کار رو انجام هم دادم اما عملیات انجام نمی شه ( کد نویسی ها رو در یک فایل Execl macro enable workbook کپی کردم )
[ATTACH]15414[/ATTACH]

سلام
اول اینکه آیا بعد از کپی کردن کدها فایل رو ذخیره کردید یا بدون ذخیره فایل اجراش کردین؟
دوم اینکه آیا پوشه مربوطه فارسی نوشته شده؟ یا حتی پوشه های قبل ترش