Merhaba
Ekte yüklediğim DENETİM isimli dosyaya AMORTİSMAN_MÜNFERİT dosyasından veri aldırıyorum. Ancak Sub A_MUNFERİT_AKTAR() makrosunda hata veriyor. Bu hatayı vermesine sebep olacak her şeyi kontrol ettiğim halde maalesef sonuca ulaşamadım. ..
Kapalı Dosya Veri Listeleme Hatasını Çözme
-
- Mesajlar: 2
- Kayıt: Pzr Haz 25, 2023 5:50 pm
- Meslek: İç Denetçi (Özel Sektör)
- Adınız: EMRE
- Soyadınız: HIZARCI
Kapalı Dosya Veri Listeleme Hatasını Çözme
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 45
- Kayıt: Prş Mar 21, 2024 11:31 am
- Lokasyon: istanbul
- Meslek: Oto Yedek Parça Satış Elemanı
- Adınız: Sinan
- Soyadınız: Aykaç
Re: Kapalı Dosya Veri Listeleme Hatasını Çözme
Sütun başlıkları uyuşmadığı için hata verdi. Başlıkları 1 2 3 olarak ayarladığımda çalışıyor.
Kod: Tümünü seç
Sub A_MUNFERİT_AKTAR()
Dim Dosya As String, Baglanti As Object, Sorgu As String
Dim Kayit_Seti As Object, Sayfa As Worksheet, Zaman As Double
Dim Hedef_Sayfalar As Variant, Kaynak_Sayfalar As Variant, x As Byte
Zaman = Timer
Set Baglanti = CreateObject("ADODB.Connection")
Dosya = ThisWorkbook.Path & Application.PathSeparator & "amortisman.xlsm"
Baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
Dosya & ";Extended Properties=""Excel 12.0;HDR=YES"""
Hedef_Sayfalar = Array("A_MÜNFERİT")
Kaynak_Sayfalar = Array("MAHSUP")
For x = 0 To UBound(Hedef_Sayfalar)
Set Sayfa = Sheets(CStr(Hedef_Sayfalar(x)))
Sayfa.Range("A2:Y" & Rows.Count).ClearContents
' İlk birkaç sütun ile başlayalım
Sorgu = "SELECT [1], [2], [3] FROM [" & Kaynak_Sayfalar(x) & "$]"
On Error Resume Next
Set Kayit_Seti = Baglanti.Execute(Sorgu)
If Err.Number <> 0 Then
MsgBox "Hata: " & Err.Description, vbCritical
Err.Clear
Else
Sayfa.Range("A2").CopyFromRecordset Kayit_Seti
Kayit_Seti.Close
End If
On Error GoTo 0
Next
Baglanti.Close
Set Kayit_Seti = Nothing
Set Baglanti = Nothing
MsgBox "Veri aktarımı tamamlanmıştır." & Chr(10) & Chr(10) & _
"İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
-
Cep telefonundan dosya silmek ve dosya boyutu almak
gönderen Jeeday » » forum Genel Makro Paylaşımları - 2 Cevaplar
- 248 Görüntüleme
-
Son mesaj gönderen Jeeday
-
-
- 6 Cevaplar
- 350 Görüntüleme
-
Son mesaj gönderen Sinan05
-
- 3 Cevaplar
- 75 Görüntüleme
-
Son mesaj gönderen halily
-
- 0 Cevaplar
- 1638 Görüntüleme
-
Son mesaj gönderen bilalakyol
-
- 2 Cevaplar
- 1302 Görüntüleme
-
Son mesaj gönderen Jeeday