Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [TABLO] Word Tablosundan Aktarım

[TABLO] Word Tablosundan Aktarım
kahramanselim
Yeni Üye 15-40

*
Kayıt Tarihi: 13.01.2020
Toplam 10 konu açtı.
Toplam 33 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 2 / 2
#1
25-09-2024, 21:46
Merhaba

ekte bir örneği olan word dosyasından tabloyu aktardığımda hücrede bulunan metinlerin sonuna "[]" şeklinde bir işaret geliyor. bu işareti nasıl silebilirim. trim komutu vb bir komutla örneğin.


Eklenti Dosyaları
.zip   SN.zip (Boyut: 44,58 KB / İndirilme: 38)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
26-09-2024, 00:12
kodları aşağıdaki gibi düzenleyip dener misiniz?
Visual Basic
  1.            ![AD] = Replace(doc.Tables(1).Cell(i, 1).Range.Text, Chr(7), "")
  2.            ![SOYAD] = Replace(doc.Tables(1).Cell(i, 2).Range.Text, Chr(7), "")
  3.            ![TEL] = Replace(doc.Tables(1).Cell(i, 3).Range.Text, Chr(7), "")
  4.            ![ŞEHİR] = Replace(doc.Tables(1).Cell(i, 4).Range.Text, Chr(7), "")





  Bul
  Alıntı
Bu mesajı beğenenler: kahramanselim
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#3
26-09-2024, 00:17
yada
Visual Basic
  1. ![AD] = Mid(doc.Tables(1).Cell(i, 1).Range.Text, 1, Len(doc.Tables(1).Cell(i, 1).Range.Text) - 1)
  2. ![SOYAD] = Mid(doc.Tables(1).Cell(i, 2).Range.Text, 1, Len(doc.Tables(1).Cell(i, 2).Range.Text) - 1)
  3. ![TEL] = Mid(doc.Tables(1).Cell(i, 3).Range.Text, 1, Len(doc.Tables(1).Cell(i, 3).Range.Text) - 1)
  4. ![ŞEHİR] = Mid(doc.Tables(1).Cell(i, 4).Range.Text, 1, Len(doc.Tables(1).Cell(i, 4).Range.Text) - 1)





  Bul
  Alıntı
Bu mesajı beğenenler: kahramanselim
kahramanselim
Yeni Üye 15-40

*
Kayıt Tarihi: 13.01.2020
Toplam 10 konu açtı.
Toplam 33 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 2 / 2
#4
26-09-2024, 00:30
iki çözüm de doğru. yardımınız için çok teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#5
26-09-2024, 00:32
rica ederim
iyi çalışmalar)



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Word Dot şaplonunu Açtırarak Dosya Göndermek Aplt 1 344 12-01-2025, 17:11
Son Mesaj: dsezgin
  Csv Formatında Parçalı Aktarım SBNS 9 682 19-11-2024, 19:44
Son Mesaj: SBNS
  [TABLO] Word Tablodan Tarih Aktarımı kahramanselim 6 541 01-10-2024, 12:34
Son Mesaj: halily
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 987 01-08-2024, 10:28
Son Mesaj: dsezgin
  Excellden Tabloya Veri Aktarım Sorunu kral8596 1 466 23-05-2024, 11:52
Son Mesaj: dsezgin
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 507 04-02-2024, 00:42
Son Mesaj: zimbit
  [VBA] Access'ten Word'e Aldığım Her Bir Sayfayı Excel Sayfasına Aktarma abkbek 3 748 13-08-2021, 14:46
Son Mesaj: dsezgin
  [FORM] Formdan Sorgu çalıştırarak Word E Gönderme bibib 1 678 01-10-2020, 13:11
Son Mesaj: onur_can

Foruma Git:


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