Skip to main content

AccessTr.neT


excele veri atma

excele veri atma

Çözüldü #1
merhaba arkadaşlar yine bennnnn
biliyorum bıktınız benden ama beni siz bulaştırdınız bu Access e bırakmıcam yakanızı :d

bir sorum daha var

oluşturduğum sorguyu excele atmaya çalışıyorum

Private Sub excelle_Click()
Dim Klasor As String

Klasor = CurrentProject.Path & "\ " & Format(Me.tarih1, "ww") & " hafta Bakteriyoljik Analiz Sonuçları.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "klasor 'e aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "srg_numune", Klasor, True
'.Cells.AutoFit ' burada yeni Excel belgesinde hücrelerin otomatik bıyutlanmasını istiyorum
'Cells.AutoOutline ' burada dolu olan hücrelerin kenarlık çizgisi olmasını istiyorum

MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"
Exit_excelle:
Exit Sub
Err_excelle:
MsgBox Error$
Resume Exit_excelle
End If
End Sub
herşey güzel ama oluşturduğum excelsayfasının formatının istediğim gibi olmasını istiyorum acaba neyi eksik yapıyorum.
oluşan yeni Excel belgesinin adı hangi koddur Excel yazdım olmadı current project olmadı



yardımlarınız için teşekkürler
"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Son Düzenleme: 17/01/2013, 23:48, Düzenleyen: metehan16.
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
excele veri atma - Yazar: metehan16 - 17/01/2013, 12:58
Cvp: excele veri atma - Yazar: C*e*l*o*y*c*e - 17/01/2013, 18:25
Cvp: excele veri atma - Yazar: metehan16 - 18/01/2013, 02:01
Cvp: excele veri atma - Yazar: Yandemir - 19/01/2013, 03:04
Cvp: excele veri atma - Yazar: metehan16 - 19/01/2013, 05:45
Cvp: excele veri atma - Yazar: Yandemir - 19/01/2013, 12:03
Cvp: excele veri atma - Yazar: metehan16 - 19/01/2013, 14:17
Task