Skip to main content

AccessTr.neT


Excele İstenilen Verilerin-İstenilen Formatta Aktarılması

Excele İstenilen Verilerin-İstenilen Formatta Aktarılması

Çözüldü #4
Excele gönderme kısmı aşağıdaki sub dır.

Private Sub Komut4_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.
Dim exceldosyasi As Object


    '---------------------------------------------------------------------------------------------------------
    '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 & "\MT2.xls"
        .Range("D7").Value = Me.MÜŞTERİ_ADI
        .Range("D8").Value = Me.MADDE_NUMARASI
        .Range("d9").Value = Me.MADDE_ADI
        .Range("d14").Value = Me.KALİTE
        .Range("d16").Value = Me.EN
        .Range("e16").Value = Me.BOY
        .Range("f16").Value = Me.KALINLIK
        .Range("d18").Value = Me.BRÜT_AĞIRLIK
        
        Dim Sql As String
        Dim sayac As Integer
        
        
        Sql = "select * from recetelISTESI where [Madde numarası] = '" & Me.MADDE_NUMARASI & "'"
 
 Debug.Print sql
 Dim rs As ADODB.Recordset
 Set rs = New ADODB.Recordset
 
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
sayac = 0
Do Until rs.EOF
    
       .Cells(28 + sayac, 4).Value = rs.Fields("madde grubu4")
     
     .Cells(28 + sayac, 7).Value = rs.Fields("miktar")
    
rs.MoveNext
sayac = sayac + 1
Loop


Set rs = Nothing
Set conn = Nothing
 
 
        
    

    End With
    Set exceldosyasi = Nothing
       

 End Sub
 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Excele İstenilen Verilerin-İstenilen Formatta Aktarılması - Yazar: Kur@l - 05/10/2011, 20:25