0

あるフォルダー内の XML ファイルを開き、それらを Excel ファイルとして別のフォルダーに保存する VBScript があります。

結果のExcelファイルにはXLS拡張子がありませんが、うまくいくようです。なぜですか？

スクリプトで実行したいのは、ソースフォルダーからすべてのファイルを削除することです。どうすればいいですか？

Dim xlApp, xlWkb, SourceFolder,TargetFolder,file
Set xlApp = CreateObject("excel.application")
set fs = CreateObject("Scripting.FileSystemObject")
Const xlNormal=1
SourceFolder="c:\test\xml"
TargetFolder="c:\test\xls"

'Hide Excel
xlApp.Visible = false

'Process each file in SourceFolder
for each file in fs.GetFolder(SourceFolder).files
'Open file in SourceFolder
Set xlWkb = xlApp.Workbooks.Open(file)
'Get Filename
BaseName= fs.getbasename(file)
'Concatenate full path. Extension will be automatically added by Excel
FullTargetPath=TargetFolder & "\" & BaseName
'Save as XLS file into TargetFolder
xlWkb.SaveAs FullTargetPath, xlNormal
'Close file
xlWkb.close
next

Set xlWkb = Nothing
Set xlApp = Nothing
Set fs = Nothing
4

1 に答える 1

0

あなたがそれを与えていないので、ファイルは拡張子を取得しません。

出力ファイルは

TargetFolder & "\" & fs.GetBaseName( file )

GetBaseName には拡張子は含まれません。拡張子を付けるだけ

TargetFolder & "\" & fs.GetBaseName( file ) & ".xls"
于 2013-10-14T16:21:29.377 に答える