| |
みなさんこんにちは
VBWASURETA さんフォローありがとうございます。
>いろいろ参考にしてわからないのと丸投げは同じでしょうか？
ですが、参考にしているのは良いのですが、
私は、それをある程度理解し、自分で調べてみて、その上でするのが
質問と思っています。ですから、ある程度、質問内容も絞り込んだものか、
手法そのものの問いになりますし漠然としたものにはなりません。
私はおっさんなので、そのような教え方をされましたし、その教え方
が長い目で見ると本人の役に立つと思っていますし、役立ちました。
ですから、サンプルは書いても、そのまま使えるようなソースは殆ど
このような掲示板では書いた事ありませんし、書きません。
・・・・と言うような意味でした。
なので、前回のResでは手法を示唆しました。
関係無いですが、私は何度も聞き返してまでResを付けようとも思いません。
何故なら、そのような質問をする方は自分のしようとする事も理解してないし、
調べてもないからそのような質問になると思うからです。
気づいた点を書きます。
>Set DB = OpenDatabase("C:\test.mdb")
>Set rst = DB.OpenRecordset("T_data", dbOpenTable)
>
>
>Set objExcel = New Excel.Application
>objExcel.Workbooks.Open ("C:\Book1.xls")
ここでvisible=trueとしておいた方が良い。場合によっては
Bookか、WorkSheetに不可視の属性がついたままになってしまう恐れがある。
（その場合、次回そのBookをExcelで開いた時不可視となる）
>objExcel.Worksheets("T_data").Select
バージョン（97とか）によってはSelectしなければならないものも
あったような気がするがSelectしなくても良いものはしない。
（画面遷移など無駄な処理を伴う事が多い。）
>objExcel.Cells(1, 1).CopyFromRecordset rst
objExcel.Worksheets("T_data").Cells(1, 1).CopyFromRecordset rst
で、出来ませんかね？
>はどのような意味を表しているのか教えてください。
rstの全てのレコードをA１セルを左端上として、Fieldを右方向に
recordを縦方向にコピーしなさい。
別方法ですが、
ExcelをOLEで扱わないでも、直接、DAOやADOで追加出来ませんでしたっけ？？
削除は出来ませんが、追加変更はできたと思います。
但し、頻繁に行うようなら、お勧めしません。
（これもまた、リソース開放のバグの絡みが会ったと思いますので。
詳しくはMSのサポート技術情報で調べてみて下さい。）
参考不具合情報
h tp://support.microsoft.com/kb/414048/ja
|
|
neptune
- 08/2/28(木) 15:40 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
