Új hozzászólás Aktív témák

• #40195 dellfanboy őstag

  Új Válasz 2019-02-12 12:10:14 #40195

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  dellfanboy

  őstag

  Van 1 riportom ami egy makro segisegevel all elo. (Delila azt hiszem tavaly segitettel a makroirasban)
  A riportom xlsx formatumban mentodik el a makro segitsevel. Viszont arra jottem ra ha xlsb-kent van elmentve negyedannyi helyet foglal.
  Nem vettem eszre valtozast, hogy lassab lenne a file beolvasasa xlsb-kent de megkerdeznelek titeket, hogy mik lehetnek a hatranyai ha a riportom xlsb-kent van elmentve?

  Ha xlsb a jovoben tamogathato formatum, hogy kellene modositano-m a makromat? Mert hiaba irtam az utolso sort xlsx-rol xlsb-re nem menti el a makro az alabbi hibauzenettel all le:
  Run time error 1004 this extension can not be used with the selected file type.

  ez pedig a programkodom:
  Sub Masolasok25()
Dim WBE As Workbook, WSM As Worksheet, ide As Long
Dim FD, utvonal As String, FN As String

Set WBE = ActiveWorkbook

Sheets(1).Copy '1. lap másolása
Set WSM = ActiveWorkbook.Sheets(1)
WSM.Name = "Sheet1"
ide = WSM.Range("A" & Rows.Count).End(xlUp).Row + 1 '2. lap másolása
WBE.Sheets(2).Range("A1").CurrentRegion.Offset(1).Copy Range("A" & ide)

ide = WSM.Range("A" & Rows.Count).End(xlUp).Row + 1 '3. lap másolása
WBE.Sheets(3).Range("A1").CurrentRegion.Offset(1).Copy Range("A" & ide)

'Másolt fájl neve és útvonala
FN = Application.InputBox("Please fill in the file name like example:GL download Noetix EMEA YYYY_MM v!", , , , , , 2)
MsgBox "Please Choose Folder??", vbExclamation
Set FD = Application.FileDialog(4) 'mappa választás
With FD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "You did not choose destination folder, we stop.", vbInformation, "Értesítés"
Exit Sub
Else
utvonal = .SelectedItems(1)
End If
End With

ActiveWorkbook.SaveAs utvonal & "\" & FN & ".xlsb" 'mentés
End Sub

Új hozzászólás Aktív témák