استفاده از Excel در وی بی 6

[فاطمه وطن دوست]

جناب Darg ازلطفتون تشکر میکنم ولی با این کدها جواب نداد.لطفا نگاهی به پروژه زیر بندازید در سلول (9و7) تغییررنگ فقط در لبه چپ صورت میگیرد.باز هم تشکر میکنم از پاسخ سریع و سودمندتون

کد:

mworksheet.Cells(7, 9).Borders(xlEdgeRight).LineStyle = xlContinuous

[tanhatarin]

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

[hamed_Arfaee]

با سلام .

کد:

Dim myExcel As New Excel.Application
Dim myExcelbook As New Excel.Workbook
Dim myExcelsheet As New Excel.Worksheet
Private Sub Command1_Click()
    Set myExcelbook = myExcel.Workbooks.Open(App.Path & "\Book1.xlsx")
    Set myExcelsheet = myExcelbook.Sheets(1)
'00000000000
    myExcel.ActiveWorkbook.Save
    myExcel.ActiveWorkbook.Close False, App.Path & "\Book1.xlsx"
    myExcel.Quit
    Set myExcelbook = Nothing
    Set myExcelsheet = Nothing
End Sub