| 投稿日 | ： 2006/05/10(Wed) 16:56 |
| 投稿者 | ： Take |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 既存のExcelファイルを選択し、表を読み込む時のエラー |
初めまして。
「ファイルを開く」ボタンを作り、コモンダイアログを使って既存のエクセルファイルを開き、
別のボタンでその表を読み込むプログラムを作ろうとしておりますが、
「オブジェクトが必要です」というエラーが出て読み込めず困っております。
ファイルを開く部分の記述は、
CommonDialog1.CancelError = True
With CommonDialog1
.Flags = cdlOFNHideReadOnly
.Filter = "すべてのファイル (*.*)|*.*|" & _
"エクセルファイル (*.xls)|*.xls|"
.FilterIndex = 2
End With
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
としており、エラーは出ずに開けます。
その後、こちらのサンプルを見て、セルの値を取得する部分として
Dim i As Integer
Dim j As Integer
Dim strZahyou(2, 2) As String
For i = 1 To 2
For j = 1 To 2
strZahyou(i, j) = xlSheet.Cells(i + 1, j)
Next j
Next i
と記述しているのですが、「オブジェクトが必要です」というエラーが６行目で出ます。
VBのプログラムは簡単なものしか作ったことがありません。
WindowsXP、Excel2003、VB6.0という環境で使用しております。
よろしくお願いします。