Soru Belirli Bir Formatta Excel Dosyası Oluşturmak

[Textiler]

Merhaba,
Dosya içerisine CommandButon ekleyerek butona bastığımda ekte yer alan formatta excel dosyası oluşturmak mümkün müdür?

https://dosya.co/x2gouguwgexj/Kitap1.zip.html

İyi çalışmalar.

 

[ÖmerBey]

Merhaba,
Ayrı bir dosya mı oluşturmak istiyorsunuz yoksa bu dosya içerisine ayrı bir sayfa mı oluşturulacak.

 

[Textiler]

Merhaba,
Ayrı bir dosya mı oluşturmak istiyorsunuz yoksa bu dosya içerisine ayrı bir sayfa mı oluşturulacak.

Merhaba Ömer Bey,
Butona her bastığımda ekteki formatta ayrı bir dosya oluşturmak istiyorum.

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz...

Sub kod()
yol = ThisWorkbook.Path & "\"
isim = Format(Now, "yyyymmdd_hhnnss")
Sheets("Sayfa1").Copy
Set w2 = ActiveWorkbook
w2.SaveAs Filename:=yol & isim & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
w2.Close 0
End Sub

 

[Textiler]

Aşağıdaki dosya meydana geldi ancak içi boş

İndir 20191122 215713

Dosyayı indir 20191122 215713

dosya.co

 

[ÖmerBey]

Muhtemelen kodu boş bir dosyada çalıştırmışsınız.
Yüklediğiniz örnek dosyanın içinde boş bir modüle kodu kopyalayınız ve çalıştırınız. Örnek dosyanızın içindeki Sayfa1 isimli sayfayı oluşturduğu yeni dosyanın içine kaydeder.

 

[systran]

örnek çalışmayı farklı kaydet seçeneği kullanarak "excel şablonu" olarak kayıt edin ve ihtiyacınız olduğunda Dosya--> Yeni--> Şablonlarım--> "Kayıt ettiğiniz şablon adı" seçiniz. Dosyayı şablon olarak kullanmak aslında yanlış bir yöntemdir.

 

[Textiler]

Tekrar Merhabalar,
VB6 içinde standart exe oluşturdum, excel library 14 ekledim ve aşağıdaki kodu kullandım. objws.Range("A1:K3").HorizontalAlignment = xlCenter, objws.Range("A1:K3").VerticalAlignment = xlCenter satırlarında "Range sınıfının HorizontalAlignment ve VerticalAlignment özelliği kullanılamıyor" şeklinde ve objws.Range("A4:V48").ClearContents satırında da "Object variable or With block variable not set" hatası alıyorum. Nedeni ne olabilir acaba?

Private Sub Command1_Click()
Dim AppXls As Object
Dim ObjWb As Object
Dim objws As Object

    Set AppXls = CreateObject("Excel.Application")
    Set ObjWb = AppXls.Workbooks.Add

Set objws = ObjWb.Worksheets.Add
objws.Name = "Yeni"
objws.Columns("A").ColumnWidth = 8.43
objws.Columns("B:C").ColumnWidth = 4.29
objws.Columns("D:E").ColumnWidth = 8.43
objws.Columns("F").ColumnWidth = 2.43
objws.Columns("G:H").ColumnWidth = 8.43
objws.Columns("I").ColumnWidth = 5.71
objws.Columns("J:K").ColumnWidth = 8.43
objws.Range("A1:K3").Merge
objws.Range("A1:K3").HorizontalAlignment = xlCenter
objws.Range("A1:K3").VerticalAlignment = xlCenter
objws.Range("A1").Value = "BAŞLIĞI BURAYA YAZIYORUM"
objws.Range("A1").Font.Bold = True
objws.Range("A1").Font.Size = 28
objws.Range("A1").Font.Color = vbBlack
objws.Range("A1").Font.Name = "Calibri"

Set objws = Nothing

    Set ObjWb = Nothing
    AppXls.Visible = True
    Set AppXls = Nothing
    
    objws.Range("A4:V48").ClearContents

End Sub