タイトル : openfiledialogで取得したexcelシートを読み込めない 投稿日 : 2003/12/10(Wed) 10:03 投稿者 : 初心者です。
こんにちわ、はじめまして。初心者的な質問で申し訳ありません。質問内容ですが 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() 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) FilePath1 = xlSheet.Cells(1, 1).Value End If ' End If xlApp.Quit() xlSheet = Nothing xlBook = Nothing xlApp = Nothing End Sub 以上、よろしくお願いします。 |