- Katılım
- 2 Kasım 2006
- Mesajlar
- 45
- Excel Vers. ve Dili
- 2003
rapor excel sayfası olarak kaydedilebilirmi ?
raporu ön izle tusu ile çagırdıktan sonra herhangi bir yere excel sayfası olarak alabilirmiyiz ben bir kod buldum ama o sadece taplodan bir taployu veye birkaçtaployu excel sayfası olarak alabiliyorum kodlar aşagıda sizlerden istegim form sayfasında iken raporu önizlemede gördükten sonra buton saysine tıklamayla masaüstüne veya belgelerime raporu excel sayfası olarak almak istiyorum diger bir şekilde araçlar/ofisbaglatıları yoluyla word sayfası olarak alınabiliyor excel sayfası olarak bozuk şekilde alınıyor tek tıklamayala raporu excel sayfası olarak nasıl alınır teşekkürler DoCmd.TransferSpreadsheet acExport sanırım bu kod her halde bütün işlemi yapıyor
Private Sub Komut152_Click()
On Error GoTo Err_Komut152
Dim Klasor
Klasor = CurrentProject.Path & "\" & "Bilgisayar yapılandırma"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "Masaüstüne aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "ANAKART", Klasor, True, "ANAKART"
DoCmd.TransferSpreadsheet acExport, 8, "CD / DVD WRITER", Klasor, True, "CD / DVD WRITER"
DoCmd.TransferSpreadsheet acExport, 8, "DİGİTAL ÜRÜNLER", Klasor, True, "DİGİTAL ÜRÜNLER"
MsgBox "Aktarma işlemi tamamlandı", 0, " V E R İ A K T A R I M I "
Exit_Komut152:
Exit Sub
Err_Komut152:
MsgBox Error$
Resume Exit_Komut152
End If
End Sub
raporu ön izle tusu ile çagırdıktan sonra herhangi bir yere excel sayfası olarak alabilirmiyiz ben bir kod buldum ama o sadece taplodan bir taployu veye birkaçtaployu excel sayfası olarak alabiliyorum kodlar aşagıda sizlerden istegim form sayfasında iken raporu önizlemede gördükten sonra buton saysine tıklamayla masaüstüne veya belgelerime raporu excel sayfası olarak almak istiyorum diger bir şekilde araçlar/ofisbaglatıları yoluyla word sayfası olarak alınabiliyor excel sayfası olarak bozuk şekilde alınıyor tek tıklamayala raporu excel sayfası olarak nasıl alınır teşekkürler DoCmd.TransferSpreadsheet acExport sanırım bu kod her halde bütün işlemi yapıyor
Private Sub Komut152_Click()
On Error GoTo Err_Komut152
Dim Klasor
Klasor = CurrentProject.Path & "\" & "Bilgisayar yapılandırma"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "Masaüstüne aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "ANAKART", Klasor, True, "ANAKART"
DoCmd.TransferSpreadsheet acExport, 8, "CD / DVD WRITER", Klasor, True, "CD / DVD WRITER"
DoCmd.TransferSpreadsheet acExport, 8, "DİGİTAL ÜRÜNLER", Klasor, True, "DİGİTAL ÜRÜNLER"
MsgBox "Aktarma işlemi tamamlandı", 0, " V E R İ A K T A R I M I "
Exit_Komut152:
Exit Sub
Err_Komut152:
MsgBox Error$
Resume Exit_Komut152
End If
End Sub
Son düzenleme: