AccessTr.neT

Private Sub btn_EXCEL_Click()

On Error GoTo Err_btn_EXCEL_Click



'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,

'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.

'Forumda da anlattığım şekilde, boş bir Excel dosyasında makro kaydet'i seçip,

'yapmak istediğim işlemleri yaptım ve oluşan makroyu

'buraya kopyalayıp, üzerinde ufak tefek düzeltmeler yaptım.

'Yazılan kodlara biraz dikkat edersen, ne yaptığını anlıyorsun



    '---------------------------------------------------------------------------------------------------------

    'Excel açılıyor ve başlıklar ayarlanıyor

    '---------------------------------------------------------------------------------------------------------

    Set ExcelDosyasi = CreateObject("Excel.Application")

    

    With ExcelDosyasi

        .Application.Visible = True

        .UserControl = True

        .Workbooks.Open Filename:=CurrentProject.Path & "\data.xls"

        .Range("B4").Value = Me.adı

        .Range("B5").Value = Me.yaşı

    End With

    Set ExcelDosyasi = Nothing

       

'Excel hücreye değer atamayı bu şekilde kaydediyor

'        .Range("B4").Select

'        .ActiveCell.FormulaR1C1 = "DENEME"

'Hücreye değer atamayı sen bu şekilde yapabilirsin.

'       .Range("A1").FormulaR1C1 = "DENEME"

'Hücreye değer atamayı böyle yapabilirsin.

'       .Range("A1").Value = "DENEME"

'Hücreye değer atamayı böyle de yapabilirsin. (Satır ve Sütun numarası ile)

'        .Cells(1, 1) = "DENEME"

'Benim bilmediğim farklı yöntemlerde olabilir.



Exit_btn_EXCEL_Click:

    Exit Sub



Err_btn_EXCEL_Click:

    MsgBox Err.Description

    Resume Exit_btn_EXCEL_Click



End Sub