Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58836 / 76732

←次へ　｜　前へ→


	【22619】mdbファイルについて

mickeypapa

- 05/2/24(木) 21:14 -


	引用なし

	パスワード

こんにちは、宜しくお願いいたします。
作成中のファイルのサイズが大きくなってきたので、データとマクロを分けて
データのファイルが３００ＫＢほどになったのですが、データを１０００件ほど
打ち込んでいくと、６００ＫＢを超えてしまいました。起動時や保存の時を考えると、なるべくファイルサイズを抑えたいと思い、行き当たったのがデータを
mdbファイルに保存するという方法です。ネットや本で調べて、どうにか
mdbファイルから呼び出すことは出来る様になったのですが、それ以上先には進むことが出来ません。
アドバイス宜しくお願い致します。

１．mdbファイルを呼び出すときに2004/10/1～現在日までのデータというように
　　数ヶ月前までのデータを呼び出せる様にしたい。
２．更新したデータをmdbファイルに書き込み（保存）できる様にしたい。

mdbファイルからデータを呼び出すコードは下記の通りです。
mdbファイルのテーブルと同じ項目が、呼び出すシートのA1～T1にあります。

Sub DAO()
　　'Microsoft DAO 3.6 Object Library 参照設定
　　Dim myDb　　　 As DAO.Database
　　Dim myRst　　　As DAO.Recordset
　　Dim myFileName As String
　　Dim myTblName　As String

　　myFileName = "運送.mdb"　　　　　　'読み込むファイル
　　myTblName = "運送DATA"　　　　　　 '読み込むテーブル
　　
　　Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
　　Set myRst = myDb.OpenRecordset(myTblName)
　　With myRst

　　　　'レコード
　　　　Range("A2").CopyFromRecordset myRst
　　　　.Close
　　End With
　　myDb.Close
　　Set myRst = Nothing　　　　　　　'オブジェクトの解放
　　Set myDb = Nothing
　　Range("A65536").End(xlUp).Offset(1, 1).Select
End Sub

0 hits

▼

【22619】mdbファイルについて mickeypapa 05/2/24(木) 21:14

≪