タイトル : Re^4: Excelの参照の高速化 投稿日 : 2004/02/10(Tue) 09:09 投稿者 : BETTY
[OSのVer]:Windows [VBのVer]:VB.NET 詳しく説明をして頂き本当にありがとうございます 現在、下記のコードをテストしていますが Dim t1 As Integer Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim simei() As Object t1 = System.Environment.TickCount xlApp = CreateObject("Excel.Application") xlBook = xlApp.Workbooks.Open("C\〜\テスト.xls") xlSheet = xlBook.Worksheets("データ") xlBook.Application.Visible = True simei = xlSheet.Range("a1:a40").Value xlApp.Quit() xlApp = Nothing GC.Collect() t1 = System.Environment.TickCount - t1 TextBox1.Text = t1 simei = xlSheet.Range("a1:a40").Valueのところで System.InvalidCastException' のハンドルされていない例外が WindowsApplication4.exe で発生しま した。 追加情報 : 指定されたキャストは有効ではありません。 と出てしまいます > ……でも、実際に挑戦してから質問しても、遅くは無かったと思いますよ。(^^; > (質問する前に、まずは試して & 調べてみましょう) ヘルプでキャストを検索して調べてみましたがよく分かりません ……でも、もう少し頑張ってみます > 結論から言えば、空白セルは Nothing が返されます。 自動変数のxlSheet横の+を押したら参照した値が表示されました 確かに Nothing になってました 見方も知らなくてすいません 今まで空白セルは If 文を使って文字列の長さが0なら… って感じで見つけていました いろいろありがとうございました もう少し勉強してから出直します |