1

Excel スプレッドシートを csv ファイルに変換する必要があります。開いて手動で保存するのではなく、自律的に実行したいと思います。これをバッチファイルに取り込もうとしているので、何もインストールする必要もありません。エクセル2007を使用しています。

このサイトや他のサイト全体を検索しましたが、まだ完全な解決策を見つけることができませんでした. 別の質問からこのvbsコードを見つけたので、始めてくれた人に感謝します。

if WScript.Arguments.Count < 2 Then
WScript.Echo "Please specify the source and the destination files. Usage: ExcelToCsv <xls/xlsx source file> <csv destination file>"
Wscript.Quit
End If

csv_format = 6

Set objFSO = CreateObject("Scripting.FileSystemObject")

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

Dim oExcel
Set oExcel = CreateObject("Excel.Application")

Dim oBook
set oBook = oExcel.WorkBooks.Open(src_file)

oBook.SaveAs dest_file, csv_format

oBook.Close False
oExcel.Quit

私が直面している問題は、oExcel.WorkBooks.Open(src_file) にあります。「ワークブックの Open プロパティを取得できません」エラー コード 800A03EC というエラーが継続的に発生します。

そのエラーを調査したところ、サーバー上のコードに問題があり、人々が提案した修正は機能しませんでした。これはサーバー上ではありません。クライアント側のローカル ファイルで実行しようとしています。別のExcelファイルでスクリプトを試してみましたが、完全に機能します。これとの違いは、それを開くと、Office File Validation からセキュリティ アラートが表示されることです。

スクリプトで開くときに Office ファイル検証の警告をスキップする方法について何か考えはありますか?

4

0 に答える 0