tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

以上、よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。