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

Sut i swp-drosi ffeiliau CSV lluosog i ffeiliau XLS (X) yn Excel?

Mae trosi ffeil CSV yn ffeil XlS neu XLSX yn hawdd iawn i chi trwy gymhwyso'r nodwedd Save As. Fodd bynnag, mae trosi ffeiliau CSV lluosog i ffeiliau XLS neu XLSX o ffolder yn cymryd llawer o amser trwy arbed fesul un â llaw. Yma, rwy'n cyflwyno cod macro i swpio'n gyflym drosi'r holl ffeiliau CSV i ffeiliau XLS (x) o ffolder.

Swp trosi ffeiliau CSV i ffeiliau XlS (X) gyda chod macro


Swp trosi ffeiliau CSV i ffeiliau XlS (X) gyda chod macro

I drosi ffeiliau CSV lluosog o un ffolder i ffeiliau XLS (X), gallwch wneud fel y nodir isod:

1. Galluogi llyfr gwaith newydd, gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, a chlicio Mewnosod > Modiwlau. Gweler y screenshot:
swp doc trosi cvs xls 1

Nodyn: Sicrhewch fod yr holl ffeiliau CSV rydych chi am eu trosi ar gau.

2. Yna pastiwch o dan y cod macro i'r Modiwlau sgript, a gwasg F5 allwedd i redeg y cod.

VBA: Trosi CSV i 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. Yn y dialog popping out, dewiswch y ffolder penodedig sy'n cynnwys y ffeiliau CSV rydych chi am eu trosi. Gweler y screenshot:
swp doc trosi cvs xls 2

4. Cliciwch OK, mae'r holl ffeiliau CSV yn y ffolder a ddewiswyd wedi'u trosi'n ffeiliau XLS ynddo.
swp doc trosi cvs xls 3

Tip: Os ydych chi am drosi ffeiliau CSV i ffeiliau XLSX, rydych chi'n defnyddio isod cod VBA.

VBA: Trosi ffeiliau CSV i 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

trosi neu allforio ystod o ddalen yn gyflym i wahanu XLS / Word / PDF neu ffeiliau fformat eraill mewn unwaith

Fel rheol, nid yw Excel yn eich cefnogi gydag opsiwn i allforio neu arbed ystod yn gyflym fel ffeil CSV neu Excel. Os ydych chi am arbed ystod o ddata fel CSV neu lyfr gwaith yn Excel, efallai y bydd angen i chi ddefnyddio Macro VBA ar gyfer gwneud hyn neu i gopïo'r ystod i glipfwrdd a'i gludo mewn llyfr gwaith newydd ac yna arbed y llyfr gwaith fel CSV neu Llyfr Gwaith. Kutools ar gyfer Excel ychwanegu at Excel gyda Ystod Allforio i'w Ffeilio cyfleustodau ar gyfer defnyddwyr Excel sydd am brosesu'r gweithrediadau canlynol yn gyflym :  Cliciwch am dreial llawn sylw 30 diwrnod am ddim!
doc allforio ystod celloedd i'r ffeil
 
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Erthyglau Perthynas:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (37)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am wneud y gwrthwyneb - trosi XLS i CSV. ydy'r sgript yma'n gweithio?
Is CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd Fel FfeilDialog
Dim xSPath Fel Llinyn
Dim xXLSFile Fel Llinynnol
Dim xWsheet Fel Llinyn
Application.DisplayAlerts = Gau
Application.StatusBar = Gwir
xWsheet = ActiveWorkbook.Name
Gosod xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Dewis ffolder:"
Os xFd.Show = -1 Yna
xSPath = xFd.SelectedItems(1)
arall
Is Allanfa
Gorffennwch Os
If Right(xSPath, 1) <> "\" Yna xSPath = xSPath + "\"
xXLSFile = Dir(xSPath & "*.xls")
Gwnewch Tra xXLSFile <> ""
Application.StatusBar = "Trosi:" &xXLSFile
Workbooks.Open Filename:=xSPath & xXLSFile
ActiveWorkbook.SaveAs Disodli(xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Actifadu
xXLSFile = Cyf
dolen
Application.StatusBar = Gau
Application.DisplayAlerts = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is TrosiCSVToXlsx()



Dim myfile Fel Llinynnol

Dim oldfname Fel Llinynnol, newfname Fel Llinynnol

Ffeil gwaith pylu

Enw ffolder Dim Fel Llinyn



Application.DisplayAlerts = Gau

Application.ScreenUpdating = Anghywir



' Dal enw'r ffeil gyfredol

myfile = ActiveWorkbook.Name



' Gosod enw ffolder i weithio drwyddo

folderName = "D:\tmp\"



' Cylchdrowch drwy'r holl ffeiliau CSV yn y ffolder

workfile = Dir(folderName & "*.CSV")

Gwneud Tra ffeil gwaith <> ""

' Agor ffeil CSV

Workbooks.Open Filename:=folderName & workfile

' Dal enw hen ffeil CSV

oldfname = ActiveWorkbook.FullName

' Trosi i XLSX

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

ActiveWorkbook.SaveAs Filename:=enw newydd, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=Gwir

ActiveWorkbook.Close

' Dileu hen ffeil CSV

Lladd hen enw

Windows (myfile). Activate

ffeil gwaith = Dir()

dolen



Application.DisplayAlerts = Gwir

Application.ScreenUpdating = Gwir



Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
msgstr "Awgrym: Os ydych am drosi ffeiliau CSV yn ffeiliau XLXS, does ond angen i chi newid .xls i .xlsx yn y macro ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare)."

Ceisiais hyn, ac ni allai Excel agor y ffeiliau canlyniadol. Cefais y neges ganlynol: "Ni all Excel agor y ffeil 'filename.xlsx' oherwydd nad yw fformat y ffeil neu estyniad ffeil yn ddilys. Gwiriwch nad yw'r ffeil wedi'i llygru a bod yr estyniad ffeil yn cyd-fynd â fformat y ffeil."

Fodd bynnag, bu'r sgript yn llwyddiannus ar gyfer trosi i .xls.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni chefais y broblem honno o'r blaen, diolch am eich sylw cywir. Rwyf wedi cywiro'r tip.
Lleihawyd y sylw hwn gan y safonwr ar y wefan

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am eich sgript wych ar gyfer CSV i XLS. Mae'n llawer mwy defnyddiol i'm gwaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Mae eich sgript yn wych ond nid yw'n trosi'r csv wedi'i wahanu gan hanner colon. A allwch chi bostio datrysiad ar gyfer y rheini os gwelwch yn dda?

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennym, yma nid oes gennyf unrhyw ateb, efallai y gallwch chi osod eich cwestiwn i'n fforwm, efallai y bydd rhywun arall yn eich helpu. https://www.extendoffice.com/forum.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Efallai fy mod yn hwyr newydd gael y mater lle roedd angen i mi drosi'r ffeiliau CSV hanner colon ac ychwanegais hwn at y cod a gweithiodd yn gobeithio y bydd hyn yn helpu rhywun

Newid 'Workbooks.Open Filename:=xSPath & xCSVFile' Gan hwn 'Workbooks.Open Filename:=xSPath & xCSVFile, Amffinydd:=";", Lleol:=Gwir'
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y ffeil csv lluosog i xls lluosog ond cefais y ffeil xls de csv anghywir wedi ; gwybodaeth ar wahân ond dod at ei gilydd mewn celloedd. Sut y gellir datrys hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni all y cod gynnal y ffeil atalnod csv.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan roddais enw'r ffolder, dywedodd y rhaglen, "Nid oes unrhyw ffeiliau yn cyfateb i'ch chwiliad." Ond mae yna 2,609 o ffeiliau .csv yn y ffolder
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r cod yn cefnogi'r ffeil atalnod csv, a yw eich ffeiliau yn yr achos hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

erthygl wych - diolch! Bron yn gweithio i mi.

Dyma'r broblem: Mae gen i ffeil csv wedi'i hamffinio â phibell. Rwyf wedi newid amffinydd rhagosodedig ffenestri (trwy banel rheoli / gosodiadau rhanbarthol) i "|". Felly, pan fyddaf yn agor y ffeil csv gydag Excel, mae'n agor, yn darllen yn uniongyrchol ac yn dosrannu'r meysydd i golofnau yn gywir. Y cyfan sy'n rhaid i mi ei wneud yw arbed fel xls neu xlsx, wedi'i wneud. Pan fyddaf yn edrych ar eich cod, dyna ddylai'r cod fod yn ei wneud: Mae'n agor y ffeiliau csv mewn ffolder, yn eu cadw fel xls neu xlsx, ac yn dolenni dros hynny.

Dyma'r broblem: Pan fyddaf yn agor y ffeiliau Excel hynny, mae'r amffinyddion pibell yn dal i fod yno, nid oes dim wedi'i ddosrannu i'r colofnau. Dyma oedd yr ymddygiad fel cyn i mi newid i'r gosodiad rhagosodedig a amffiniwyd pibell yn y gosodiadau Windows. Felly mae'n ymddangos nad yw Excel yn defnyddio'r gosodiadau Windows hynny. Gwiriais hyn trwy osod amffinyddion coma yn lle'r amffinyddion pibell mewn copi o'r ffeil - o'r ddwy ffeil, roedd yr amffinydd pibell yn parhau i fod heb ei dosrannu, cafodd y terfyn atal coma ei drawsnewid yn iawn.

Unrhyw syniad ymhle y gellir dod o hyd i neu newid yr amffiniad coma hwnnw sydd wedi'i ymgorffori mewn Excel, neu a oes ffordd yn y cod i wneud hynny? Byddai'n well gen i BEIDIO â gorfod gwneud chwiliad a disodli, yna arbed ...

Diolch, HC
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os ydych chi am rannu'r data yn golofn yn seiliedig ar yr amffinydd pibell yn Excel, defnyddiwch swyddogaeth Testun i Golofnau i rannu data erbyn / ar ôl cuddio'r ffeiliau csv i xls.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gwneud y cod yn ddefnyddiol ar gyfer ffeiliau excel mewn gwirionedd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sgript wych a weithiodd i mi ar ôl rhoi cynnig ar bob sgript arall sydd ar gael yn google. Rwyf wedi ychwanegu ychydig mwy o linellau sy'n perfformio'r gweithrediad testun i golofnau sydd ei eisiau arnaf. A all unrhyw un fy helpu sut i addasu'r sgript trwy nodi lleoliad y ffolder yn y gyriant lleol yn lle agor y blwch deialog gan fy mod yn awtomeiddio'r system mewn gwirionedd
. Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi
Allech chi rannu'r sgript sy'n perfformio'r testun i golofnau??
Cofion gorau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sgript Gwych ar ôl chwilio pob sgript arall sydd ar gael yn google. A all unrhyw un helpu sut i addasu'r sgript hon trwy nodi lleoliad ffolder yn y gyriant lleol yn lle caniatáu iddo agor y blwch deialog gan fy mod yn awtomeiddio'r system mewn gwirionedd. Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Darn cŵl o god. Defnyddiol iawn. Os nad wyf yn camgymryd mae'r cod ar gyfer .xlsx yn edrych yr un fath â'r cod .xls.

Y llinell hon:
ActiveWorkbook.SaveAs Disodli(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

Rwy'n cymryd y dylai fod yn: ".csv", ".xlsx", vbTextCompare etc.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi newid y cod felly, a ddisgrifir uchod; nawr mae'r sgript yn gweithio yn ôl y disgwyl: mae'n cynhyrchu ffeiliau xlsx
Lleihawyd y sylw hwn gan y safonwr ar y wefan
na, nid ydych wedi. mae'n dal i ddweud xls yn y ddau fersiwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw'r macro hwn yn dangos fy ffeil csv
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Un mater bach gyda'r cod hwn yw y gellir colli rhywfaint o gywirdeb (nifer y degolion) wrth agor csv a'i gadw fel xlsx.
Y ffordd i atal hyn yw dewis pob cell yn union ar ôl agor, gosod nifer y lleoedd degol i'r swm a ddymunir (15 i mi yn bersonol), ac * yna * arbed fel xlsx

Fel arall, mae gan yr xlsx lai o fanylion (llai o gywirdeb o ran degolion) na'r csv gwreiddiol, a all arwain at broblemau mewn rhai cymwysiadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n newid fformat fy ngholofn dyddiad o dd-mm-bbbb i dd/mm/bbbb, a all unrhyw un helpu gyda sut i atal y sgript hon rhag newid fformatau colofn.
Diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, viper, ar ôl trosi, gallwch eu fformatio yn ôl, dewiswch y dyddiadau a chliciwch ar y dde i ddewis Celloedd Fformat o'r ddewislen cyd-destun, yn yr ymgom Fformat Celld, o dan Rhif tab, cliciwch Custom yn y rhestr Categori, yna teipiwch mm-dd- yyyy i mewn i'r blwch testun yn yr adran dde. Neu os oes gennych Kutools ar gyfer Excel, cymhwyso'r Fformatio Dyddiad Ymgeisio i newid y fformat dyddiad yn ôl yr angen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
erthygl wych. Sut alla i, arbed yr holl ffeiliau wedi'u trosi mewn lleoliad newydd? A fyddech cystal â diweddaru'r cod a'i anfon ataf. Fel caniatáu i'r defnyddiwr ddewis ei ffolder cyrchfan.


diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennych wall ar linell 22 y csv i xlsx
Gyda Gwall - Disodli ActiveWorkbook.SaveAs(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
Wedi'i gywiro - ActiveWorkbook.SaveAs Disodli(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich atgoffa, rwyf wedi ei ddiweddaru, diolch eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael gwall "Newidyn gwrthrych neu gyda newidyn bloc heb ei osod" ar gyfer y llinell hon:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> dyma lwybr ffolder arbennig ar fy nghyfrifiadur lle rwy'n gwneud y trosi (mae gan y ffolder griw o ffeiliau csv y tu mewn )

Ydw i'n gwneud rhywbeth o'i le yma?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio i mi, ond nid yw'r estyniad ffeil yn newid. Unrhyw awgrymiadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un peth i mi -- mae pob ffeil yn aros .csv.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r holl ffeiliau csv a ddewiswch wedi'u cadw fel ffeiliau excel newydd, nid yw'r ffeiliau gwreiddiol (csv) yn newid, mae ffeiliau excel newydd gyda'r un cynnwys yn bodoli.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un broblem. Os oes gan eich ffeil ffynhonnell ehangiad mewn prif lythrennau (.CSV) nid yw'n gweithio. Dim ond disodli .csv i .CSV yn y cod yn llinell 22 ac yna dylai weithio. Wel, o leiaf i mi y gwnaeth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut byddwn i'n ymgorffori cod i drefn ffeil swp XLSX i wahanu'r data yn golofnau ar wahân mewn hanner colon? Mae'r cod a rennir yn trosi'r ffeil o .csv i .xlsx, ond nid yw'n gwahanu'r data yn golofnau ar wahân.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ie nid yw'n waith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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 delimitado por ningún tipo de caracter, adicional los tamaños de las columnas son diferentes. Vale la pena aclarar que si tomo cada archifo 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 ac aplico la misma macro a todos, cynhwysol usando la opción de "USAR REFERENCIAS RELATIVAS", nid oes unrhyw beth arall i'w wneud, er mwyn sicrhau bod yr archifau'n cael eu diffinio, er mwyn defnyddio'r ejemplo, mae angen i chi wneud cais am archifau newydd, es decir, beth bynnag, er enghraifft. y le hiciera manualmente la opción de delimitación y no aplic los valores de ubicación de las columnas identificados en el archivo ejemplo.

Ya inserte esa opcion en este archivo, sin embargo pasa lo que indico en la lineas arriba, solo requiero saber mar puedo hacer para aplicar la trosi a archifo cada, applicando la delimitacion del campo como su fuera un archivo nuevo.


Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Disodli(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault

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

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Arae(Arae(0, 1), Array(18 _)
, 1), Array(38, 1)), TrailingMinusNumbers:=Gwir
ActiveCell.Cells.Dewis
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range("A1").Dewiswch
ActiveWorkbook.Save

HASTA AQUI AGREGUE YO

ActiveWorkbook.Close
Windows(xWsheet).Actifadu
xCSVFile = Cyf

dolen
Application.StatusBar = Gau
Application.DisplayAlerts = Gwir
Is-End

Does dim rhaid i mi esbonio, mae rhai problemau.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir