Excel Aktarım

Set exc = CreateObject("excel.application")
  Set exc_wb = exc.Workbooks.Add
  Set exc_ws = exc_wb.ActiveSheet
  excsay = 6
  For s = 1 To 9
    exc.Cells(5, s).Font.Bold = True
  Next
  exc.Cells(5, 2) = Trim$(sliste.ColumnHeaders.Item(1))
  exc.Cells(5, 3) = Trim$(sliste.ColumnHeaders.Item(3))
  exc.Cells(5, 4) = Trim$(sliste.ColumnHeaders.Item(4))
  exc.Cells(5, 5) = Trim$(sliste.ColumnHeaders.Item(7))

For f = 2 To 9
    exc.Columns(f).EntireColumn.AutoFit
  Next
  exc.Columns(5).NumberFormat = "###,###.###"
  exc.Columns(6).NumberFormat = "###,###.##"
  exc.Columns(7).NumberFormat = "###,###.###"
  exc.Columns(8).NumberFormat = "###,###.##"
  exc.Visible = True
  exc.UserControl = True
  Set exc = Nothing
  Set exc_wb = Nothing
  Set exc_ws = Nothing