کد کپی از یک فایل به فایل دیگر

[saeid_f]

سلام
دوست عزیز در فایلی که براتون فرستادم دوتا کد بود که یکی برای باز کردن فایل مبدا بود و یکیم برای بستن فایل مبدا شما باید تو کد مور نظرتون از هر دو کد را استفاده کنید که ابتدای شروع دستور فایل باز بشه بعد از اتمام دستور فایل بسته بشه که هیچ مزاحمتی برای شما هم نخواهد داشت

مثل كد زير

Sub Copy_Method()
    'باز كردن فايل    
Call OpenWorkbook
  Workbooks("New-Data.xlsx").Worksheets("Export").Range("A2:D9").Copy _    Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")
        'بستن فايل    
Call CloseWorkbook
End Sub 

ممنون بزرگوار ابتدا متوجه نشدم که بعد از باز شدن و کپی دوباره بسته میشه.
همین کد کار منو راه میندازه
ممنونم

[saeid_f]

سلام
دوست عزیز در فایلی که براتون فرستادم دوتا کد بود که یکی برای باز کردن فایل مبدا بود و یکیم برای بستن فایل مبدا شما باید تو کد مور نظرتون از هر دو کد را استفاده کنید که ابتدای شروع دستور فایل باز بشه بعد از اتمام دستور فایل بسته بشه که هیچ مزاحمتی برای شما هم نخواهد داشت

بله همینطوره
ولی من کدهای دیگری هم دارم و براشون در صفحه دکمه گداشتم اینطوری خیلی شلوغ میشه و استفاده کننده گیج میشه.
باید راهی باشه که بدون باز کردن فایل بشه اطلاعات رو از اون کپی کرد.

[میثم مقدم نیا]

ممنون دوست عزیز از وقتی که گذاشتید. دستتون درد نکنه
بله کار میکنه ولی من میخوام بدون اینکه فایل مبدا باز بشه بره و اون اطلاعات رو برداره.
ظاهرا با فعال کردن (active) فایل میشه این کار رو انجام داد.
مثل کد زیر
البته این کد فایل مقصد رو فعال میکنه و من میخوام ماکرو در فایل مقصد اجرا بشه و فایل مبدا فعال بشه.

()SubCopy_Example 
  Workbooks("source.xlsx").Worksheets("test").Range("A1").Copy
   Workbooks("Book 2.xlsx").Activate 
   ActiveWorkbook.Worksheets("Sheet 2").Select 
  ActiveSheet.Paste 
End Sub 

سلام
دوست عزیز در فایلی که براتون فرستادم دوتا کد بود که یکی برای باز کردن فایل مبدا بود و یکیم برای بستن فایل مبدا شما باید تو کد مور نظرتون از هر دو کد را استفاده کنید که ابتدای شروع دستور فایل باز بشه بعد از اتمام دستور فایل بسته بشه که هیچ مزاحمتی برای شما هم نخواهد داشت

مثل كد زير

Sub Copy_Method()
    'باز كردن فايل    
Call OpenWorkbook
  Workbooks("New-Data.xlsx").Worksheets("Export").Range("A2:D9").Copy _    Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")
        'بستن فايل    
Call CloseWorkbook
End Sub 

[saeid_f]

سلام
دوست عزیز فایل پیوست را ببنید به کارتون میاد
فقط آدرس فایل مقصد را در ماکروی فایل Reports تغییر دهید

Sub OpenWorkbook()

  Workbooks.Open "C:\Users\Meysam\Desktop\New folder\New-Data.xlsx" 
 
End Sub 

ممنون دوست عزیز از وقتی که گذاشتید. دستتون درد نکنه
بله کار میکنه ولی من میخوام بدون اینکه فایل مبدا باز بشه بره و اون اطلاعات رو برداره.
ظاهرا با فعال کردن (active) فایل میشه این کار رو انجام داد.
مثل کد زیر
البته این کد فایل مقصد رو فعال میکنه و من میخوام ماکرو در فایل مقصد اجرا بشه و فایل مبدا فعال بشه.

()SubCopy_Example 
  Workbooks("source.xlsx").Worksheets("test").Range("A1").Copy
   Workbooks("Book 2.xlsx").Activate 
   ActiveWorkbook.Worksheets("Sheet 2").Select 
  ActiveSheet.Paste 
End Sub 

[میثم مقدم نیا]

با سلام من دو فایل داخل یک پوشه دارم که میخوام اطلاعات ستون D از فایل به فرمت xls به فایل با فرمت xlsm در ستون B کپی بشه. ضمنا فایل مبدا یک شیت داره که نام شیت همان نام فایل هست. و فایل مقصد هم sheet1

سلام
دوست عزیز فایل پیوست را ببنید به کارتون میاد
فقط آدرس فایل مقصد را در ماکروی فایل Reports تغییر دهید

Sub OpenWorkbook()

  Workbooks.Open "C:\Users\Meysam\Desktop\New folder\New-Data.xlsx" 
 
End Sub 

[saeid_f]

با سلام من دو فایل داخل یک پوشه دارم که میخوام اطلاعات ستون D از فایل به فرمت xls به فایل با فرمت xlsm در ستون B کپی بشه. ضمنا فایل مبدا یک شیت داره که نام شیت همان نام فایل هست. و فایل مقصد هم sheet1