質問: accessのデータをexcelに抽出 0 件 . access2000のデータからexcel2013にデータを抽出する方法を教えて下さい。 c:\jra\accessに 「2014.mdb」と「出馬表当日.xls」が保存されています。 ↓ sheetdbのc列、d列、e列、f列を抽出項目とします。 「出馬表当日.xls」のsheetdbのc列に騎手名、d列には0か1、e列には4桁の数字、f列には漢字2文字が並んでいます。これを抽出項目にしたいのです。 行番号,c列,d列,e列、f列 ↓, ↓, ↓, ↓ 01柴山雄一,1,1200,東京 02伊藤工真,1,1200,東京 03松岡正海,1,1200,東京 04黛弘人,1,1200,東京 05 06吉田豊,0,1800,阪神 07北村宏司,0,1800,阪神 08浜中俊,0,1800,阪神 09 10大野拓弥,0,2200,京都 11赤岡修次,0,2200,京都 12岩田康誠,0,2200,京都 13 14石川裕紀人,1,2000,小倉 ・・・・・・・・・ 上の場合、01~04の条件でaccess2000のデータから抽出したものをひとつのシート(1r)に、06~08の条件で抽出したものを別のシートに(2r)、.....と空白行ごとに抽出して、その結果を「出馬表当日.xls」にシートを変えて貼り付けたいのです。 空白行から空白行までは最大18名分入っています。 名前とd列(0か1)、e列(4桁の数字)の数字、f列(漢字2文字)をaccessの抽出項目とします(access2000のフィールドは13あってその6番目に名前、3番目に「0か1」5番目に「4桁の数字」13番目に「漢字2文字」が入っています)。 この(最大)18名の名前と2種類の数字をaccessの抽出項目として、excel2013に抽出したいのです。 以前、名前のみでの抽出を教えていただいたのですが、2種類の数字を条件として追加すべく頑張りましたが、さっぱり分からず、再度投稿させていただきました。 http://oshiete.goo.ne.jp/qa/8838454.html よろしくお願いします。
回答: #1です 動きましたか・・・ じゃぁ、前回エラーだったのはシート名が違っていたりしたんでしょうかね。 > 追加された各シートの1行目を「先頭行の固定」+「フィルタ設定」するにはどうすればよいか教えていただけないでしょうか。 これ、ご自分で操作できるのであれば、「マクロの記録」を使ってみるのも良いかも。 「先頭行の固定」+「フィルタ設定」を 2007 でやってみると、以下が記述されます。 sub macro1() ' ' macro1 macro ' ' with activewindow .splitcolumn = 0 .splitrow = 1 end with activewindow.freezepanes = true selection.autofilter end sub この記述されたものを、違うシートでステップ実行してみます。 すると、ウィンドウを分割してから枠を固定している事がわかります。 この動きで良ければ、このままの記述を組み込んでいけば良いです。 私が知っている枠固定の方法は別にあって、 range("b2").activate activewindow.freezepanes = true とすると、アクティブセルの上側・左側を固定するというもの。 上記は、b2 を指定しているので、1行目と a 列が固定に・・・ 今回は1行目だけなので、左側が無い a2 を指定すれば・・・良いですね で、samp3 に組み込んでいきますが、フィルタの設定 selection.autofilter は、それなりに項目が記述されていないとエラーになるみたいなので、抽出したものを転記した後 end with range("a2").activate ' ★ activewindow.freezepanes = true ' ★ selection.autofilter ' ★ end if columns.autofit ' 列幅を調整してみた これで、終了・・・でも良いですが、 現状、抽出を繰り返す=シートの使い回し になっています。 前回、何件か抽出されていて、今回0件ならシートは空白になりますが、枠固定が残ってしまう事に・・・ else v.activate cells.clearcontents activewindow.freezepanes = false ' ★ end if 上記部分で、枠固定を解除する様にしといた方が良いかも。 オートフィルタは、cells.clearcontents することで解除されるみたい・・・? ※ > もう一点甘えてもいいですか。 動いた・・・とかの後に、追加質問があった場合、 おそらく他の方は回答してこないと思うので、急を要する場合などは別質問にした方が良いかも? しかも、内容的には excel のカテゴリになる? excel に関しての回答者さんは、access より多いかな? 私のわかる範囲で追加等には応えていこうとは思っていますけど・・・ 自分でやったのと、聞いただけのものなら、後々自分でやった方を覚えている?のかな?