掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
excelバインディングで2回実行するとエラー発生 (ID:100839)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記コードでエクセルのバインディングをしています。 シート１を元にグラフを作成していますが、矢印部分でエラー発生します。 エラー内容は 実行時エラー1004 sheetsメソッドは失敗しました。'_global'オブジェクト と表示されます。 印刷ボタンをクリックされると下記コードが実行されるのですが １回目は正常にいきます。印刷終了後、再度印刷ボタンをクリックすると エラー発生します。 どうすれば改善されるでしょうか？ PC環境VB6.0、WindowsXPPROSP2 Dim xlApp As New Excel.Application, xlBook As New Excel.Workbook xlApp.Application.Visible = True xlApp.Application.ScreenUpdating = False Set xlBook = xlApp.Application.Workbooks.Open(PCPATH & HYO) xlBook.Charts.Add xlBook.Sheets("Graph1").ChartType = xlColumnClustered ↓エラー発生 xlBook.Sheets("Graph1").SetSourceData Source:=Sheets("Sheet1").Range("A1:B" & row), PlotBy:=xlColumns ↑ xlBook.Sheets("Graph1").Location Where:=xlLocationAsNewSheet 宜しくお願い致します
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.