1 Konuyu açan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Konu: Excelle İlgili

Programdan raporlarımı hazır bir excel sayfasından almak istiyorum. Excel dosyasının sayfa1 ini düzenledim ve ilgili hücrelerine Personel.dbf den bilgi yazdırıyorum.
1-personel sayısına göre otomatik olarak sayfa1 i sayfa2,sayfa3 diye kopyalayıp yeni sayfalar oluşturmak istiyorum. sayfa1 i kopyalarken tüm özellikleriyle birlikte (sayfa yapısı dahil) kopyalayıp yeni bir sayfa oluştursun ve ilgili personelin bilgilerini ilgili hücrelere yazsın istiyorum.

2- excel dosyasını oExcel.Workbooks.Open(FULLPATH("personel.xls")) diye açıyorum. Ancak kapatırken oExcel.Workbooks.close(FULLPATH("personel.xls")) komutu ile kapatamıyorum. Başka bir kapatma yolu var mı?

İlgilenenlere teşekkür ederim

2 Cevaplayan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Re: Excelle İlgili

Sayın Abdülkadir KOÇER bey 18.09.2006 16:03:15 tarihinde bana cevap vremiş. Bu soruyu daha öncede sormuşum.  Bu kodlarla isteğime ulaştım.
Ancak tüm sayfa seçili kalıyor. cells.select i işlem bitince iptal edebilirim. Yani seçili alanları iptal edip imleci A1 e getirebilirim.

Hazır bir Excelde sayfa1,sayfa2,sayfa3 var.Kodlarla,
1-yeni bir sayfa yani sayfa4 oluşturma
2-sayfa1 içeriğini sayfa4 e kopyalama (tüm hücre ve özellikleriyle)
3-sayfa2 adını sayfa5 olarak değiştirmeyi
nasıl yapabilirim. Teşekkürler.


Abdülkadir KOÇER
Yazar


18.09.2006 16:03:15

Sheets.Add

cevap 2.
Sheets("Sayfa1").Select
Cells.Select
Selection.Copy
Sheets("Sayfa4").Select
Cells.Select
ActiveSheet.Paste

cevap 3.
Sheets("sayfa2").Name = "Sayfa5"


Sheets.Add

cevap 2.
Sheets("Sayfa1").Select
Cells.Select
Selection.Copy
Sheets("Sayfa4").Select
Cells.Select
ActiveSheet.Paste

cevap 3.
Sheets("sayfa2").Name = "Sayfa5"

3 Cevaplayan taRKan

  • taRKan
  • taRKan
  • Uzman Üye
  • Offline
  • Yer: Ankara
  • Kayıt Tarihi: 12.10.2006
  • İleti: 367

Re: Excelle İlgili

Seçili sayfayı iptal için
Cells("A1").Select
yazman yeterli

/o---------------------o\
     www.haser.com
\o---------------------o/

taRKan's Website

4 Cevaplayan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Re: Excelle İlgili

Tarkan bey
Cells("A1").Select yazdığımda tür uyuşmazlığı hata mesajı veriyor
Cells(1,1).Select olursa hata vermiyor. Ancak sadece son sayfayı iptal ediyor. Ondan önceki sayfalar hala seçili kalıyor.

5 Cevaplayan ctapan

  • ctapan
  • ctapan
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 07.10.2006
  • İleti: 141

Re: Excelle İlgili

loexcel.Range ("A2").select

ctapan's Website

6 Cevaplayan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Re: Excelle İlgili

Cemal bey,
excel i ekranda göstermeden doğrudan yazdıran bir komut vardı. ancak hatırlayamadım.
Forumda arıyorum ama bulamadım. Bu konuda da yardımcı olur musunuz?

7 Cevaplayan ctapan

  • ctapan
  • ctapan
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 07.10.2006
  • İleti: 141

Re: Excelle İlgili

loexcel.ActiveWindow.SelectedSheets.PrintOut

ctapan's Website

8 Cevaplayan taRKan

  • taRKan
  • taRKan
  • Uzman Üye
  • Offline
  • Yer: Ankara
  • Kayıt Tarihi: 12.10.2006
  • İleti: 367

Re: Excelle İlgili

Aslında Cemal gerekli düzeltmeyi yapmış ama diğer sayfalarda da seçili olma durumu kaldırmak istiyorsan her ActiveSheet.Paste komutundan sonra Range("A1").Select yazmalısın.

/o---------------------o\
     www.haser.com
\o---------------------o/

taRKan's Website