Skip to main content

AccessTr.neT


Birden Çok Tabloyu Excel' E Aktarma

Birden Çok Tabloyu Excel' E Aktarma

Çözüldü #1
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
Cevapla
#2
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
Cevapla
#3
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.
Cevapla
#4
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task