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