Skip to main content

AccessTr.neT


Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası

Range Sınıfının HorizontalAlignment Özleliği Kurulamıyor Hatası

Çözüldü #1
Herkese selamlar.

Veri Tabanı Kapalı ağda olduğu için ekleyemiyorum.

Excel'e tablo gönderiyorum ve düzenlemeleri yaptırıyorum. Ancak hücreleri hizalamak için aşağıda yazdığım kod ile
"Range Sınıfının HorizontalAligment Özleliği Kurulamıyor"  hatası alıyorum (aynı hatayı VerticalAlignment içinde alıyorum)

Dim Exl as object
Dim wb as object
Dim ws as object

Set Exl = CreateObject ("Excel.Application")
      Exl.Visible = True
      Exl.UserControl = True
Set wb = Exl.Workbooks.Add
Set ws = wb.sheets.Add
      ws.Name = "Cari İcmal"

Ws.Range("A1:E8").HorizontalAlignment= xlCenter

Ya da
Ws.Range("A1:E8").HorizontalAlignment= xlHAlignCenter

Site içerisinde örnek çalışmaları indirip incelediğimde bu her iki kodda hata yok.
Hatta örnek çalışmalar doğru şekilde çalışıyor. Ancak ben kendi projeme kodları tanımlamaları ile birlikte eklesemde, yukarıdaki gibi yazsam da hata alyorum.

Bu koduna yardımlarınızı bekliyorum.
.
Son Düzenleme: 02/05/2023, 19:10, Düzenleyen: Kunt. (Sebep: Yazım hatası)
Cevapla
#2
HorizontalAligment değil HorizontalAlignment olarak dener misiniz?
Cevapla
#3
(02/05/2023, 18:42)berduş yazdı: HorizontalAligment değil HorizontalAlignment olarak dener misiniz?

İlginiz için teşekkür ederim,
Mesaj daki hata için kusura bakmayın. Cep tlf. Üzerinden yazdığım için eksik yazmışım. Bende kod içinde Sizin dediğiniz gibi HorizontalAlignment olarak yazdım.
Cevapla
#4
Ws.Range("A1:E8").HorizontalAlignment= xlCenter
yerine
ws.Range("A1:E8").HorizontalAlignment = -4108
  olarak dener misiniz? Access tarafından açıldığı için xlCenter neye karşılık geliyor bilemiyor olabilir
ama eğer referanslara microsoft Excel xx.x objectlibraryyi eklerseniz sorun ortadan kalkabilir xlCenter de kullanabilirsiniz
Cevapla
#5
(02/05/2023, 19:30)berduş yazdı:
Ws.Range("A1:E8").HorizontalAlignment= xlCenter
yerine
ws.Range("A1:E8").HorizontalAlignment = -4108
  olarak dener misiniz? Access tarafından açıldığı için xlCenter neye karşılık geliyor bilemiyor olabilir
ama eğer referanslara microsoft Excel xx.x objectlibraryyi eklerseniz sorun ortadan kalkabilir xlCenter de kullanabilirsiniz

Sayın Berduş,
Yönlendirmeniz  ve bilgi için teşekkür ederim. XlCenter yerine "-4108" değerini yazınca hata vermedi ve kod çalıştı.
Bahsettiğiniz
referanslara "microsoft Excel xx.x objectlibrary" ekleme olayını Access'e çok hakim olmadığım için anlayamadım. Örnekleme ile gösterebilir misiniz?
Son Düzenleme: 04/05/2023, 09:19, Düzenleyen: Kunt.
Cevapla
#6
VBA penceresindeki (yani kodların yazıldığı sayfada) menüye gelirseniz, orada
Tools menüsünde references düğmesine tıklarsanız açılan pencerede seçenekler çıkar
aşağılarda bir yerde Microsoft Excel xx.x Object Library var onu seçili hale getirmeniz yeterli. bende 16.0 varken sizde farklı bir sürüm olabilir xx.x sizdeki sürümü gösterir
[Resim: do.php?img=15336]
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task