VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/01/21(Tue) 00:39
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re エクセルデータを・・

> 2000行ぐらいサンプル作って読んでみたのですが、列が６列でも結構時間かかりますね。

3000行×9列　で　MSFlexGridを表示状態で　約４秒　非表示で約１秒位です。
Win98 SE 127MB Celeron 455Mz? CSVファイルを読込んでいるより数段早いですね
非表示で開けばExcelで読込んでいるより早いですよ  

> 列は先頭空けてくれるのに、行は先頭空けてくれないのですね。なんかアンニュイですね。

サンプルにも書いていたのですが

    'ファイルをオープン（HDR=NO で項目を読込まない)
    Set DB = OpenDatabase(FileName, False, False, "Excel 8.0;HDR=NO;")

で試して見ましたか？


> ここでまた質問ですがエクセルのファイルの中に複数のシート（名前は？のとき）がある場合ファイル名を指定して次にシート名を一覧等で表示さすことは可能ですか？要はエクセルファイル内のシート名称を得たいのです。

ここのExcel＆Word関係の過去のログにも回答がありますよ。
    'エクセルのシート名の取得
    For i = 1 To xlApp.Worksheets.Count
        Debug.Print xlApp.Worksheets(i).Name
    Next i

サンプルの下記の部分変更願います。

    'MSFlexGridと連結
    Set Data1.Recordset = RS
    Data1.Refresh
    RS.Close
    DB.Close
    Set RS = Nothing
    Set DB = Nothing
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -