Kuinka muuntaa kaikki Excel-levyt CSV: ksi makroilla

Excelin Save As -komennolla voit tallentaa yhden työarkin CSV-muodossa (pilkulla erotettu arvo), mutta ei koko työkirjaa. Yksittäisten arkkien tallentaminen käsin on ikävä hanke suurille työkirjoille, mutta Visual Basic -makroa varten. Erityinen toiminto tietyn laskentataulukon tallentamiseksi CSV: ssä tai useissa muissa muodoissa on työarkin objektin SaveAs-toiminto. Tämä toiminto ottaa useita argumentteja, mutta tarvitset vain kaksi, jos haluat tallentaa laskentataulukon CSV: ksi. Ensimmäinen on tiedostonimi ja toinen, FileFormat, voit määrittää CSV: n tallennusmuotoon.

1.

Luo uusi työkirja Excelissä, joka sisältää makron, ja paina sitten Alt-F11 avataksesi Visual Basicin integroidun kehitysympäristön. Kaksoisnapsauta vasemmalla olevaa navigointiruudun "Tämä työkirja" -kohtaa avataksesi koodiikkunan, johon haluat syöttää makrokoodin.

2.

Liitä seuraava makro, joka tallentaa avoimen työkirjan kaikki arkit CSV-tiedostoiksi. Dim-lauseet luovat muuttujia, joita makro tarvitsee. DisplayAlerts-lause estää Excelin kysymästä, haluatko korvata olemassa olevan CSV-tiedoston, kun suoritat makron. Makroissa olevat jäljellä olevat lausunnot tallentavat kutakin laskentataulukkoa iteratiivisesti "C :mp" -kansioon.

Sub saveSheetsAsCSV () Dim i As Integer Dim fName nimellä String Application.DisplayAlerts = False Kun i = 1 Worksheets.Count fName = "C: MP MySheet" & i ActiveWorkbook.Worksheets (i) .SaveAs Tiedostonimi: = fName, FileFormat: = xlCSV Seuraava i End Sub

3.

Palaa Exceliin ja napsauta Näytä-valikon "Piilota" -komentoa, joka on ikkunaryhmässä, piilottaaksesi työkirjan. Työkirjan piilottaminen estää sinua syöttämästä tietoja vahingossa. Työkirjan ainoa tarkoitus on pitää makro, ei tietoja.

4.

Sulje Excel, joka kysyy, haluatko tallentaa työkirjan, johon olet juuri kirjoittanut makron. Napsauta "Kyllä" ja tallenna sitten työkirja seuraavalla tiedostonimellä ja korvaa Windows-käyttäjätilin nimi "". Excel lataa tämän tiedoston automaattisesti seuraavan käynnistyksen yhteydessä.

C: \ Users \\ AppData \ Roaming \ Microsoft \ Excel \ XLStart \ personal.xlsb

5.

Käynnistä Excel uudelleen, joka lataa piilotetun työkirjan, joka sisältää juuri kirjoittamasi CSV-makron. Avaa jokin olemassa oleva työkirja, jossa on tietoja useammasta kuin yhdestä laskentataulusta, ja paina sitten Alt-F8-näppäintä näyttääksesi makrojen luettelon. Suorita makro napsauttamalla "SaveSheetsAsCSV" -kohtaa.

6.

Avaa tiedostot "C :mp" -kansiossa, jonka nimet alkavat "MySheet" ja päättyvät ".CSV". Tämän vaiheen avulla voit varmistaa, että makro muunnetaan onnistuneesti jokaisen laskentataulukon CSV-tiedostoksi.

 

Jätä Kommentti