| 投稿日 | ： 2004/02/06(Fri) 11:19 |
| 投稿者 | ： ak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: VBからExcelのグラフをPictureBoxに表示 |
> > こちらの環境(VB6SP5,Excel2000)では問題なく動きます。
> > 「Microsoft Excel X.X Object Library」を参照設定してますよね？
> > フォームにCommandButton,PictureBoxを１つずつ配置し、ソースはその
> > ままコピーして試してみてください。
>
> レスありがとうございます。
> 「Microsoft Excel X.X Object Library」は参照設定しています。
> 試しに新しいプロジェクトでCommandButton,PictureBoxを１つずつ配置し
> For文の部分
>
> For a = 1 To 36
> If a < 13 Then
> xlSheet.Cells(1, a).Value = lblUri(a - 1).Caption
> ElseIf a < 25 Then
> xlSheet.Cells(2, a - 12).Value = lblUri(a - 1).Caption
> Else
> xlSheet.Cells(3, a - 24).Value = lblUri(a - 1).Caption
> End If
> Next a
>
> を削って試みましたが、やはり同じエラーが出てしまいます。
> 環境はVB5.0,Excel2000です。
lblUri(a - 1).Caption を 変数aに変えて実行してみてください。
xlSheet.Cells(1, a).Value = lblUri(a - 1).Caption
↓
xlSheet.Cells(1, a).Value = a
恐らくデータ参照する範囲にデータが無い為エラーになっているような気がします。