VB-reportの不思議な現象

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

ようするにドキュメント名を重複しないようにした。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です