| 投稿日 | ： 2003/04/30(Wed) 11:41 |
| 投稿者 | ： ゆうや |
| Ｅメール | ： curren62036@yahoo.co.jp |
| ＵＲＬ | ： |
| タイトル | ： Excelのシートからデータが読み込めません。 |
こんにちは。わからないことがあるので投稿してみました。
WinXP で VB6.0 SP5 を使っています。
Excelのシートからデータを読み込もうとしています。元はWin98で作成されたファイルなのですが、X
Pで保存しておくと読み込めて、以前のバージョン(多分Win98です)のままだと「#Name?」が返されて読
み込めません。
自分でも色々考えているのですが全然分からす、皆さんのお知恵をお借りしたいと思います。
何方かご存知の方、教えてください。宜しく御願いします。
以下のようなコードで実行しています。プロジェクトの参照設定で「Microsoft Excel 10.0 Object L
ibrary」にチェックはしました。
Dim n As Long 'For文カウンター
Dim cell1 As String, cell2 As String '読み込みセル文字
Dim excelApp As Excel.Application 'Excelアプリケーションオブジェクト
Dim excelBook As Excel.Workbook 'Excelワークブックオブジェクト
Dim excelSheet As Excel.Worksheet 'Excelシートオブジェクト
On Error Resume Next
Set excelApp = CreateObject("Excel.Application")
With excelApp
.DisplayAlerts = False '終了時のダイアログボックスを非表示
設定
Set excelBook = .Workbooks.Open(temp) 'Excelファイルオープン
End With
'★指定シート名の検索、シートオブジェクトの設定
For n = 1 To excelApp.Worksheets.count
If temp = "テスト" Then '指定シート名の判定
Set excelSheet = excelBook.Worksheets(n)
End If
Next
With excelSheet
For n = 1 To 256 '256行迄を参照
cell1 = .Cells(n, 1).Text '各セル内容を取得
cell2 = .Cells(n, 2).Text
temp = UCase(cell1 & "," & cell2) '連結して格納(大文字)
Next
End With
'★エクセルオブジェクトの解放
excelApp.Quit 'Excelアプリケーションの終了
Set excelApp = Nothing 'アプリケーションオブジェクト解放
Set excelBook = Nothing 'ワークブックオブジェクト解放
Set excelSheet = Nothing 'シートオブジェクト解放