[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET
先日はありがとうございました。
また、質問なのですが

現在、フォームを立ち上げる前にＥＸＣＥＬを参照しています
（ＥＸＣＥＬ単体で変更しても大丈夫な様に）
参照したＣＥＬＬの値やＳＨＥＥＴ名をＣＯＭＢＯＢＯＸ等に表示させているのですが
立ち上がるまでに時間がかかってしまいます
いろいろと改良をして２秒ほど短縮しましたが、まだ５秒位かかるんです

For a=o To 40
    xlCellName(a)=xlSheet(a+1,3).Value
    ComboBox1.Items.Add(xlCellName(a))
Next

こんな感じでやっているのですが
何か他に方法はありませんか？

ＤＡＯと言うのを見つけて入れて見たのですが

ＡＤＤ．ＰＡＴＨの所でＡＤＤに波線、名前が宣言されていません
と出てきてしまい、分からずに使っていません

これを調べてみて！　ここを見てみて！
と言う解答で結構ですので、誰か教えて下さい
後は自分で頑張ります？（たぶん）

宜しくお願い致します　

まず、どの動作に何秒かかっているか取得する方が先かと思うのですが。
部分的なコードを見てもどこが遅いかは他の者には解らないでしょう。
投稿されたコードの部分ではそれほど時間がかかっているとは思えませんが。

BETTYさんのコードにある、xlCellName、および xlSheet というのは、それぞれ何型の変数ですか?

> For a=o To 40
>     xlCellName(a)=xlSheet(a+1,3).Value

セルの値を一つ一つ見ていくのは、比較的時間がかかると思います。
(Valueプロパティにアクセスするたびに、COM Interop層を経由する事になるため)

ExcelのRangeオブジェクトは、複数のセル範囲を一度に取得できますので、ループさせずに
    objArray =  〜.Range("C1:C40").Value
などとしてみてください。これなら、Excelとの通信回数が1回だけで済みます。

> ＡＤＤ．ＰＡＴＨの所でＡＤＤに波線、名前が宣言されていません
その『ADD.PATH』というキーワードは、どこに記載されていたものですか?
# もしかして、VB6の App.Path の事かな…。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　

返信ありがとうございます
　
> BETTYさんのコードにある、xlCellName、および xlSheet というのは、それぞれ何型の変数ですか
?

漢字が混じっていますのでＳｔｒｉｎｇ型です

> > For a=o To 40
> >     xlCellName(a)=xlSheet(a+1,3).Value
>
> セルの値を一つ一つ見ていくのは、比較的時間がかかると思います。
> (Valueプロパティにアクセスするたびに、COM Interop層を経由する事になるため)
>
> ExcelのRangeオブジェクトは、複数のセル範囲を一度に取得できますので、ループさせずに
>     objArray =  〜.Range("C1:C40").Value
> などとしてみてください。これなら、Excelとの通信回数が1回だけで済みます。

挑戦してみます。
Ｃｅｌｌに空白が入っていても大丈夫ですか？
配列変数などでも大丈夫ですか？
strSimei(40,2)　これに代入できますか？

> > ＡＤＤ．ＰＡＴＨの所でＡＤＤに波線、名前が宣言されていません
> その『ADD.PATH』というキーワードは、どこに記載されていたものですか?
> # もしかして、VB6の App.Path の事かな…。

入力ミスでしたＶＢ６のＡｐｐ．Ｐａｔｈでした

>>> xlCellName(a)=xlSheet(a+1,3).Value
>> BETTYさんのコードにある、xlCellName、および xlSheet というのは、それぞれ何型の変数ですか?
> 漢字が混じっていますのでＳｔｒｉｎｇ型です

え? (^_^;)
『Dim xlSheet(,) As String』という事ですか?

Stringクラスには、Valueというプロパティは無かった筈ですが…。


> 挑戦してみます。
> Ｃｅｌｌに空白が入っていても大丈夫ですか？

結論から言えば、空白セルは Nothing が返されます。

……でも、実際に挑戦してから質問しても、遅くは無かったと思いますよ。(^^;
(質問する前に、まずは試して & 調べてみましょう)


> 配列変数などでも大丈夫ですか？

例えば、
  Dim V As Object = WS.Range("A3:B5").Value   '変数「WS」は、ExcelのWorksheetオブジ
ェクトです
とした場合、Vは System.Array となり、
  V(1,1) = A3セルの値
  V(2,1) = A4セルの値
  V(3,1) = A5セルの値
  V(1,2) = B3セルの値
  V(2,2) = B4セルの値
  V(3,2) = B5セルの値
のように格納されます。(配列の下限が1から始まっている事に注意してください)


> strSimei(40,2)　これに代入できますか？

  Dim strSimei(40, 2) As Object
  strSimei = WS.Range("A3:B5").Value

のようなコードならばOKです。


> 入力ミスでしたＶＢ６のＡｐｐ．Ｐａｔｈでした
ヘルプから『App オブジェクトの変更点』というキーワードで捜してみてください。
それと同等の機能を持つ.NET Frameworkのプロパティが掲載されています。

[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 文を使って文字列の長さが０なら…
って感じで見つけていました

いろいろありがとうございました
もう少し勉強してから出直します

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　

> Dim simei() As Objectのところを

Dim simei(,) As Object
配列が１から始まっているので２次元配列にすれば大丈夫でした

> xlBook = xlApp.Workbooks.Open("C\〜\テスト.xls")

C:\ですよね（入力ミスでした）

Excrelの起動方法と終了の方法も間違っています。(^_^;)

　Re: Excelの終了時にプロセスが残ったまま.. - 花ちゃん 01/31-20:17 No.678
　のリンクを見て正しい方法にされた方がいいかと思います。

# 質問する前に掲示板のExcel関係の過去ログにも目を通しておきましょう。