+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birden Çok Tabloyu Excel' E Aktarma (/konu-birden-cok-tabloyu-excel-e-aktarma.html)
Birden Çok Tabloyu Excel' E Aktarma - aydin5353 - 20/09/2022
Excel' e aktarma ile ilgili site içerisinde 2008 yılından kalma bu kodu buldum. Aktarma ve aktarılan veriyi açma hususunda bir sıkıntım yok. Ancak ben bu kodu ben Programdan çıkış butonuna ekleyeceğim ve bastığımda bana soru sormaması lazım. "İF" in kaldırılması lazım anladığım kadarıyla. 36-6-8 sayılarını yorumlayamadım o sebeple if i kaldıramadım. Anladığım kadarıyla 8 Excel versiyonu.
Bunu çıkış butonunda olacak şekilde ayarlarsam program kapanırken kasar mı acaba. Tabi bunu deneyerek görmek istiyorum. İf şartının kaldırılarak düzenlenmiş haline ihtiyacım var. Saygılar sunarım.
Private Sub Komut1_Click()
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.Path & "\SONUÇLAR.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "SONUÇLAR.xlsx 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "tablo1", Klasor, True, "tablo1"
DoCmd.TransferSpreadsheet acExport, 8, "tablo2", Klasor, True, "tablo2"
DoCmd.TransferSpreadsheet acExport, 8, "tablo3", Klasor, True, "tablo3"
DoCmd.TransferSpreadsheet acExport, 8, "tablo4", Klasor, True, "tablo4"
DoCmd.TransferSpreadsheet acExport, 8, "tablo5", Klasor, True, "tablo5"
MsgBox "Aktarma işlemi tamamlandı. Sonuçlar Excel sayfasını açıp sonuçları görebilirsiniz .Saygılar", 0, "VERİ AKTARIMI"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
End Sub
RE: Birden Çok Tabloyu Excel' E Aktarma - berduş - 20/09/2022
if'i kaldırmak için
başlangıç (If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "SONUÇLAR.xlsx 'ye aktarılacak") = 6 Then <==başlangıç) ve
bitişinin (End If <==bitiş) olduğu satırları silmek yeterli
RE: Birden Çok Tabloyu Excel' E Aktarma - aydin5353 - 20/09/2022
teşekkürler hocam. dediğiniz gibi de oldu. sondaki msgbox ı da sildim. hiç uyarı vermeden aktarımı yaptı.
Application.Quit kodunu End Sub öncesinde ekledim ancak çalışmadı. Sonrasına eklesem zaten çalışmaz. Ayrı bir çıkış formu yapıp ona yönelttim ancak bu formu kapatıp ona yöneltemedim. bu kodun neresine yazmam gerekiyor.
RE: Birden Çok Tabloyu Excel' E Aktarma - atoykan - 20/09/2022
(20/09/2022, 20:28)aydin5353 yazdı: 36-6-8 sayılarını yorumlayamadım o sebeple if i kaldıramadım. Anladığım kadarıyla 8 Excel versiyonu.
36 vbyesno buton kodu
8 excel
6 vbyesno butonu yes kodudur