![Upgraded URLs Hangout on Air](https://i.ytimg.com/vi/IQBR_LT7pS4/hqdefault.jpg)
Съдържание
В Microsoft Excel можете лесно да конвертирате документ в CSV, като изберете подходящ тип файл в диалоговия прозорец "Save As". Чрез този метод ще се преобразува само активният работен лист. Това е така, защото CSV файловете могат да съдържат само един работен лист. За да конвертирате няколко CSV електронни таблици, трябва да ги експортирате един по един и това включва активиране на всеки един, преместване в празен документ и след това запазване като CSV. За да направите тази задача по-лесна и по-удобна, използвайте макроси.
инструкции
-
Стартирайте Microsoft Excel и отворете документа.
-
Натиснете "Alt + F8", за да отворите прозореца за макроси. Въведете „ExportSheetsToCSV“ в опцията за име на макроса и след това кликнете върху „Създаване“.
-
Въведете следния код в редактора VBA. Този макрос ще създаде CSV файловете в същата папка като вашия документ, използвайки името на работните листове за файловете.
Sub ExportSheetsToCSV ()
Dim wSheet Като работен лист Dim csvFile As String
За всеки wSheet в работни листове при грешка Resume Next wSheet.Copy csvFile = CurDir & "& wSheet.Name &" .csv "ActiveWorkbook. True ActiveWorkbook.Close Next wSheet
Край Под
-
Затворете VBA редактора и се върнете към документа.
-
Натиснете отново "Alt + F8", за да отворите прозореца за макроси. Изберете „ExportSheetsToCSV“ от списъка и след това кликнете върху „Изпълни“. Изчакайте, докато Excel завърши преобразуването на електронни таблици.
съвети
- Ако искате да запишете CSV файловете в друга папка, заменете "CurDir" на ред 9 с пътя на папката, която предпочитате. Можете също да преместите документа в избраната от вас папка, преди да стартирате макроса.
предупредителен
- По подразбиране макросите са деактивирани в Microsoft Excel. За да ги активирате, щракнете върху бутона "Microsoft Office", отидете на "Опции на Excel" и след това се уверете, че е избрана опцията "Преглед на раздела за програмисти в опциите". В някои случаи ще трябва да рестартирате Excel, за да влязат в сила промените.