Çalışma Kitabı (Workbook) Kodları


  1. Çalışma kitabının ismi ve bulunduğu dosya yolu
  2. Yeni bir çalışma kitabı oluşturmak
  3. Çalışma kitabını kaydedip kapatmak
  4. Açık olan tüm çalışma kitaplarındaki değişiklikleri kaydetmek
  5. Var olan bir çalışma kitabını bulunduğu dosyadan açmak
  6. Yeni oluşturulan çalışma kitaplarını sırayla isimlendirip dosyaya kaydetmek

1.Çalışma kitabının ismi ve bulunduğu dosya yolu


Sub wrkbk()

Dim isim As String

Dim dosyaYol As String

Dim tumisim As String

isim = ActiveWorkbook.Name

dosyaYol = ActiveWorkbook.Path

tumisim = ActiveWorkbook.FullName

MsgBox isim & vbNewLine & dosyaYol & vbNewLine & tumisim

End Sub

2016-05-08 20_26_17-Microsoft Excel - excel_workbook_functions

2.Yeni bir çalışma kitabı oluşturmak:


Sub wrkbk_ekle()

Workbooks.Add

End Sub

 

3.Çalışma kitabını kaydedip kapatmak:

Önceden varolan bir çalışma kitabı ise:


Sub wrkbk_kapat()

ActiveWorkbook.Close True  'burada True yerine False dersek kaydetmeden kapatır

End Sub

 

Eğer yeni oluşturulmuş bir çalışma kitabı ise kaydetmeden önce ismini ve yerini belirtmemiz gerekecek.



Sub wrkbk_kapat2()

ActiveWorkbook.SaveAs "C:\Users\CAN\Desktop\excel\yenikitap.xlsx"

ActiveWorkbook.Close True

End Sub

 

4.Açık olan tüm çalışma kitaplarındaki değişiklikleri kaydetmek:


Sub wrkbk_tumukaydet()

Dim i As Integer

For i = 1 To Workbooks.Count

Workbooks(i).Save

Next i

End Sub

 

5.Var olan bir çalışma kitabını bulunduğu dosyadan açmak:


Sub wrkbk_dosyadanac()

Workbooks.Open C:\Users\Desktop\deneme.xlsx"

End Sub

 

6.Yeni oluşturulan çalışma kitaplarını sırayla isimlendirip dosyaya kaydetmek:

*Bu kod ile beş tane yeni Excel Workbook/Çalışma Kitabı oluşturalım her birinin A1 hücresine “Microsoft Excel 2013” yazıp, Masa üstündeki Kitaplar klasörüne sırayla Kitap1, Kitap2… Kitap5  şeklinde kaydedip kapatalım.


Sub wrkbk_olustur()

Dim i As Integer

For i = 1 To 5

Workbooks.Add

With ActiveWorkbook

ActiveSheet.Range("A1").Value = "Microsoft Excel 2013"

.SaveAs ("C:\Users\AUGUNDOGDDU\Desktop\kitaplar\kitap" & i & ".xlsx")

.Close True

End With

Next i

End Sub

workbook.add

workbook.add2

 

Reklamlar

Çalışma Kitabı (Workbook) Kodları” üzerine bir yorum

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s