| |
▼かみちゃん さん：
こんにちは。ＡＴ です。
回答を頂きまして、どうもありがとうございます。
>A列の値が入っている最終行より下の行以下を削除したい
Range(Range("A" & Rows.Count).End(xlUp).Offset(1), Range("P" & Rows.Count)).Select
Selection.Delete Shift:=xlUp
Range(Range("A" & Rows.Count).End(xlUp).Offset(1), Range("P" & Rows.Count)).Delete Shift:=xlUp
↑上記のマクロを組み込んで動作確認を行ったところ、
不要セルを見事に削除することが出来ました。
>今回の質問とは関係ないかもしれませんが、
>AccessからどのようにExcelに取得しているのでしょうか？
外部データのエクスポート先をＥＸＣＥＬファイル（ｘｌｓｘ）に指定して
データの取り込みしています。
>ExcelからAccessのデータをVBAでCopyFromRecordsetを使って、抽出できるのはご存知ですか？
すみません。
知りませんでした。（まだまだ、未熟です。。。）
CopyFromRecordsetとは、どのような機能なのですか？
どのような場面で使用するのか、教えて頂けませんか？
|
|
ＡＴ
- 09/7/24(金) 0:19 -
