Soru Kapalı bir çalışma kitabına sayfa eklemek ve isim vermek

[Sezerkaratas]

Kapalı çalışma kitabına sayfa eklemek mümkün mü

 

[Erdem Akdemir]

Merhaba,

Neden böyle bir işleme gerek duyuyorsunuz.

 

[Sezerkaratas]

kapalıyken aktarmak daha hızlı olur diye düşündüm ama bulamadım . Sonra macroyla dosyayı açıp sonra gerekli işlemi yaptırıp dosyayı kapattırıyorum

 

[Erdem Akdemir]

Kapalı excel çalışma kitabına sayfa ekleyemezsiniz ama veri işleyebilirsiniz.

 

[Haluk]

Bir miktar uğraş sonucunda, kapalı durumdaki bir Excel dosyasında ADO ile yeni bir sayfa oluşturup, bu yeni sayfaya verileri yazdırdım.

Kapalı durumdaki dosya adı myDB.xlsx ve kodların olduğu ana dosya ile aynı dizinde bulunuyor. Başlangıçta, bu dosyanın içinde Sheet1, Sheet2 ve Sheet3 sayfaları var.





Kodların olduğu ana dosyanın Sheet1 sayfasında ise, verilerimiz var. (Adı, Soyadı ve Doğum Yılı alanları...)





Ana dosyadaki "Sheet1" sayfasında yer alan 1. butona tıklandığında, myDB.xlsx dosyasında "Veriler" adında yeni bir sayfa oluşturulup, bu sayfada "İsim", "Soyad", "Doğum Tarihi" sütunları (alanları) ekleniyor.




Daha sonra, ana dosyadaki 2. butona tıkladığımızda ise sayfa üzerindeki verilerden; doğum yılı 2000'den büyük olan verileri kapalı durumdaki "myDB.xlsx" dosyasında oluşturduğumuz "Veriler" sayfasındaki ilgili alanlara yine "ADO" ile döngü kullanmadan aktarıyoruz.





Belki üzerinde biraz daha çalışmak gerekebilir ama şimdilik, yukarıda resimlerde belirtilen işlemler gerçekleştiriliyor.....


.

 

[Erdem Akdemir]

@Haluk bey çözümle ilgili kod yada dosya paylaşacak mısınız?

 

[Erdem Akdemir]

Kapalı çalışma kitabına aşağıdaki örnek kod ile sayfa eklenebiliyor.
Daha öncede denemiştim ama sonuç alamamıştım, con.close yapmadan eklemiyor.

Sub denememem()

Set con = VBA.CreateObject("adodb.Connection")

yol = "C:\Users\" & Environ("UserName") & "\Desktop\export.XLSX"

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

con.Execute "CREATE TABLE [" & Environ("UserName") & "] ([BB] char,[ŞK] char,[BEYANNAME] char,DÖNEM char)"
con.Close

End Sub

 

[coktansecmeli]

Merhaba Erdem bey,

Bu kod çalışıyor ancak ben sizin kodunuzda olduğu gibi kolon isimleri olan değil de boş bir sayfa eklemek istiyorum. Yardımcı olabilir misiniz?

 

[coktansecmeli]

Kapalı çalışma kitabına aşağıdaki örnek kod ile sayfa eklenebiliyor.
Daha öncede denemiştim ama sonuç alamamıştım, con.close yapmadan eklemiyor.

Sub denememem()

Set con = VBA.CreateObject("adodb.Connection")

yol = "C:\Users\" & Environ("UserName") & "\Desktop\export.XLSX"

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

con.Execute "CREATE TABLE [" & Environ("UserName") & "] ([BB] char,[ŞK] char,[BEYANNAME] char,DÖNEM char)"
con.Close

End Sub

Merhaba Erdem bey,

Bu kod çalışıyor ancak ben sizin kodunuzda olduğu gibi kolon isimleri olan değil de boş bir sayfa eklemek istiyorum. Yardımcı olabilir misiniz?