Excel VBA質問箱 IV

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

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


58832 / 76732 ←次へ | 前へ→

【22623】Re:mdbファイルについて
発言  ichinose  - 05/2/24(木) 22:07 -

引用なし
パスワード
   ▼mickeypapa さん:
こんばんは。

>こんにちは、宜しくお願いいたします。
>作成中のファイルのサイズが大きくなってきたので、データとマクロを分けて
>データのファイルが300KBほどになったのですが、データを1000件ほど
>打ち込んでいくと、600KBを超えてしまいました。起動時や保存の時を考えると、なるべくファイルサイズを抑えたいと思い、行き当たったのがデータを
>mdbファイルに保存するという方法です。ネットや本で調べて、どうにか
>mdbファイルから呼び出すことは出来る様になったのですが、それ以上先には進むことが出来ません。
>アドバイス宜しくお願い致します。
>
>1.mdbファイルを呼び出すときに2004/10/1〜現在日までのデータというように
>  数ヶ月前までのデータを呼び出せる様にしたい。
>2.更新したデータを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"       '読み込むテーブル
   myTblName = "select * from 運送DATA where 日付 between #2004/10/1# and #" & Format(Date, "yyyy/m/d") & "#" 
'これで試してみてください
'コピーする際、空白が全角になっているとエラーになってしまうので注意してネ
'上の例で言うと select * from ←×
'コピー後、再確認して下さい
'尚、日付は、日付という名前が付けられたフィールドです。差し替えて下さい
>  
>  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
1 hits

【22619】mdbファイルについて mickeypapa 05/2/24(木) 21:14 質問
【22623】Re:mdbファイルについて ichinose 05/2/24(木) 22:07 発言
【22636】Re:mdbファイルについて mickeypapa 05/2/25(金) 8:13 質問
【22639】Re:mdbファイルについて ichinose 05/2/25(金) 9:22 発言
【22648】Re:mdbファイルについて mickeypapa 05/2/25(金) 14:08 質問
【22657】Re:mdbファイルについて ichinose 05/2/25(金) 18:34 発言
【22658】Re:mdbファイルについて mickeypapa 05/2/25(金) 21:07 お礼
【22662】Re:mdbファイルについて ichinose 05/2/26(土) 0:18 発言
【22674】Re:mdbファイルについて mickeypapa 05/2/27(日) 17:33 質問
【22676】Re:mdbファイルについて ichinose 05/2/27(日) 22:44 発言
【22851】Re:mdbファイルについて mickeypapa 05/3/4(金) 22:52 お礼
【22899】Re:mdbファイルについて mickeypapa 05/3/6(日) 19:31 質問
【22904】Re:mdbファイルについて ichinose 05/3/6(日) 22:18 発言
【22912】Re:mdbファイルについて mickeypapa 05/3/7(月) 13:40 お礼
【22913】Re:mdbファイルについて mickeypapa 05/3/7(月) 13:43 発言
【22659】Re:mdbファイルについて mickeypapa 05/2/25(金) 21:13 お礼

58832 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free