Conas baisc comhaid iolracha CSV a thiontú go comhaid XLS (X) in Excel?

Tá sé an-éasca duit comhad CSV a thiontú go comhad XlS nó XLSX tríd an ngné Save As a chur i bhfeidhm. Tógann sé go leor ama, áfach, chun comhaid CSV iolracha a thiontú go comhaid XLS nó XLSX ó fhillteán trí shábháil ceann ar cheann de láimh. Seo a thugann mé macra-chód isteach chun gach comhad CSV a thiontú go comhaid XLS (x) ó fhillteán go tapa.

Tiontaigh baisc comhaid CSV go comhaid XlS (X) le macra-chód

Tiontaigh baisc comhaid CSV go comhaid XlS (X) le macra-chód

Chun comhaid CSV iolracha a thiontú ó fhillteán amháin go comhaid XLS (X), is féidir leat déanamh mar atá thíos céimeanna:

1. Cumasaigh leabhar oibre nua, brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus cliceáil Ionsáigh > Modúil. Féach an pictiúr:

nótaí: Déan cinnte go bhfuil gach comhad CSV a theastaíonn uait a thiontú dúnta.

2. Ansin greamaigh thíos an cód macra chuig an Modúil script, agus brúigh F5 eochair chun an cód a rith.

VBA: Tiontaigh CSV go 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. Sa dialóg popping amach, roghnaigh an fillteán sonraithe ina bhfuil na comhaid CSV a theastaíonn uait a thiontú. Féach an pictiúr:

4. cliceáil OK, athraíodh na comhaid CSV go léir san fhillteán roghnaithe go comhaid XLS ann.

Leid: Más mian leat comhaid CSV a thiontú go comhaid XLSX, úsáideann tú thíos cód VBA.

VBA: Tiontaigh comhaid CSV go 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

raon bileog a thiontú nó a easpórtáil go tapa chun comhaid XLS / Word / PDF nó formáid eile a scaradh in aon uair amháin

De ghnáth, ní thacaíonn Excel leat le rogha raon a easpórtáil nó a shábháil go tapa mar chomhad CSV nó Excel. Más mian leat raon sonraí a shábháil mar CSV nó mar leabhar oibre in Excel, b’fhéidir go mbeidh ort Macra VBA a úsáid chun é seo a dhéanamh nó chun an raon a chóipeáil go gearrthaisce agus é a ghreamú i leabhar oibre nua agus ansin an leabhar oibre a shábháil mar CSV nó Leabhar Oibre. Kutools le haghaidh Excel méadaíonn Excel le Raon Easpórtála go Comhad fóntais d’úsáideoirí Excel ar mian leo na hoibríochtaí seo a leanas a phróiseáil go tapa ：  Cliceáil le haghaidh 30-lá triail iomlán saor in aisce le feiceáil!

Kutools le haghaidh Excel: le níos mó ná 300 breiseán handy Excel, saor in aisce chun iarracht a dhéanamh gan aon teorainn i 30 lá.

Ailt Choibhneasta:

• Conas comhad csv a thiontú go comhad xls nó csv a iompórtáil / a oscailt in Excel?
• Conas doiciméad focal a thiontú go bileog oibre ar fheabhas?

---

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

• Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
• Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
• Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
• Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
• Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
• Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
• Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
• Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
• Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ... 

---

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

• Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
• Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
• Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...