AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Çalıştığı Yere Göre Excel Dosyası Oluşturma

1 2
12/11/2019, 17:15

ByChilavert

Merhaba

Örnek dosyamda personel bilgileri mevcuttur. Bu listede bulunan personelleri "Çalıştığı Yer" sütünündaki bilgilere göre liste dışında ayrı ayrı Excel dosyasının oluşturulmasını istiyorum. Örnek Çalıştığı Yer "Gövde Makine Grubu" Gövde Makine Grubu.xls yada "Etüd Proje 1. Kısım" Etüd Proje 1. Kısım.xls adında dosya oluşturması mümkün müdür.

...Link...
12/11/2019, 18:34

berduş

    

    Dim XL As Excel.Application,    WB As Excel.Workbook, WKS As Excel.Worksheet

  

    Set XL = New Excel.Application

    XL.Visible = True

    Set WB = XL.Workbooks.Add

    Set WKS = WB.Worksheets(1)

 

    WB.SaveAs Filename:=kaydedilecekyer & sutundegeri &  ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook
13/11/2019, 07:00

ByChilavert

(12/11/2019, 18:34)berduş yazdı: 
    

    Dim XL As Excel.Application,    WB As Excel.Workbook, WKS As Excel.Worksheet

  

    Set XL = New Excel.Application

    XL.Visible = True

    Set WB = XL.Workbooks.Add

    Set WKS = WB.Worksheets(1)

 

    WB.SaveAs Filename:=kaydedilecekyer & sutundegeri &  ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook
Merhaba
Aşağıda belirttiğim şekilde yapmayı denedim ama hata verdi. 


Kod:
Sub Aktar()
   
    Dim XL As Excel.Application, WB As Excel.Workbook, WKS As Excel.Worksheet
 
    Set XL = New Excel.Application
    XL.Visible = True
    Set WB = XL.Workbooks.Add
    Set WKS = WB.Worksheets(1)

    WB.SaveAs Filename:=C:İzinler &F& ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook


End Sub
13/11/2019, 10:51

berduş

Atölyede 3 kişi çalışıyor 3 farklı Excel dosyası mi oluşturulacak yoksa 1 dosya mi?
13/11/2019, 11:04

berduş

    Dim XL As Excel.Application, WB As Excel.Workbook, WKS As Excel.Worksheet



    Set XL = New Excel.Application

    XL.Visible = True

    Set WB = XL.Workbooks.Add

  'Cells(satirno,sutunno)

    WB.SaveAs Filename:="C:\izinler\"  &  cells(8,6) & ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook
13/11/2019, 11:39

ByChilavert

ÇAĞLIŞTIĞI YERDE KAÇ TANE BİRİM VARSA O KADAR Excel DOSYASI OLUŞTURMASINI İSTİYORUM. 

ÖRNEK : ÇALIŞTIĞI YER ATÖLYE 2. KISIM I SEÇTİĞİM ZAMAN KAÇ KİŞİ VAR 20 KİŞİ ONLARI TEK BİR Excel DE TOPLAMASINI İSTİYORUM. TOPRAK İŞLERİ 1. KISIM DA 50 KİŞİ VAR ONLARI AYRI BİR EXCEL'DE ATMASINI İSTİYORUM.
1 2