Gin_F の回答履歴

いつも大変お世話になっております。m(＿ ＿）m Accessのテーブルにエクセルからデータを貼り付けたいのですが、 Accessのフィールド 日付／型番／数量 Excelのフィールド 型番／数量 で、Excel側のデータは200件ずつくらいファイル単位でデータが存在します。 現在10ファイルくらいあるのですが、これは今後も増えていきます。 Excelで存在する月単位のデータをAccessの１テーブルにまとめていきたいのですが、 最初のデータはExcelからAccessへ問題なく貼りつけできるのですが、次のExcelファイルをAccessへ追加貼りつけしようとするとうまくいきません。 やりたいことは、Excelの「型番」「数量」のデータを、Accessへ追加貼りつけしていきたいだけなのですが、コピー＆貼りつけでできないでしょうか？ Excel側のデータに手を入れて、Accessと同じ作りに変更すれば「インポート」で追加されるのですが、できたらその手間をかけずに、Excelの必要箇所を範囲指定し、コピー＆貼りつけでAccessのテーブルに持っていけたらと思います。 何か良い方法がありましたら教えてください。 よろしくお願いします。

AccessVBAの初心者です。 チェックボックスについての質問です。 掻い摘んで説明しますので判り辛いかもしれませんが、今構築しているデータベースの中のひとつに、チェックボックスのチェックが外れたときにメッセージボックスが出るようなvbOKCancelの組み込み関数を用いたプログラムを作っています。 そのキャンセルを選択した時に、クリックする前の状態に戻すようなプログラムが組みたいのですが、上手くできません。 要するに、チェックがついているままで、チェックボタンをクリックした事実も何事もなかったような状態まで戻したいです^^； 現在はPrivate　Subで始まるプログラムなのでExit Sub でプロシージャから抜け出す前の状態に戻せないかと検討していました。 的外れな検討かどうかも含め、アドバイスをお願いいたします。

VBScriptでファイルリストを出力しようと考えています。 そこでフォルダ内のファイルを再帰的に検索したいのですが、上手くいきません。 C:\A\B\C\D\○○.txt C:\A\BB\C\D\××.txt C:\A\BBB\C\D\△△.txt のようにB,BB,BBBの部分のみ可変にしたいのです。 例えば　C:\A\B\CC\D\○○.txt C:\A\B\CCC\D\○○.txt のような B以外のフォルダのサブフォルダについては再帰検索はいきたくありません。 （A,C ,D については引数で与えようと考えています。） よいロジックはないでしょうか？ ご存知の方がいらっしゃいましたらぜひ教えてください。 出力形式は ファイル名,作成日時 以下　色々参考にして作成したプログラム。 これだと指定フォルダ以下すべて検索にいってしまいます(-_-;) --------------------------------------------------------------- Dim fso Dim folder Set fso = CreateObject("Scripting.FileSystemObject") Dim pass pass ="C:\" & args.item(0) & "\" Dim subFolder For Each subFolder In folder.SubFolders ShowSubfolders FSO.GetFolder(pass) Next Sub ShowSubFolders(Folder) Dim file For Each file In folder.Files WScript.Echo _ file.Name & "," & _ file.DateCreated Next For Each subFolder In folder.SubFolders ShowSubFolders subFolder Next End Sub

いつも拝見させていただいております。 初めて質問させていただきます。 現在VBAに興味を持ち始めて独学で学んでおり、 VBAでテキストファイルの文字を置換できないかと思っております。 事例としては以下のような例を考えています。 ・エクセルマクロ実行時に置換する/したい文字を入力 ・対象ファイルを指定 ・対象ファイル内(テキスト)にて文字を検索し、ヒットしたら置換 まだVBAを熟知していないので、出来るのかどうかもわかりませんが 可能であれば、教えて頂きたいと思います。宜しくお願いします

VBScriptでファイルリストを出力しようと考えています。 そこでフォルダ内のファイルを再帰的に検索したいのですが、上手くいきません。 C:\A\B\C\D\○○.txt C:\A\BB\C\D\××.txt C:\A\BBB\C\D\△△.txt のようにB,BB,BBBの部分のみ可変にしたいのです。 例えば　C:\A\B\CC\D\○○.txt C:\A\B\CCC\D\○○.txt のような B以外のフォルダのサブフォルダについては再帰検索はいきたくありません。 （A,C ,D については引数で与えようと考えています。） よいロジックはないでしょうか？ ご存知の方がいらっしゃいましたらぜひ教えてください。 出力形式は ファイル名,作成日時 以下　色々参考にして作成したプログラム。 これだと指定フォルダ以下すべて検索にいってしまいます(-_-;) --------------------------------------------------------------- Dim fso Dim folder Set fso = CreateObject("Scripting.FileSystemObject") Dim pass pass ="C:\" & args.item(0) & "\" Dim subFolder For Each subFolder In folder.SubFolders ShowSubfolders FSO.GetFolder(pass) Next Sub ShowSubFolders(Folder) Dim file For Each file In folder.Files WScript.Echo _ file.Name & "," & _ file.DateCreated Next For Each subFolder In folder.SubFolders ShowSubFolders subFolder Next End Sub

アクセス2003にデータをインポートするとき、 テキストファイル→エクセル→アクセスで行いたいのですが、 テキストファイルがコンマやタブで区切られていない為、 インポートした時、１つのセルに全ての値が入力されてしまいます。 テキストファイルをタブやコンマ区切りにする以外に、 アクセスにうまく取り込む方法はあるでしょうか。 教えてください！！

Accessで簡単なDBを作っています。 日付/時刻型のフィールドをもつテーブルを時間毎に集計するクエリを作りたいと思います。標準的な（初心者におすすめの）作り方を教えてください。 私はACCESS初心者ですがSQLが分かるのでSQLビューで書いてしまえばやりたいことはだいたいできてしまいます。 検索して調べて、 ・デザインビューのフィールドに「日時:Format([DATE],"yyyy/mm/dd hh")」と入力する方法 ・ウィザードで日毎に集計してから、デザインビューで「時:Hour(DATE)」というフィールドを追加する方法 があることが分かりました。 しかし、煩雑というか、難しいような気がします。 作ったものを初心者に引き継いでメンテしてもらいたいので、もっと一般的な方法があれば教えてください。 宜しくお願い致します。

お世話になっております。 メインフォームではなくサブフォームの抽出方法で、コンボボックスでサブフォームのフィールド(例えば、商品名)を選択後、テキストボックスで文字列(例えば、ソフトクリーム)を指定して検索する方法です。メインフォームでのやり方は調べて(VBA)分かったのですがサブフォームは試行錯誤してやってみたのですがうまくいきません。 すみませんが、宜しくお願いします。

VBS初心者ですが、上司に依頼されて、次の目的のVBSを 作成することとなりましたので、皆様の知恵をお貸し下さい。 １、業務サーバー内に50前後のフォルダが存在する。 ２、そのサーバ内のフォルダ名とサイズ(MB表示）を取得する。 ３、最終的には、取得したフォルダ名とサイズをcsvで出力する。 現在は、月一でサーバー内の各フォルダのプロパティからサイズを取得して、 エクセルで管理をしているのですが、毎月のようにフォルダが10個単位で増減しているため、 作業に取られる時間が馬鹿にならないので、VBSにて一覧取得をできないか と相談されました。 私のスキルでは、各フォルダ毎のファイル名とサイズを取得することは 出来るのですが、出来れば、一度の操作で全部の作業を終わらせたいので、 皆様のお力をお貸し下さい。

タイトルのコードでは問題ないのですが、 101 を文字変数にすると「抽出条件でデータ型が一致していません」のエラーになります。この場合シングルクオーテーションはどういう意味なのでしょうか。 どうすれば良いのでしょうか。 dim Vcode as string Vcode = "101" Rst.FindFirst "名称コード" & "=" & Vcode

タイトルのコードでは問題ないのですが、 101 を文字変数にすると「抽出条件でデータ型が一致していません」のエラーになります。この場合シングルクオーテーションはどういう意味なのでしょうか。 どうすれば良いのでしょうか。 dim Vcode as string Vcode = "101" Rst.FindFirst "名称コード" & "=" & Vcode

Accesseを１から勉強できるお勧めサイトは ありますか？ あればご紹介ください！

お世話になります。ACCESS2003を利用しております。 レポート＆フォームでメモ型フィールドを印刷＆画面表示させたいのですが、文字が途中で切れてしまいます。 切れてしまう文字数は、レコードによって異なります。 レコードは全体で約100行で、平均文字数は100～200文字程度です。 切れてしまうレコードは2レコードあり、 (1)410文字ありますが399文字目で切れるものと (2)436文字ありますが415文字目できれるものがあります。 また、レポート＆フォーム両方とも、同じ文字数で切れてしまいます。 （レポート、フォームはクエリから作成） なお、レポートは印刷時拡張を設定しております。 フォームは特に設定はしてません。 宜しくお願い致します。

今回(1)のテーブルのデータを(2)のテーブルの形式で データを移行したいと考えています。 (1)対象元 会員番号,入金1,入金2,入金3,......入金10 1,101,102,103,..... 2,0,201,0,203,..... 3,301,302,0,...... ==================================== (2)新しいテーブル 会員番号,枝番,入金 1,1,101 1,2,102 1,3,103 2,1,201 2,2,203 3,1,301 3,2,302 簡単にできる方法はないでしょうか。 VBAはあまり詳しくないので、それ以外の方法が あれば教えて下さい。よろしくお願いします。

エクセルで作成した契約管理アプリで、ACCESSのデータベース にアクセスし、契約内容を管理する仕様のものがあります。 (複数拠点で仕様する為、エクセルだけだと一つのものでの 管理が困難なのでこのようにしています。ACCESSは共有フォルダに おいています。） それで、管理する工程の中で、一度データベースのレコード すべてをオール削除したい場合があります。 「今月契約」というテーブルを、月が変わったので、レコード が0の状態から再度、管理を始める場合等・・・。 「今月分セットアップ」というボタンで、先月分のデータを特定 の場所に保存したり、新たに契約管理を始める為に、テーブルの データを削除したりと一連の作業を自動で行うような仕様で 作成をしました。 その中で、レコードのオール削除の部分が異常なほどに時間が かかるのです。たぶんコードがおかしいんでしょうけど…。 コードの一部を示しておきます。 fileName = P:\契約管理DB.mdb Set dbobj = OpenDatabase(fileName) Set dbRecord = dbobj.OpenRecordset("今月契約", dbOpenDynaset) dbRecord.MoveFirst Do Until dbRecord.EOF dbRecord.Delete dbRecord.MoveNext Loop レコード数が1000近くあったりするんで、これをループで削除 の作業をしようとしているので、時間がかかるのではとも思う のですが、何かもっと格段に早い方法はないのでしょうか？ どなたかご教授お願いいたします。

ACCESS2000で作成した抽出マクロをそのままコピーするなどしてエクセルで使用することは可能でしょうか？もしできるならやり方をおしえてください。

ACCESS2000で作成した抽出マクロをそのままコピーするなどしてエクセルで使用することは可能でしょうか？もしできるならやり方をおしえてください。

エクセルで保存する時に同じ場所に同じ名前でファイルがある場合、『すでに存在します。上書きしますか？』のメッセージが出ますが、それを出さずに無条件に上書きするような事は出来ますか？

コンボボックスでの検索が出来なくて困っています。 テーブル：職員名簿 　　氏・名・職員No・生年月日・所属部署・・・etc. ↑のテーブルを元に入力フォームを作りました(単表形式）。 で、名簿の訂正や変更を行う時の為に検索でレコードを出したいです。 コンボボックス１：氏 コンボボックス２：名 を作って検索出来るようにしたのですが、氏・名 両方が当てはまるレコードを出したいのに、片方ずつの検索しか出来ません。 いろいろ調べてみて「コンボボックスの連携」というのをすると出来るようなのですが(？）、やり方がわかりません。 超初心者なので1から教えていただけるとうれしいです。 氏・名からの検索でレコードが出せれば良いのでもっと他に簡単に出来る方法があればそれでも良いです。 よろしくお願いします。

ACCESS初心者です 周期的に作業を行う先が複数あり、作業結果を毎回紙の報告書に記載しています。 データが１年以上入力されれば、記録作業の簡略化や将来の作業計画も立てやすくなるだろうとACCESSに移行したいのです。 ほとんどの作業が過去に行ったものと同じ作業（周期は現場により１週間だったり１年だったりいろいろ） 作業の内容は紙の報告書では10行とってあります。 たいていは２～３行（箇所）で間に合うのですが。 このような事をACCESSに移行したいと思い １．取引先（作業先）テーブル ２．作業内容テーブル を作成しました 二つをリレーションでつなげようと思うのですが、作業内容テーブルの作り方をどうしたものかと思案しています。 １つは １レコードに作業１～作業１０（前述の紙の報告書の行数）とすれば、次回の作業報告は前回記録の１レコードをコピーすれば簡単にでき、極端に言えば日付の書き換えだけで終える事が可能と思いました。 ２つは １レコードに１作業 ただしこの場合前回の記録を参考にしようとした場合、１レコードだったり、４レコードだったりと作業内容が作業先によって異なることからコピーして日付だけ書き換えというのが面倒になります。 しかし、作業明細をつけて請求書等を作成しようとした場合この方がデータの取り回しが簡単かなとも思います テーブルとリレーション作成の初歩的なことでの悩みですので、私の考える以外の方法以外でも何かヒントになることをご存じの方がおられましたら、アドバイスをお願いします。