پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: چگونگی خواندن و نوشتن در اکسل

  1. #1


    آخرین بازدید
    05 _ 11 _ 2014
    تاریخ عضویت
    April_2013
    نوشته ها
    7
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    چگونگی خواندن و نوشتن در اکسل

    چطور میتونیم در ماکرو اکسل یک فایل اکسل رو که در جای دیگری است باز کنیم بعد درآن تغییرات بدیم بعد ذخیره کنیم من دستورات زیر را می زنم درست کار نمیکنه
    Private Sub CommandButton1_Click()
    Dim oxl As Excel.Application
    Dim owb As Excel.Workbook
    Dim ows As Excel.Worksheet
    Set oxl = New Excel.Application
    Set owb = oxl.Workbooks.Open("i:\book10.xls")
    Set ows = owb.Worksheets(1)
    دستورات
    ows.save
    oxl.quit
    End Sub
    تغییرات در شیت فعال میزنه بجای اینکه درbook10 ذخیره بشه چرا؟
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    16 _ 07 _ 2015
    تاریخ عضویت
    April_2013
    محل سکونت
    بابل
    نوشته ها
    22
    امتیاز
    22
    سپاس
    2
    سپاس شده
    43 در 10 پست

    tosco3652 به Yahoo ارسال پیام فرستادن پیام با Skype به tosco3652

    RE: چگونگی خواندن و نوشتن در اکسل

    چطور میتونیم در ماکرو اکسل یک فایل اکسل رو که در جای دیگری است باز کنیم بعد درآن تغییرات بدیم بعد ذخیره کنیم
    سلام دوست عزیز
    کدی را که شما نوشتی رو تست کردم دیدم مشکل داره.
    یک کدی را آماده کردم که میتونی از آن استفاده کنی.
    ضمنا یک مثال هم برای شما آماده کردم که می توانی دانلودش کنی.
    امیدوام که به کارشما بیاید.

    کد:
    Dim Text As String
    Workbooks.Open (ActiveWorkbook.Path & "\Firozjaii.xlsx")
    
    Text = InputBox("input name:", "FIROZJAII", "firozjaii 09111161996")
    ActiveWorkbook.Sheets("Sheet1").Range("a5") = Text
    ActiveWorkbook.Save
    ActiveWorkbook.Close




  4. #3


    آخرین بازدید
    16 _ 07 _ 2015
    تاریخ عضویت
    April_2013
    محل سکونت
    بابل
    نوشته ها
    22
    امتیاز
    22
    سپاس
    2
    سپاس شده
    43 در 10 پست

    tosco3652 به Yahoo ارسال پیام فرستادن پیام با Skype به tosco3652

    RE: چگونگی خواندن و نوشتن در اکسل

    لازم بذکر می باشد، برای اینکه بخواهیم هر فایل اکسل را در هر جای سیستم فراخوان کنیم و اطلاعات آن را تغییر دهیم کافیست بجای کد زیر در پاسخ قبلی :
    کد:
    Workbooks.Open (ActiveWorkbook.Path & "\Firozjaii.xlsx")
    از کد زیر استفاده نمایید:
    کد:
    Workbooks.Open Application.GetOpenFilename
    موفق باشید.

  5. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

چگونگی خواندن اکسل

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد