(12/11/2019, 18:34)berduş yazdı:Merhaba
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
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