Excel mentése másként makroval csv
2018-11-30T12:38:32+01:00
2018-12-01T00:53:31+01:00
2022-08-11T08:35:31+02:00
lretter
Sziasztok,
Mi lehet a probléma az alábbi kóddal. Nem menti le a kiválasztott munkalapot CSV formátumban.

'Checking whether table is updated Areyousure = MsgBox("Biztos vagy benne?", vbYesNo, "Biztosan lemented a fájlt?") ' If yes, Open a folder picker box where file can be saved If Areyousure = 6 Then Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) FldrPicker.Title = "Select A Target Folder to save" FldrPicker.AllowMultiSelect = False If FldrPicker.Show = -1 Then sPath = FldrPicker.SelectedItems(1) & "" Else: MsgBox ("No folder selected") Exit Sub End If ' Open a new workbook and save table data in, name it, and close it Set shtToExport = ThisWorkbook.Worksheets("Arrivals uploader") Set wbkExport = Application.Workbooks.Add shtToExport.copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.count) Application.DisplayAlerts = False 'Possibly overwrite without asking wbkExport.SaveAs Filename:="2010Arirval.csv", FileFormat:=xlCSV Application.DisplayAlerts = True wbkExport.Close SaveChanges:=False MsgBox "A fájl lementésre került a kiválasztott mappába!", , "Success" ' If answer was no, Exit sub Else MsgBox ("Akkor hajrá!") Exit Sub End If
Köszi
Mutasd a teljes hozzászólást!
Nem használtad a kiválasztott elérési utat (sPath).

wbkExport.SaveAs Filename:=sPath & "\" & "2010Arirval.csv", FileFormat:=xlCSV
Mutasd a teljes hozzászólást!

abcd