Создание сценария, который переводит .xls в .csv

Question

Добрый день. Буду рад помощи.

Итак, есть база,в ней около 1000 документов в xls формате. Для загрузки в SP2012 папку нужно первести в формат CSV.

Скажите, пожалуйста, можно ли написать какой-ть батник или еще что-то,чтобы делать это было не так тяжело?Проще говоря, переводить автоматически?

Answer 1

Как то так :

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path c:\folder -Filter "*.xls" | ForEach-Object{
    $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
    $newName = ($_.Fullname).Replace($_.Extension,".csv")
    $Workbook.SaveAs($newName,6)
    $Workbook.Close($false)
}
$ExcelWB.quit()

---

Печенкин Николай

Answer 2

Как то так :

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path c:\folder -Filter "*.xls" | ForEach-Object{
    $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
    $newName = ($_.Fullname).Replace($_.Extension,".csv")
    $Workbook.SaveAs($newName,6)
    $Workbook.Close($false)
}
$ExcelWB.quit()

---

Печенкин Николай

Записал вот что

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path C:\Беспалевная папка\DSR\Продажи -Filter "*.xls" | ForEach-Object{
    $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
    $newName = ($_.Fullname).Replace($_.Extension,".csv")
    $Workbook.SaveAs($newName,6)
    $Workbook.Close($false)
}
$ExcelWB.quit(

Ошибка:

Отсутствует ">" в вызове метода.
строка:7 знак:24
+ $ExcelWB.quit($ExcelWB  <<<< = new-object -comobject excel.application

+ CategoryInfo          : ParserError: (CloseParenToken:TokenId) [], ParentContainsErrorRecordException
+ FullyQualifiedErrorId : MissingEndParenthesisInMethodCall

Answer 3

Посмотрите тут: http://blogs.technet.com/b/heyscriptingguy/archive/2011/07/21/use-a-powershell-module-to-easily-export-excel-data-to-csv.aspx

Answer 4

Вы забыли скобку закрыть -- $ExcelWB.quit( -- $ExcelWB.quit(). Только что проверил, все работает.

---

Печенкин Николай

Answer 5

Вы забыли скобку закрыть -- $ExcelWB.quit( -- $ExcelWB.quit(). Только что проверил, все работает.

---

Печенкин Николай

Да. Работает.Спасибо. Но е сть одно но. У меня несколько тысяч файлов. По этому скрипту обрабатывается только 1. Как можно реализовать обработку хотя бы 500 файлов?

Answer 6

Добрый день.

Вы делаете что то не то... Скрипт берет все файлы по одному по пути C:\Беспалевная папка\DSR\Продажи

с расширением xls и пересохраняет. Т.е. ВСЕ файлы. Либо напутали с путем, либо с расширением. На картинке результат прохода.  

---

Печенкин Николай

Answer 7

Добрый день.

Вы делаете что то не то... Скрипт берет все файлы по одному по пути C:\Беспалевная папка\DSR\Продажи

с расширением xls и пересохраняет. Т.е. ВСЕ файлы. Либо напутали с путем, либо с расширением. На картинке результат прохода.  

---

Печенкин Николай

Да. Не заметил - у меня там файлы с расширением xlsx и xls. Как можно подкорректировать скрипт, в связи с новыми обстоятельствами?

Answer 8

Добрый день

Поменяйте в скрипте -Filter "*.xls" на  -Filter "*.xlsx"

---

Печенкин Николай

Answer 9

И опять же. Создал специально папку c:\folder,удалил все xlsx,оставил xls.

Вывожу

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path c:\folder -Filter "*.xls" | ForEach-Object{
    $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
    $newName = ($_.Fullname).Replace($_.Extension,".csv")
    $Workbook.SaveAs($newName,6)
    $Workbook.Close($false)
}
$ExcelWB.quit()

и ничего.

попробовал добавить еще xlsx

Вывожу

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path c:\folder -Filter "*.xls","*.xlsx" | ForEach-Object{
    $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
    $newName = ($_.Fullname).Replace($_.Extension,".csv")
    $Workbook.SaveAs($newName,6)
    $Workbook.Close($false)
}
$ExcelWB.quit()

так же ничего

Answer 10

Добрый день

Поменяйте в скрипте -Filter "*.xls" на  -Filter "*.xlsx"

---

Печенкин Николай

Да, пробовал. Не помогает,и добавлял новый, к xls

Answer 11

Добрый день.

Я прям не знаю как вы делаете, вот, только что проверил )

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path c:\folder -Filter "*.xlsx" | ForEach-Object{
     $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
     $newName = ($_.Fullname).Replace($_.Extension,".csv")
     $Workbook.SaveAs($newName,6)
     $Workbook.Close($false)
 }
 $ExcelWB.quit()

Только что пришло в голову ))) а Excel то умеет открывать xlsx на машине на которой запускаете ?

---

Печенкин Николай

Answer 12

Добрый день.

Я прям не знаю как вы делаете, вот, только что проверил )

$ExcelWB = new-object -comobject excel.application

Get-ChildItem -Path c:\folder -Filter "*.xlsx" | ForEach-Object{
     $Workbook = $ExcelWB.Workbooks.Open($_.Fullname)
     $newName = ($_.Fullname).Replace($_.Extension,".csv")
     $Workbook.SaveAs($newName,6)
     $Workbook.Close($false)
 }
 $ExcelWB.quit()

Только что пришло в голову ))) а Excel то умеет открывать xlsx на машине на которой запускаете ?

---

Печенкин Николай

Да,конечно

Answer 13

Ну результат в предыдущем посте. У меня работает

---

Печенкин Николай

Answer 14

Ну результат в предыдущем посте. У меня работает

---

Печенкин Николай

Теперь вообще перестало работать

Answer 15

Я дал вам рабочий скрипт, больше не знаю чем помочь )

---

Печенкин Николай