This is working for me, but the file extension is not changing. Any tips?
-
To post as a guest, your comment is unpublished.
-
To post as a guest, your comment is unpublished.
CSV ֆայլը XlS կամ XLSX ֆայլ փոխակերպելու համար ձեզ համար շատ հեշտ է ՝ կիրառելով Save As հատկությունը: Այնուամենայնիվ, թղթապանակից մի քանի CSV ֆայլեր XLS կամ XLSX ֆայլերի վերածելը ժամանակատար է ՝ ձեռքով մեկ առ մեկ խնայելով: Այստեղ ես ներմուծում եմ մակրո կոդ ՝ բոլոր CSV ֆայլերը փաթեթից արագ խմբաքանակ դարձնելու համար XLS (x) ֆայլերի:
Խմբաքանակը CSV ֆայլերը մակրո կոդով փոխակերպում է XlS (X) ֆայլերի
Բազմաթիվ CSV ֆայլեր մեկ թղթապանակից XLS (X) ֆայլերի վերափոխելու համար կարող եք անել հետևյալ քայլերը.
1. Միացնել նոր աշխատանքային գիրքը, սեղմել Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը և սեղմեք Տեղադրել > Մոդուլներ, Տեսեք,
ՆշումՀամոզվեք, որ բոլոր CSV ֆայլերը, որոնք ցանկանում եք փոխարկել, փակ են:
2. Ապա մակրո կոդի տակ տեղադրեք այն Մոդուլներ սցենար և սեղմել F5 ծածկագիրը գործելու համար:
VBA. CSV- ի XLS- ի վերափոխեք
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", ".xls", vbTextCompare), xlNormal ActiveWorkbook.Close Windows(xWsheet).Activate xCSVFile = Dir Loop Application.StatusBar = False Application.DisplayAlerts = True End Sub
3. Բացվող պատուհանում ընտրեք նշված թղթապանակը, որը պարունակում է CSV ֆայլեր, որոնք ցանկանում եք փոխարկել: Տեսեք,
4: սեղմեք OK, ընտրված թղթապանակի բոլոր CSV ֆայլերը վերափոխվել են դրա մեջ պարունակվող XLS ֆայլերի:
ԱկնարկԵթե ուզում եք CSV ֆայլերը վերափոխել XLSX ֆայլերի, ապա օգտագործում եք ներքևում գտնվող VBA կոդ:
VBA. 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
արագ փոխակերպեք կամ արտահանեք մի թերթի մի շարք ՝ XLS / Word / PDF կամ այլ ձևաչափի ֆայլեր միանգամից առանձնացնելու համար
|
Սովորաբար, Excel- ը չի աջակցում ձեզ ՝ որպես CSV կամ Excel ֆայլ արագորեն արտահանելու կամ պահպանելու տարբերակով: Եթե ցանկանում եք Excel- ում մի շարք տվյալներ պահպանել որպես CSV կամ աշխատանքային գրքույկ, դա անելու համար ձեզ հարկավոր է օգտագործել VBA մակրո կամ այդ տիրույթը պատճենել clipboard- ում և տեղադրել դրանք նոր աշխատանքային գրքում, այնուհետև աշխատանքային գիրքը պահպանել որպես CSV կամ Աշխատանքային գրքույկ Excel- ի համար նախատեսված գործիքներ ավելացնում է Excel- ը հետ Արտահանեք տեսականին ֆայլ օգտակար Excel- ի օգտագործողների համար, ովքեր ցանկանում են արագ մշակել հետևյալ գործողությունները Կտտացրեք 30-օրյա ամբողջական անվճար փորձաշրջանի համար: |
![]() |
Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք: |