ارتباط Excel و Word

[Juliet]

درود دوستان

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

آیا تابعی هست که مقدار سلولی از اکسل رو به نرم افزار Word بفرسته؟

و در واقع خروجی من به جای فایل اکسل فایل ورد باشه؟

[khakzad]

سلام دوست عزیز
تابعی برای اینکار وجود نداره!
اما شما می تونید بعد از اینکه داده های موجود در اکسل رو در ورد کپی کردید، لینکشون کنید که با هر بار باز شدن فایل ورد آپدیت بشن و تغییرات اعمال شده در فایل اکسل ، در فایل ورد ظاهر بشن
این راه براتون مناسب هست؟

[mrexcel]

برای این کار در واقه شما باید دستور را در نرم افزار وورد بدهید چون مقصد انجاست .
ولی ارتباطی بین نرم افزار اکسل و وردد میباشد
اگر یک محدوده اکسل را کپی کنید در نرم افزار وورد paste کنید در انتهای ناحیه paste شده یک علامتی ظاهر میشود که باید گزینه
keep &link source formati ng
اطلاعات نرم افزار وورد با اکسل لینک خواهد بود

[Juliet]

سلام دوست عزیز
تابعی برای اینکار وجود نداره!
اما شما می تونید بعد از اینکه داده های موجود در اکسل رو در ورد کپی کردید، لینکشون کنید که با هر بار باز شدن فایل ورد آپدیت بشن و تغییرات اعمال شده در فایل اکسل ، در فایل ورد ظاهر بشن
این راه براتون مناسب هست؟
درود

از اون جایی که در این مورد خاص خروجی های من در واقع منبع تغذیه ای هستن برای یک کار تحقیقاتی که بعد از مراجعه و بررسی نیازی بهشون نیست و احتمالا پاک میشن، شاید در مورد فایلی که الان باهاش کار میکنم کاربرد زیادی نداشته باشه

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

در پناه حضرت حق پیروز باشید

[Juliet]

برای این کار در واقه شما باید دستور را در نرم افزار وورد بدهید چون مقصد انجاست .
ولی ارتباطی بین نرم افزار اکسل و وردد میباشد
اگر یک محدوده اکسل را کپی کنید در نرم افزار وورد paste کنید در انتهای ناحیه paste شده یک علامتی ظاهر میشود که باید گزینه
keep &link source formati ng
اطلاعات نرم افزار وورد با اکسل لینک خواهد بود

درود

و سپاس از پاسخ واضح شما بزرگوار

در مورد بردن کل کد در نرم افزار مقصد یعنی Word هم روش کار میکنم و باز در صورت نیاز مصدع زمان شما و سایر اساتید میشم

در پناه حضرت حق پیروز باشید

[mokaram]

اگه از اکسل به عنوان بانک اطلاعاتی استفاده می کنید و می خواهید که اطلاعات را تو ورد براتون نمایش داده بشه می تونید از ابزار Mailing تو ورد هم استفاده بکنید

[Juliet]

اگه از اکسل به عنوان بانک اطلاعاتی استفاده می کنید و می خواهید که اطلاعات را تو ورد براتون نمایش داده بشه می تونید از ابزار Mailing تو ورد هم استفاده بکنید

سپاس از راهنماییتون بزرگوار

پاینده باشید

[امين اسماعيلي]

با درود
ظاهرا دوست عزیزمون مشکلشون کامل حل نشده بود و بهم پیام دادن - من یه کد در زیر میزارم که همونجور که از اسمش پیداست برای یک کلید نوشته شده محتویات سل A1 رو به یه فایل ورد که در ادرس نوشته شده هست میبره کپی میکنه - نیازی به باز بودن فایل ورد نیست خودش باز میکنه - حالا این ساده نوشته شده دوست عزیز شما با توجه به کار خودت ببین چه استفاده ای میخوای و گسترشش بده اینم محض قولی که دادم



Private Sub CommandButton2_Click()
Application.EnableEvents = False
Dim docWord
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents.Open("C:\Users\amin\Desktop\VBA Excel to Word\Summary.docx")
Range("A1").Select
Selection.Copy
appWord.Activate
appWord.Selection.PasteSpecial
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

[Juliet]

با درود
ظاهرا دوست عزیزمون مشکلشون کامل حل نشده بود و بهم پیام دادن - من یه کد در زیر میزارم که همونجور که از اسمش پیداست برای یک کلید نوشته شده محتویات سل A1 رو به یه فایل ورد که در ادرس نوشته شده هست میبره کپی میکنه - نیازی به باز بودن فایل ورد نیست خودش باز میکنه - حالا این ساده نوشته شده دوست عزیز شما با توجه به کار خودت ببین چه استفاده ای میخوای و گسترشش بده اینم محض قولی که دادم



Private Sub CommandButton2_Click()
Application.EnableEvents = False
Dim docWord
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set docWord = appWord.Documents.Open("C:\Users\amin\Desktop\VBA Excel to Word\Summary.docx")
Range("A1").Select
Selection.Copy
appWord.Activate
appWord.Selection.PasteSpecial
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub



درود دوست عزیز
کدتون گویا بود، کلید های اصلی در این کد هست، با همین ها جلو میرم
سپاس