1

どうすればいいのかよくわからないという要件があります。ファイル Doc.xml があります。これは Microsoft XML 形式です。Doc.xml を Doc.xlsx に変更/変換する VB スクリプトを作成する必要があるため、ユーザーがファイルを開こうとすると、Excel ファイルとして開かれます。

要件の 1 つは、このスクリプトが Windows スケジューラから実行されることです。

任意のアイデアや推奨事項は本当に高く評価されます。

これは私が作成したスクリプトで動作していますが、SaveAs 拡張子を「.csv」に変更しようとすると、ファイルが正しく保存されません。CSVに保存するためのコードが何であるかを調べる必要があると思います。

Dim objXLApp, objXLWb, objXLWs

Set objXLApp = CreateObject("Excel.Application")

objXLApp.Visible = True

Set objXLWb = objXLApp.Workbooks.Open("C:\Users\jmejia\Desktop\XML_F\ZOOSHR_130622.xml")

'Do nothing with File, just open it to be save agains as a new file format

objXLWb.SaveAs "C:\Users\jmejia\Desktop\XML_F\ZOOSHR_130622.xlsx", 51

objXLWb.Close (False)

Set objXLWs = Nothing
Set objXLWb = Nothing

objXLApp.Quit
Set objXLApp = Nothing
4

2 に答える 2

0 
Const xlXLSX = 51

REM 51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
REM 52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
REM 50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
REM 56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)

dim args
dim file
dim sFile
set args=wscript.arguments

dim wshell
Set wshell = CreateObject("WScript.Shell")

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open( wshell.CurrentDirectory&"\"&args(0))

objExcel.DisplayAlerts = FALSE

objExcel.Visible = FALSE

objWorkbook.SaveAs wshell.CurrentDirectory&"\"&args(1), xlXLSX

objExcel.Quit

Wscript.Quit
于 2014-12-17T12:27:18.913 に答える