نمایش نتایج: از شماره 1 تا 1 , از مجموع 1

موضوع: درخواست کمک فوری

  1. #1


    آخرین بازدید
    2018/02/25
    تاریخ عضویت
    April 2013
    نوشته ها
    7
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    درخواست کمک فوری

    من چند روز پیش توی این سایت یا جای دیگه یه دستور در مورد خواندن و نوشتن یک فایل اکسل پیدا کردم دستورات رو زدم اجرا شد و ok بود ام مجبور شدم ویندوز عوض کنم اطلاعات پرید مغز من هم که کلا در پرشه خواهش میکنم کمکم کنید:

    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)
    If ows.Cells(1, 1) <> "" Then
    ows.Cells(5, 5) = miladitoshamsi(Cells(1, 1))
    [/align]

    End If
    ows.save

    End Sub

    یک فایل رو میخونه با نام book10 اگه سل اول خالی نبود (محتوی تاریخ میلادی هست)تبدیل به شمسی میکنه.اما نمیدونم کجا اشتباه مینویسم که فایل بعد از ذخیره شدن به صورت read onlyباز میشه و فقط یکبار میشه توش ذخیره کرد بعد ایراد میگیره
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  


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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

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

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