| > シート名が決め打ちなのがつらいですよね
> エクセル2016
> 桐Ver.9 を使用しております。
桐が Ver9 と言う時点で Excel2016 は基本的には
ダメじゃないの。
なので、次のような VBScript で CSV ファイルに
一括変換し、あとで桐で取り込むなんて方法も
あります。
xls2csv.vbs x:\path\excel.xls 100
引数として、Excelファイル名 と
変換する シート数
実行すると
excel.xls.1.csv
excel.xls.2.csv
・
・
・
excel.xls.100.csv
と言うように CSVファイルが作成されます。
-------------------------------------------
Dim arg, xls, xl, book, sheet
Set arg = WScript.Arguments
If Arg.Count < 2 Then
WScript.Quit
End If
xls = arg(0)
maxsheet = arg(1)
Set xl = Wscript.CreateObject("Excel.Application")
xl.Visible = Fales
xl.DisplayAlerts = Fales
Set book = xl.WorkBooks.Open(xls)
for i=1 to maxsheet
Set sheet = book.worksheets(CInt(i))
Sheet.Activate
book.SaveAs xls & "." & i & ".csv" , 6
next
'book.SaveAs "x:\filename.ext", xlCSV
'xlCSV = 6
'xlCSVMac = 22
'xlCSVMSDOS = 24
'xlCSVWindows = 23
'book.Close True
xl.Quit
Set xl = Nothing
Set arg = Nothing
-------------------------------------------
|
