VB-reportをサンプル通りにコーディングすると、
report.FileName = "sample.xls" report.Report.Start("mydoc") report.Report.File() report.Page.Start("mysheet", "1") ' 帳票作成 report.Page.End() report.Report.End()
ところが下記でエラー発生、
for i as integer =1 to 2 report.FileName = "sample.xls" report.Report.Start("mydoc") report.Report.File() report.Page.Start("mysheet", "1") ' 帳票作成 report.Page.End() report.Report.End() next
ようするに2回目以降がエラーとなる。
エラー内容からファイルがオープンできないらしい。
試行錯誤の上、下記で解決。
for i as integer =1 to 2 Dim docname As String = "Doc" & Str(DateTime.Now.Ticks) report.FileName = "sample.xls" report.Report.Start(docname) report.Report.File() report.Page.Start("mysheet", "1") ' 帳票作成 report.Page.End() report.Report.End() next
ようするにドキュメント名を重複しないようにした。