[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^4: Ｅｘｃｅｌの参照の高速化 投稿日 ： 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 文を使って文字列の長さが０なら… って感じで見つけていました いろいろありがとうございました もう少し勉強してから出直します |
をクリックするとツリー全体を一括表示します） - Ｅｘｃｅｌの参照の高速化 - BETTY 02/08-17:57No.698