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

موضوع: ترجمه و تحلیل این کد

  1. #1


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

    ترجمه و تحلیل این کد

    با سلام خدمت اساتید گرامی :

    در کد زیر یادداشتی هست مبنی بر این " فراموش نکنید فایل اکسل ساخته شده را نمی توانید باز کنید تا زمانیکه کامپیوتر را ریستارت نکردید" سوال من اینست که چرا ؟ چرا نمیتوان فایل را باز کرد



    کد PHP:
    'do declare these variables you need to add a reference
    '
    to the microsoft excel 'xx' object library

    'you need two text boxes and two command buttons
    '
    on the forman excel file in c:\book1.xls 

    Dim xl 
    As New Excel.Application
    Dim xlsheet 
    As Excel.Worksheet
    Dim xlwbook 
    As Excel.Workbook 

    Private Sub Command1_Click()
    'the benifit of placing numbers in (row, col) is that you
    '
    can loop through different directions if requiredI could
    'have used column names like "A1" 'etc

        
    Text1.Text xlsheet.Cells(21' row 2 col 1
        Text2.Text = xlsheet.Cells(2, 2) ' 
    row 2 col 2 

    'don't forget to do this or you'll not be able to open
    '
    book1.xls againuntill you restart you pc.
        
    xl.ActiveWorkbook.Close False"c:\book1.xls"
        
    xl.Quit
    End Sub 

    Private Sub Command2_Click()
        
    xlsheet.Cells(21) = Text1.Text
        xlsheet
    .Cells(22) = Text2.Text
        xlwbook
    .Save 

    'don't forget to do this or you'll not be able to open
    '
    book1.xls againuntill you restart you pc.
        
    xl.ActiveWorkbook.Close False"c:\book1.xls"
        
    xl.Quit
    End Sub 

    Private Sub Form_Load()
        
    Set xlwbook xl.Workbooks.Open("c:\book1.xls")
        
    Set xlsheet xlwbook.Sheets.Item(1)
    End Sub 

    Private Sub Form_Unload(Cancel As Integer)
        
    Set xlwbook Nothing
        Set xl 
    Nothing
    End Sub 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  


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

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

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

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

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

کلمات کلیدی این موضوع

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

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

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