Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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...
Cevapla
#2
    
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
Cevapla
#3
(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

Cevapla
#4
Atölyede 3 kişi çalışıyor 3 farklı Excel dosyası mi oluşturulacak yoksa 1 dosya mi?
Cevapla
#5
    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
Cevapla
#6
Ç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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task