Birden Çok Tabloyu Excel' E Aktarma

20/09/2022, 20:28

aydin5353

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
20/09/2022, 20:39

berduş

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
20/09/2022, 21:36

aydin5353

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.
20/09/2022, 22:22

atoykan

(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