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.
.

HorizontalAligment değil HorizontalAlignment olarak dener misiniz?

(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.

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

(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?

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