אוריי אמר:
אני רוצה לשמור קובץ csv כ xlsx
מצאתי את הקוד הזה
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
הבעיה היא שהוא מוציא לי חלון לבחור תקיה ואני רוצה שהוא יבחר קובץ ללא חלון…
תחליף את
Sub CSVtoXLS()
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
xSPath = "נתיב הקובץ"
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open FileName:=xSPath
ActiveWorkbook.SaveAs xSPath, xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
