xls:CopyFromRecordset罫線描写

質問

• エクセルからアクセスを読み込みに行き、取得結果をエクセル内に表示しています。
• CopyFromRecordsetにて出力が行われたセルのみ、セルのまわりを四角く罫線で囲むということをしたいです。
• Range("B12:AI1000").Clearで前のデータをクリアし、範囲を指定して罫線を引きたいですが、範囲が変動するため固定ではない状態です。

回答No.3

cj_mover

＃１、２、ｃｊです。＃２補足欄へのレスです。

要するに、レコードセットの中身が、どのように開かれて
どのように読み込まれているか、その状態によって、
adoRs.RecordCountを正しく取得できるかどうかが決まってくる
という話でして、＃２で示したのは簡単な例として、
自己完結したサンプルプロシージャですので、
今回ご提示の記述に組み込むのは土台、無理なのです。
でもまぁ、ようやくソースを見ることが出来ましたから、
今回はオンデマンドでお応え出来るかと思います。

とりあえず、今までのことは一旦忘れてもらって、
罫線を引く部分だけ書き足すように

> Range("B12").CopyFromRecordset adoRs 'セルへ出力

の部分に続けて以下の２行を書き加えます。
候補１）
　　adoRs.MoveLast
　　Range("B12").Resize(adoRs.RecordCount, adoRs.Fields.Count).Borders.LineStyle = xlContinuous

レコード数をレコードセットに問うのではなくて、
Excelに吐き出されたサイズを取得するなら、
代りに、以下の３行を書き加えます。
候補２）
　　With Range("B12")
　　　　.Resize(.End(xlDown).Row - .Row + 1, .End(xlToRight).Column - .Column + 1).Borders.LineStyle = xlContinuous
　　End With

直接の回答は以上です。

>「ユーザー定義型は定義されていません。」と
> エラーになります。

ADODBを参照設定していないのでしたら当然の（コンパイル）エラーです。
Excel VBAからADODBを扱うのでしたら、
Microsoft ActiveX Data Objects#.# Library
に参照設定した方が、何かと扱い易いです。
１）
Dim adoRs As Object
の代りに、Object型ではなく、
Dim adoRs As ADODB.Recordset
ADODBで既定のオブジェクトとして宣言できる、とか、
２）
　　Set adoCn = CreateObject("ADODB.Connection")
の代りに、CreateObjectは使わずに、
Set adoCn = New ADODB.Connection
のように高速且つ明示的にアクセス出来るとか、
３）
　　adUseClient　adOpenDynamic　adLockOptimistic
みたいな、ADODBで定義された組込み定数が使えるようになるとか、
４）
　　adoRs.
までタイプした時点で入力候補が表示されるようになるとか、
色々と便利で能率的に書けるようになります。
配布の問題から配布時に参照設定を外すことはあるかも知れませんが、
開発の段階では参照設定した方が圧倒的に有利です。
疑問を感じて手が止まることも減るでしょうから、
開発を早める意味でも、不慣れな人程、利点は多いと思います。
逆に参照設定しないでADO書きあげちゃう人の方が凄いですし、少数派、と思います。

http://www.happy2-island.com/access/gogo03/capter00307.shtml
リンク先は旧いAccessについて解説していますが、
参照設定の手順（設定手順３以降）や解説は参考になるかと思います。

以上です。

お礼

ありがとうございました。

レコードセットの開き方、読み方によって
扱い方が違うことをご教示くださり
まずその部分で大変助かりました。

「レコードセットするときにはこの関数を使えば
セットするレコード数がわかります」
的な一意的な内容かと思っていました。

そして、適切なご回答をいただくためには
ソースの開示が重要ということも理解しました。
上記のような一意的だという理解だったため
ソース貼付は冗長になるかと誤認識していました。

直接のご回答ありがとうございます。
そしてそれ以降のマナーというか、お作法というか、
のご教示もありがとうございます。
今回ADODBという単語に初めて触れてまだ数日という
タイミングなのですが、そこでどういうものなのかを
多角的にご教示いただき、今後の参考にできます。

実はウィルス性腸炎か何かにかかったようで
ちょっとダウンしていまして、のちほど直接のご回答の
内容を試してみようと思います。

その後No.4の方にもお礼欄でご連絡させていただきます。

ありがとうございました。