Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.

Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.
adnnfrm
Önemli Üye 300-400

*
Kayıt Tarihi: 27.11.2019
Toplam 78 konu açtı.
Toplam 315 yorum yaptı.
Toplam 19 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013, Office 2016, Office 2019,
Beğeniler: 18 / 4
#1
04-08-2023, 01:51 (En son düzenleme: 04-08-2023, 01:52 adnnfrm.)
Herkese Merhaba,

Bir projemde .csv dosyadan veri aktarımı yapıyorum fakat access de ondalık ayraç virgülü ile veri ayrım virgülü çakışıyor. Ayrıca bazı sütun verilerini anlamsız şekilde bölüyor. Hem de sadece ayrım belirteci "," virgül olmasına rağmen. Fakat .csv yi excel powerquery ile yüklediğimde excele hatasız aktarım yapıyor. Bende access üzerinde okuyamazsam excel üzerinden veriyi okuyayım istedim fakat her seferinde ilgili exceli açıp tabloyu güncellemem gerekiyor. Bu aşamayı atlayabileceğim bir güncelleme kodu yazmak istiyorum accessde. Daha önceden exceli açıp hücrelere vei yazdırdığımız bir kod vardı aşağıdaki gibi. Ama burada veri yazdırmayacağım açılan sayfada yer alan tabloyu refresh edip exceli kapatacağım. Nasıl bir kod yazmalıyım.


Visual Basic
  1. Dim XLapp As Object
  2. Dim XLwb  As Object
  3. Dim XLsh  As Object
  4.  
  5. Set XLapp = CreateObject("Excel.Application")
  6.  
  7. Set XLwb = XLapp.Workbooks.Open("C:\ExcelPrg\Data\GrfData.xls")
  8.  
  9. Set XLsh = XLwb.Sheets(1)
  10.  
  11. XLapp.Visible = True
  12.  
  13. XLsh.[D2] = DFirst("GRF2", "GrfkVeri")
  14. XLsh.[D3] = DFirst("GRF3", "GrfkVeri")
  15. XLsh.[D4] = DFirst("GRF1", "GrfkVeri")
  16. XLsh.[D5] = DFirst("GRF4", "GrfkVeri")
  17. XLsh.[D6] = DFirst("GRF5", "GrfkVeri")
  18.  
  19. .......
  20. .......





  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.090 yorum yaptı.
Toplam 1.096 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
04-08-2023, 02:29
cvs dosyası virgül ile sütunlar oluşturulmuş ise ondalık sayılar nokta ile ayrıştırılmış olması gerekir.
PC Bölgesel ayarlardan Liste ayırıcı genelde noktalı virgül olarak ayarlıdır, sonradan bu özellik virgül ile değiştirilmiş ise ondalık sayılar sorun çıkarır.
cvs dosyanın başına SEP=, seklinde yazılması excel'in dosyayı sihirbaz açmadan düzgün şekilde açar.

Örnek iki satırlık cvs dosyası olsa öneriler olur.

CreateObject("Scripting.FileSystemObject").OpenTextFile(DosyaAl, 1, -2) ile cvs dosyası açıp Split-virgül ile ayrıştırılabilir.


Koda
Visual Basic
  1. Dim pt As PivotTable
  2.     For Each pt In XLsh.PivotTables
  3.         pt.RefreshTable
  4.     Next pt


ekleme yapılabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
adnnfrm
Önemli Üye 300-400

*
Kayıt Tarihi: 27.11.2019
Toplam 78 konu açtı.
Toplam 315 yorum yaptı.
Toplam 19 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013, Office 2016, Office 2019,
Beğeniler: 18 / 4
#3
05-08-2023, 02:23
(04-08-2023, 02:29)dsezgin demiş ki: cvs dosyası virgül ile sütunlar oluşturulmuş ise ondalık sayılar nokta ile ayrıştırılmış olması gerekir.
PC Bölgesel ayarlardan Liste ayırıcı genelde noktalı virgül olarak ayarlıdır, sonradan bu özellik virgül ile değiştirilmiş ise ondalık sayılar sorun çıkarır.
cvs dosyanın başına SEP=, seklinde yazılması excel'in dosyayı sihirbaz açmadan düzgün şekilde açar.

Örnek iki satırlık cvs dosyası olsa öneriler olur.

CreateObject("Scripting.FileSystemObject").OpenTextFile(DosyaAl, 1, -2) ile cvs dosyası açıp Split-virgül ile ayrıştırılabilir.


Koda
Visual Basic
  1. Dim pt As PivotTable
  2.     For Each pt In XLsh.PivotTables
  3.         pt.RefreshTable
  4.     Next pt


ekleme yapılabilir.

Teşekkürler hocam. Accessten komut vermek yerine excelin workbook open yordamına ilgili tabloyu refresh edecek komut ve sonrasında da dosyayı kapatacak komut yazdım. Access tarafından sadece ilgili excel dosyasını aç komutu veriyorum Smile). Ama yine notlarıma bu çözümü de aldım, teşekkürler hocam.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Firmalardan Yapılacak Kesintileri Accesste Takip Etmek loocas 1 254 02-02-2026, 01:43
Son Mesaj: dsezgin
  [SORGU] Sorgu Ifadesi Içindeki Fonksiyon Ifade Içinde Kullanılamaz Hatası Mecnun24 7 663 27-08-2024, 16:53
Son Mesaj: Mecnun24
access-sql-18 Format([giris], "dd-mm-yyyy" Sorgu Ifadesi Içindeki Derleme Hatası. gncbil 5 600 07-06-2024, 10:48
Son Mesaj: dsezgin
  [TABLO] Excel Aktarımı kahramanselim 6 748 06-04-2024, 21:11
Son Mesaj: kahramanselim
  Access Yerel Bir Tabloyu Bağlantılı Bir Tabloya Kod Ile Dönüştürme Yapılabilir Mi? umutakkaya 4 502 12-03-2024, 15:13
Son Mesaj: umutakkaya
  Bir Belgenin Yazdırılmış Olması Durumunu Kontrol Etmek Hk? adnnfrm 7 826 03-02-2024, 03:24
Son Mesaj: dsezgin
  Access'e Yeni Tablo Oluşturarak Excel Import Etmek, Table'ı Sütunlara çevirmek... İlhanYaylıcı 25 2.606 02-10-2023, 13:32
Son Mesaj: halily
  Excel Birleştir Ve Süz Bora34 6 1.285 16-02-2023, 18:33
Son Mesaj: Bora34

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi