VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/08/29(Thu) 21:43 |
| 投稿者 | ： 旅人A |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： エクセルに表示 |
環境:Win98,VB5.0SP3,Office97
上記の環境でMsFlexGrid内のデータをエクセルに書き出す処理を行っています。
「Excel & Word関係」から「エクセルにデータを送りグラフを表示する」を活用させてもらって
ます。
ありがとうございます。
1|Dim xlsApp As Excel.Application
2|Dim xlsBook As Excel.Workbook
3|Dim xlsSheet As Excel.Worksheet
4|Dim StrRecBuff As String
5|Dim intCol As Integer
6|Dim intRow As Integer
7| StrRecBuff = ""
8| intCol = 0
9| intRow = 0
10| Set xlsApp = CreateObject("Excel.Application")
11| Set xlsBook = xlsApp.Workbooks.Add
12| Set xlsSheet = xlsBook.Worksheets(1)
13| For intRow = 0 To DataCount - 1
14| For intCol = 0 To 12
15| StrRecBuff = MSFlexGrid1.TextMatrix(intRow, intCol)
16| xlsSheet.Cells(intRow, intCol).Value = StrRecBuff
17| Next intCol
18| Next intRow
19| xlsBook.Application.Visible = True
20| xlsApp.Quit
21| Set xlsSheet = Nothing
22| Set xlsBook = Nothing
23| Set xlsApp = Nothing
上記のようなコードでグリッドの内容をエクセルに吐き出す処理を行おうとしています。
しかし、一回目のループで「アプリケーション定義又は、オブジェクト定義のエラーです」
というエラーが発生しました。
調査したところ、このエラーはオブジェクト型などにうまくsetできていないと発生する模様です。
しかし、こちらのコードを活用させていただいたので、そんなことはないと思うのですが。。。
おそらく、環境の違いでうまくできていないと思うのですが、そういうことでしょうか？
もし、そのような結果だとしたら、上記の環境ではどのように変更を加えればよろしいでしょうか？
ご教授、どうぞよろしくお願い致します。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）