スクリプトからxlsx形式で出力

[rockhill]

初歩的な質問ですいません。

スクリプトからＥｘｃｅｌデータを出力したいと思っています。

QVDやCSVは下記で出力できます。

QVD　Store 売上明細 Into [lib://売上データ/売上明細.qvd];

CSV　Store 売上明細 Into [lib://売上データ/売上明細.csv](txt);

xlsxで出力する場合、(txt)の中身の何にすればいいのでしょうか？

[hka]

残念ながらスクリプトではxlsx形式に出力はできません。

[el_aprendiz111]

Hi,

1 Option = Macro

Sub Save_Excel
set xlApp = CreateObject("Excel.Application")
xlApp.visible = False
xlApp.ScreenUpdating = False
xlApp.DisplayAlerts=false

xlApp.Workbooks.Add
Set wbTarget = xlApp.Workbooks(1)


ActiveDocument.GetSheetObject("CH15").CopyTableToClipBoard TRUE
xlApp.Worksheets(1).Paste
xlApp.DisplayAlerts = FALSE

wbTarget.SaveAs ("yourPath\yourFileName.xlsx")

wbTarget.Save
wbTarget.close
xlApp.quit

MsgBox "Export Complete & Saved in .......xxx...xxx."
'clean up
set wbTarget = nothing
set xlApp = nothing

end sub

[rockhill · Accepted solution]

わかりました。

ありがとうございます。