タイトル : Re: これでどうでしょう? 投稿日 : 2003/12/10(Wed) 13:57 投稿者 : Tom's
この内容は最近苦戦しました。(ネット上で見当たらなかったので) ※エクセルを扱うための前提条件として メニューの「プロジェクト」→「参照の追加」→「COM」タブで「MSエクセル」のライブラリを 追加しないとできません。 [OSのVer]:Windows [VBのVer]:VB.NET > こんにちわ、はじめまして。初心者的な質問で申し訳ありません。質問内容ですが > > openFileDialogを使って取得してきたexcelシートの > データを参照したいのですが、どうしても「Nothing」になって > しまいます。 > > どうすればよろしいでしょうか? > (以下が私の作成したプログラムです) > > Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) > Handles Button1.Click > > On Error Resume Next > > Dim myStream As Object > > Dim openFileDialog1 As New OpenFileDialog() > Dim FilePath As String > Dim FilePath1 As String > Dim xlApp As Excel.Application > Dim xlBook As Excel.Workbook > Dim xlSheet As Excel.Worksheet > > xlApp = CreateObject("Excel.Application") > > // openFileDialogでexcelシートを取得 > > openFileDialog1.InitialDirectory = "c:\" > openFileDialog1.Filter = "Excel files (*.xls)|*.xls|All files (*.*)|*.*" > openFileDialog1.FilterIndex = 2 > openFileDialog1.RestoreDirectory = True > > If openFileDialog1.ShowDialog() = DialogResult.OK Then > > myStream = openFileDialog1.OpenFile() ※ダイアログからファイル名も取得できますよ FilePath = openFileDialog1.FileName > > If Not (myStream Is Nothing) Then > > // ファイルパスを取得 > FilePath = myStream.Name() > // シート情報開放 > myStream = Nothing > > // 開こうとするが変数 > // (xlApp,xlBook,xlSheet,FilePath1) > // が「Nothing」になる > > xlBook = xlApp.Workbooks.Open(FilePath) > xlSheet = xlBook.Worksheets(1) ※ここはこのように記述したらできます。 xlSheet = xlBook.Worksheets.Item(1) > FilePath1 = xlSheet.Cells(1, 1).Value > > End If ' > End If > > xlApp.Quit() > xlSheet = Nothing > xlBook = Nothing > xlApp = Nothing > End Sub > > 以上、よろしくお願いします。 |