Verileri Excele Aktarma Hatası

1 2
08/02/2017, 22:29

hknct

formumdan excele aktarmak için açılan kutudan yararlanmak istiyorum. buton altındaki kod bu

If IsNull(Me.rapor) Or Me.rapor = "" Then
  MsgBox ("Lütfen,bir seçim yapınız..."), vbCritical, "SEÇİM YAPILMAMIŞ UYARISI"
  Exit Sub
Else

On Error GoTo Komut13_Click_Err

   DoCmd.OutputTo acQuery, Me.rapor.Column(3), "MicrosoftExcel(*.xls)", "", False, "", 0


Komut13_Click_Exit:
   Exit Sub

Komut13_Click_Err:
   MsgBox Error$
   Resume Komut13_Click_Exit
End If
me.rapor.column(3) yazan yere direk sorgunun ismini yazdığım zaman hatası olarak aktarıyorum. ancak bu şekilde almak istediğimde 
bunu nasıl aşabilirim.
Kod:
DoCmd.OutputTo acOutputReport, "R_liste", acFormatXLS, CurrentProject.Path & "\" & "excel_dosyalar" & "\" & Me.rapor.Column(3) & ".xls", True
bu şekilde bir kod kullandım. "Bir nesne üzerinde çağırmayı denediğiniz yöntem başarısız " hatası verdi.
08/02/2017, 23:07

atoz112

sayın hknct,

eklediğiniz resim küçük boyutta kalmaktadır.bu şekilde anlaşılamamaktadır.

lütfen tekrar geniş görsel olarak eklemeyi deneyiniz.teşekkürler.

ayrıca,
tam olarak ne kast ettiğiniz de anlaşılamıyor.lütfen daha net ifadelerde bulununuz.

bilginize...iyi çalışmalar,saygılar.
08/02/2017, 23:23

atoz112

sayın hknct,

siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak çözümler sunmak yetersiz kalacaktır.örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.


bilginize...iyi çalışmalar,saygılar.
08/02/2017, 23:32

hknct

(08/02/2017, 23:23)atoz112 yazdı: sayın hknct,

siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak çözümler sunmak yetersiz kalacaktır.örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.


bilginize...iyi çalışmalar,saygılar.

ekledim
08/02/2017, 23:53

atoz112

sayın hknct,

bahsettiğiniz talebinize yönelik olarak;

öncesinde,
kod sayfasında TOOLS - REFERENCES ile referans penceresinde Microsoft Excel XX.X Object Library referansını işaretleyiniz.

DoCmd.OutputTo acOutputReport, "R_liste", acFormatXLS, CurrentProject.Path & "\" & "excel_dosyalar" & "\" & Me.rapor.Column(3) & ".xls", True

kod satırı yerine,

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, Me.rapor.Column(2), CurrentProject.Path & "\" & "excel_dosyalar" & "\" & Me.rapor.Column(3) & ".xls", True, "Aktarma"

kod satırını kullanarak deneyiniz.

bilginize...iyi çalışmalar,saygılar.
08/02/2017, 23:55

atoz112

sayın hknct,

EK'te;
bahsettiğiniz talebinize yönelik olarak,
bir önceki mesajda yapılan açıklamalar nezdinde hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
1 2