Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Excel- ում բազմակի CSV ֆայլեր փոխարկել XLS (X) ֆայլերի:

CSV ֆայլը XlS կամ XLSX ֆայլ փոխակերպելու համար ձեզ համար շատ հեշտ է ՝ կիրառելով Save As հատկությունը: Այնուամենայնիվ, թղթապանակից մի քանի CSV ֆայլեր XLS կամ XLSX ֆայլերի վերածելը ժամանակատար է ՝ ձեռքով մեկ առ մեկ խնայելով: Այստեղ ես ներմուծում եմ մակրո կոդ ՝ բոլոր CSV ֆայլերը փաթեթից արագ խմբաքանակ դարձնելու համար XLS (x) ֆայլերի:

Խմբաքանակը CSV ֆայլերը մակրո կոդով փոխակերպում է XlS (X) ֆայլերի


Խմբաքանակը CSV ֆայլերը մակրո կոդով փոխակերպում է XlS (X) ֆայլերի

Բազմաթիվ CSV ֆայլեր մեկ թղթապանակից XLS (X) ֆայլերի վերափոխելու համար կարող եք անել հետևյալ քայլերը.

1. Միացնել նոր աշխատանքային գիրքը, սեղմել Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը և սեղմեք Տեղադրել > Մոդուլներ, Տեսեք,
doc խմբաքանակի փոխակերպել cvs xls 1

ՆշումՀամոզվեք, որ բոլոր 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 ֆայլեր, որոնք ցանկանում եք փոխարկել: Տեսեք,
doc խմբաքանակի փոխակերպել cvs xls 2

4: սեղմեք OK, ընտրված թղթապանակի բոլոր CSV ֆայլերը վերափոխվել են դրա մեջ պարունակվող XLS ֆայլերի:
doc խմբաքանակի փոխակերպել cvs xls 3

ԱկնարկԵթե ​​ուզում եք 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-օրվա ամբողջական ցուցադրված անվճար փորձարկում:
փաստաթղթերի արտահանման բջիջների տիրույթը
 
Kutools Excel-ի համար. ավելի քան 300 հարմար Excel հավելումներով, անվճար փորձելու առանց սահմանափակման 30 օր.

Հարաբերական հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (38)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ հակառակն անել՝ XLS-ը վերածել CSV-ի: այս սցենարը աշխատում է?
Ենթ CSVtoXLS()
― ԹարմացնելովExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath որպես տող
Dim xXLSFile որպես տող
Dim xWsheet որպես տող
Application.DisplayAlerts = Սխալ
Application.StatusBar = Ճշմարիտ
xWsheet = ActiveWorkbook.Name
Սահմանել xFd = Application.FileDialog (msoFileDialogFolderPicker)
xFd.Title = «Ընտրեք թղթապանակ.
Եթե ​​xFd.Show = -1 Ապա
xSPath = xFd.SelectedItems(1)
Ուրիշ
Ելք ենթ
Վերջ: Եթե
Եթե ​​Right (xSPath, 1) <> "\" Ապա xSPath = xSPath + "\"
xXLSFile = Dir(xSPath & «*.xls»)
Do while xXLSFile <> ""
Application.StatusBar = "Փոխակերպում. " & xXLSFile
Աշխատանքային գրքեր: Բացեք Ֆայլի անունը.=xSPath & xXLSFile
ActiveWorkbook.SaveAs Replace (xSPath & xXLSFile, «.xls», «.csv», vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows (xWsheet): Ակտիվացրեք
xXLSFile = Ռեժ
Հանգույց
Application.StatusBar = Սխալ
Application.DisplayAlerts = Ճիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub ConvertCSVToXlsx()



Dim myfile As String

Dim oldfname As String, newfname As String

Պղտոր աշխատանքային ֆայլ

Պղտոր թղթապանակի անունը որպես տող



Application.DisplayAlerts = Սխալ

Դիմում. ScreenUpdating = Սուտ է



Լուսանկարեք ընթացիկ ֆայլի անունը

myfile = ActiveWorkbook.Name



Սահմանեք թղթապանակի անունը, որպեսզի աշխատի

folderName = "D:\tmp\"



Անցեք պանակի բոլոր CSV ֆայլերի միջով

աշխատանքային ֆայլ = Dir(թղթապանակի անունը և «*.CSV»)

Do while workfile <> ""

Բացեք CSV ֆայլը

Աշխատանքային գրքեր: Բացեք Ֆայլի անունը.=folderName & workfile

Լուսանկարեք հին CSV ֆայլի անունը

oldfname = ActiveWorkbook.FullName

Փոխակերպեք XLSX-ի

newfname = folderName & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx"

ActiveWorkbook.SaveAs Ֆայլի անուն:=newfname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True

ActiveWorkbook.Close

Ջնջել հին CSV ֆայլը

Սպանիր oldfname-ը

Windows (myfile): Ակտիվացրեք

աշխատանքային ֆայլ = Dir()

Հանգույց



Application.DisplayAlerts = Ճիշտ է

Դիմում. ScreenUpdating = ueիշտ է



Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«Խորհուրդ. Եթե ցանկանում եք CSV ֆայլերը փոխարկել XLXS ֆայլերի, պարզապես պետք է .xls-ը փոխեք .xlsx մակրո ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, «.csv», «.xls», vbTextCompare):»

Ես փորձեցի սա, և Excel-ը չկարողացավ բացել ստացված ֆայլերը: Ես ստացա հետևյալ հաղորդագրությունը. «Excel-ը չի կարող բացել «filename.xlsx» ֆայլը, քանի որ ֆայլի ձևաչափը կամ ֆայլի ընդլայնումը վավեր չէ: Ստուգեք, որ ֆայլը վնասված չէ և որ ֆայլի ընդլայնումը համապատասխանում է ֆայլի ձևաչափին»:

Այնուամենայնիվ, սցենարը հաջողվեց .xls-ի փոխակերպման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նախկինում չէի գտել այդ խնդիրը, շնորհակալություն ձեր ճիշտ մեկնաբանության համար: Ես ուղղել եմ հուշումը։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ CSV-ից XLS-ի ձեր հիանալի սցենարի համար: Դա շատ ավելի օգտակար է իմ աշխատանքի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Ձեր սցենարը հիանալի է, բայց այն չի փոխակերպում ստորակետերով բաժանված csv-ն: Խնդրում եմ, կարո՞ղ եք դրանց լուծումը տեղադրել:

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, այստեղ ես լուծում չունեմ, միգուցե դուք կարող եք ձեր հարցը տեղադրել մեր ֆորումում, մեկ ուրիշը կարող է օգնել ձեզ: https://www.extendoffice.com/forum.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կարող էի ուշանալ, ես պարզապես ստացա այն խնդիրը, որտեղ ես պետք է փոխարկեի CSV ֆայլերը, և ես սա ավելացրի կոդի մեջ և ստացվեց, հուսով եմ, որ դա կօգնի ինչ-որ մեկին

Փոխեք «Workbooks.Open Filename:=xSPath & xCSVFile» այս «Workbooks.Open Filename:=xSPath & xCSVFile, Delimiter:=";», Local:=True:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործեցի բազմաթիվ csv ֆայլը մի քանի xls-ի համար, բայց սխալ ստացա xls de csv ֆայլերը; տարանջատված տեղեկատվություն, բայց դառնում են միասին բջիջներում: Ինչպե՞ս կարող է սա լուծվել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդը չի կարող աջակցել բաժանված ստորակետով csv ֆայլին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես տվեցի թղթապանակի անունը, ծրագիրն ասաց՝ «Ոչ մի ֆայլ չի համապատասխանում ձեր որոնմանը»: Բայց թղթապանակում կա 2,609 .csv ֆայլ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդը չի աջակցում առանձնացված ստորակետերով csv ֆայլին, արդյո՞ք ձեր ֆայլերը այս դեպքում են:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

հիանալի հոդված - շնորհակալություն: Գրեթե աշխատում է ինձ համար:

Ահա խնդիրը. ես խողովակներով սահմանազատված csv ֆայլ ունեմ: Ես փոխել եմ պատուհանների կանխադրված սահմանազատիչը (կառավարման վահանակի/տարածաշրջանային կարգավորումների միջոցով) «|»: Այսպիսով, երբ ես բացում եմ csv ֆայլը Excel-ով, այն բացվում է, ուղղակիորեն կարդում և ճիշտ վերլուծում է դաշտերը սյունակներում: Ինձ մնում է միայն պահպանել որպես xls կամ xlsx, ավարտված է: Երբ ես նայում եմ ձեր կոդը, դա պետք է լինի այն, ինչ անում է կոդը. այն բացում է csv ֆայլերը թղթապանակում, պահում դրանք որպես xls կամ xlsx, և պտտվում է դրա վրա:

Խնդիրն այստեղ է. Երբ ես բացում եմ Excel-ի այդ ֆայլերը, խողովակների սահմանազատողները դեռ այնտեղ են, ոչինչ չի վերլուծվում սյունակներին: Սա այն վարքագիծն էր, ինչպես նախկինում իմ փոփոխությունը դեպի խողովակի սահմանազատված լռելյայն կարգավորումը Windows-ի կարգավորումներում: Այսպիսով, թվում է, թե Excel-ը չի օգտագործում Windows-ի այդ կարգավորումները: Ես դա ստուգեցի՝ փոխարինելով խողովակների սահմանազատիչները ստորակետերով սահմանազատիչներով ֆայլի պատճենում. երկու ֆայլերից խողովակով սահմանազատվածը մնաց չվերլուծված, իսկ ստորակետով սահմանազատվածը փոխարկվեց լավ:

Կա՞ պատկերացում, թե Excel-ում ներկառուցված ստորակետերի սահմանազատումը որտեղ կարելի է գտնել կամ փոխել, կամ արդյոք կոդի մեջ կա դա անելու միջոց: Ես կնախընտրեի, որ ստիպված չլինեմ փնտրել և փոխարինել, հետո պահպանել...

Շնորհակալություն, HC
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ցանկանում եք տվյալները բաժանել սյունակի՝ հիմնվելով Excel-ում խողովակների սահմանազատիչի վրա, պարզապես օգտագործեք «Text to Columns» ֆունկցիան՝ տվյալները բաժանելու համար / csv ֆայլերը xls-ի ծածկելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իրականում կոդը օգտակար չի դարձնում excel ֆայլերի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, հիանալի սցենար, որն ինձ համար աշխատեց՝ Google-ում հասանելի բոլոր մյուս սցենարները փորձելուց հետո: Ես ավելացրել եմ ևս մի քանի տող, որոնք կատարում են տեքստը իմ ուզած սյունակների գործողությունը: Կարո՞ղ է որևէ մեկը ինձ օգնել, թե ինչպես փոփոխել սկրիպտը՝ նշելով թղթապանակի գտնվելու վայրը տեղական դրայվում՝ երկխոսության տուփը բացելու փոխարեն, քանի որ ես իրականում ավտոմատացնում եմ համակարգը:
. Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi
Կարո՞ղ եք կիսվել այն սցենարով, որը կատարում է տեքստը սյունակներում:
Հարգանքով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց սցենար Google-ում հասանելի բոլոր մյուս սցենարները որոնելուց հետո: Որևէ մեկը կարո՞ղ է օգնել, թե ինչպես փոփոխել այս սկրիպտը` նշելով թղթապանակի գտնվելու վայրը տեղական դրայվում, այլ ոչ թե թույլ տալ, որ այն բացի երկխոսության տուփը, քանի որ ես իրականում ավտոմատացնում եմ համակարգը: Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թույն կոդ: Շատ օգտակար. Եթե ​​չեմ սխալվում, .xlsx-ի կոդը նույնն է, ինչ .xls կոդը:

Այս տողը.
ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, «.csv», «.xls», vbTextCompare), xlWorkbookDefault

Ես ենթադրում եմ, որ դա պետք է լինի՝ «.csv», «.xlsx», vbTextCompare և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոխել եմ վերևում նկարագրված ծածկագիրը. այժմ սցենարն աշխատում է այնպես, ինչպես սպասվում էր. այն ստեղծում է xlsx ֆայլեր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ոչ, դուք չունեք: այն դեռ ասում է xls երկու տարբերակներում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այս մակրոն չի ցուցադրում իմ csv ֆայլը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդի հետ կապված մի փոքր խնդիրն այն է, որ որոշակի ճշգրտություն (տասնորդականների թիվը) կարող է կորցնել csv-ը բացելիս և այն պահել որպես xlsx:
Դա կանխելու միջոցն այն է, որ բացելուց անմիջապես հետո ընտրենք բոլոր բջիջները, սահմանենք տասնորդական վայրերի թիվը ցանկալի չափով (անձամբ ինձ համար 15) և *այնուհետև* խնայելով որպես xlsx:

Հակառակ դեպքում, xlsx-ն ունի ավելի քիչ մանրամասներ (ավելի քիչ ճշգրտություն տասնորդականների առումով), քան բնօրինակ csv-ն, ինչը կարող է խնդիրներ առաջացնել որոշ հավելվածներում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն փոխում է իմ ամսաթվի սյունակի ձևաչափը dd-mm-yyyy-ից dd/mm/yyyy, խնդրում եմ որևէ մեկը կարող է օգնել, թե ինչպես կանխել այս սցենարը սյունակի ձևաչափերը փոխելուց:
Thanks a lot.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, viper, փոխարկումից հետո կարող եք դրանք ետ ձևաչափել, ընտրել ամսաթվերը և աջ սեղմել՝ համատեքստի ընտրացանկից Format Celld-ում ընտրելու համար, Format Celld երկխոսության մեջ, Number ներդիրում, սեղմեք Custom Կատեգորիայի ցանկում, այնուհետև մուտքագրեք mm-dd-: yyyy տեքստային տուփի մեջ աջ հատվածում: Կամ եթե դուք ունեք Kutools Excel- ի համար, կիրառելով Ամսաթվի ֆորմատավորումը, որպեսզի փոխեք ամսաթվի ձևաչափը, ինչպես ձեզ անհրաժեշտ է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հիանալի հոդված: Ինչպե՞ս կարող եմ պահպանել բոլոր փոխարկված ֆայլերը նոր վայրում: Կարող եք թարմացնել կոդը և ուղարկել ինձ: Ինչպես, որ թույլ է տալիս օգտվողին ընտրել իր նպատակակետ թղթապանակը:


Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք սխալ ունեք csv-ի xlsx-ի 22-րդ տողում
Սխալով - ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, «.csv», «.xls», vbTextCompare), xlWorkbookDefault
Ուղղված է - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն հիշեցման համար, ես թարմացրել եմ այն, կրկին շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս տողի համար ես սխալ եմ ստանում «Օբյեկտի փոփոխական կամ բլոկ փոփոխականով սահմանված չէ».
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> սա իմ համակարգչի որոշակի թղթապանակի ուղին է, որտեղ ես կատարում եմ փոխարկումը (թղթապանակը ներսում ունի csv ֆայլերի փունջ: )

Արդյո՞ք ես այստեղ ինչ-որ բան սխալ եմ անում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա աշխատում է ինձ համար, բայց ֆայլի ընդլայնումը չի փոխվում: Ինչ-որ խորհուրդներ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույնը ինձ համար. բոլոր ֆայլերը մնում են .csv:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր ընտրած բոլոր csv ֆայլերը պահվել են որպես նոր excel ֆայլեր, բնօրինակ ֆայլերը (csv) չեն փոխվում, կան նոր excel ֆայլեր՝ նույն բովանդակությամբ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույն խնդիրն ունեի։ Եթե ​​ձեր սկզբնաղբյուր ֆայլը մեծատառերով (.CSV) ընդլայնում ունի, այն չի աշխատում: Պարզապես փոխարինեք .csv-ն .CSV-ով 22-րդ տողում գտնվող կոդի մեջ և այն պետք է աշխատի: Դե, գոնե ինձ համար դա արեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ կոդը ներառել XLSX խմբաքանակային ֆայլի առօրյայի մեջ՝ կիսատ-ստորակետով տվյալները առանձին սյունակների բաժանելու համար: Համօգտագործվող կոդը ֆայլը փոխակերպում է .csv-ից .xlsx-ի, սակայն այն չի բաժանում տվյալները առանձին սյունակների:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այո, դա չի աշխատում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Buenos dias compañeros

Adiciona a lo que hace el script, quisiera poder convertir inmediatamente el texto en columnas, por la opción que no es limitado por ningún tipo de caracter, adicional los tamaños de las columnas son diferentes. Vale la pena aclarar que si tomo cada archivo por separado y le aplico la opción de texto en columnas, bajo esa opción los puedo convertir sin problemas, abriéndolos uno por uno, pero si grabo esa macro y le aplico la misma macro a todos, usando la opción de «USAR REFERENCIAS RELATIVAS», no hace el processo bien, porque el graba las posiciones de la delimitación del archivo que uso de ejemplo, pero necesito que lo aplique nuevo a cada archivo, es sibrievo, es sibrievo, y le hiciera manualmente la opción de delimitación y no aplique los valores de ubicación de las columnas identificados en el archivo ejemplo.

Տեղադրեք այս ընտրանքը արխիվային արխիվին, մեղքի արգելքը, որը կարող է ազդել գծերի վրա, մենակ պահանջել սաբերը, ինչպես նաև փոխակերպումը արխիվային արխիվին, կիրառեք սահմանազատման դել ճամբարը:


Աշխատանքային գրքեր: Բացեք Ֆայլի անունը.=xSPath և xCSVFile
ActiveWorkbook.SaveAs Replace (xSPath & xCSVFile, «.csv», «.xlsx», vbTextCompare), xlWorkbookDefault

ESTA PARTE ES LA QUE AGREGUE APLICANDO EL FORMATO DEL TEXTO A COLUMNAS

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(18 _
, 1), զանգված (38, 1)), TrailingMinusNumbers:=Ճիշտ
ActiveCell.Cells.Select
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range(«A1»).Ընտրեք
ActiveWorkbook.Save

ՀԱՍՏԱ ԱԿՈՒԻ ՀԱՄԱՁԱՅՆՈՒՄ ԵՆ

ActiveWorkbook.Close
Windows (xWsheet): Ակտիվացրեք
xCSVFile = Ռեժ

Հանգույց
Application.StatusBar = Սխալ
Application.DisplayAlerts = Ճիշտ է
Վերջ Sub

No se si me hago explicar bien, pero es mi problema.
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից