![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Access2018を使用しています。
クエリで抽出したデータを、エクセルに出力して、
別のAccessファイルで、エクセルを読み込んでいます。
エクスポートは
On Error GoTo Err
If DCount("*","選択クエリ名") > 0
DoCmd.TransferSpreadsheet acExport, 10, "選択クエリ名","保存先path" & Format(Now(),"yyyymmdd_hhnnss") & "xlsx", True
Else
End If
Err:
インポートは
Dim file_path As String
Dim buf As String
fire_path = "保存先path"
buf = Dir(file_path & "*.xlsx")
Do While buf <>""
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acImportDelim,, "インポートテーブル名", file_path & buf,True,""
DoCmd.SetWarnings True
Kill file_path & buf
buf = Dir()
Loop
で行っています。
・クエリでレコードがあった時だけエクスポートして、
・エクスポートは複数のパソコンで、不定期で行うので、エクセルファイル名に秒まで付加して、
・エクセルファイルをインポートする度に、エクセルを削除していく、
というかんじです。
ここで、
・出力されるエクセルに決まったパスワード(読み取りも制限)をかけて、
・インポート時には自動でパスワードを解除して、動作する
ようにしたいと思っています。
ネットで調べた限り、エクスポートしたファイルを開いてパスワードをかけるのかな?
と思うのですが、
エクセルファイル名が、出力時間を付加する設定のため、どのようなコードを書けばよいかが分からず、、、(エクスポートは複数人が不定期で行うので、出力時間を付けて区別したい)
・エクスポートするエクセルに、自動でパスワードをかけて、
・インポート時には、そのパスワードを自動で入力してインポートしていく
ためには、どうやったらいいでしょうか?どなたか教えてください。
No.2ベストアンサー
- 回答日時:
No.1の者です。
下記の部分を、質問者さんのプログラムに変更すれば良いかと。
filePath = CurrentProject.Path & “¥export.xls”
Format(Now(),"yyyymmdd_hhnnss") & "xlsx"
ありがとうございます。
てっきり、exportとsave asの時にssが異なるのでエラーになるのかな??と思っていました、試してみます!!
No.1
- 回答日時:
ありがとうございます。
教えていただいたサイトだと、エクスポートするエクセルが export.xls に固定されてしまうようで、、
社内ネットワーク上で、複数の人が使うため、エクセルの名称は出力時間(ssまで)を入れて区別しています。
名称に出力時間が加わったエクスポートで、パスワードをかけたいと思っておりますが、難しいのでしょうか??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Outlook(アウトルック) 【 Windows 10 】アドレス帳に正しくインポートを完了させたい。 3 2023/04/23 13:41
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
MSアクセスのインポート手法(パスワード設定されたエクセルブックをインポート)
Access(アクセス)
-
ACCESSからExcelへエクスポート時にパスワードを自動設定したい。
PowerPoint(パワーポイント)
-
アクセス テーブルデータをエクセル(パスワード付)に出力するマクロがうまくいきません。
その他(Microsoft Office)
-
-
4
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
5
エクセルの指定したシートにエクスポート
その他(データベース)
-
6
accessからエクセルにエクスポートしたファイルを開きたい。
Excel(エクセル)
-
7
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
8
AccessのテーブルデータをExcelの特定のワークシート名にエクスポートすることは可能ですか
Excel(エクセル)
-
9
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
10
アクセスクエリ(複数)→マクロ→エクセル出力(ワークシート別)
その他(パソコン・スマホ・電化製品)
-
11
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
12
Accessクエリ 複数フィールドを対象に空白の場合は全件表示したい
Access(アクセス)
-
13
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
14
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
15
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
16
falseとtrue 0,1,-1 の意味が知りたいです
PowerPoint(パワーポイント)
-
17
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
18
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
19
Excelからパスワード付きAccess
その他(データベース)
-
20
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
実行時エラー3131 FROM 句の構...
-
accessクエリで直前の水曜日〜...
-
【至急・画像あり】建物or住所...
-
Accessのテキストボックスの入...
-
access2021 強制終了してしまう
-
ms access 2013で、チェックボ...
-
Accessのクエリの結果を、既存...
-
Access VBA [リモートサーバー...
-
Accessのデータ型の日付/時刻型...
-
Microsoft365にAccessってあり...
-
DoCmd.SearchForRecord が動か...
-
access レポート 請求書について
-
アクセスのレコードをフォーム...
-
Access runtimeでのオプション...
-
Accessが強制終了する理由はな...
-
ACCESSのレポートにフォームの...
-
access2021 更新前に処理をしたい
-
access2021 VBA メソッドまたは...
-
【世界はデータで出来ている】...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルにハイパーリンクで貼...
-
エクセルとPDFのURL化
-
エクセル共有したが、アクセス...
-
Accessからエクセルにエ...
-
CDコレクションの管理表はワ...
-
エクセル関数
-
市販されている金銭出納帳に印...
-
ワード、エクセル
-
イラストレーターの破線がエク...
-
エクセルのダウンロード方法
-
エクセルで管理が可能か?
-
エクセルで案内図を作る方法
-
複数の申請書のエクセルファイ...
-
添付ファイルをダブルクリック...
-
フリーのソフトでエクセル作業は?
-
エクセルのシートにPDFを添...
-
宛名職人へエクセルの住所録読...
-
iphoneでエクセルファイルを閲...
-
エクセルで2つのファイルを別々...
-
エクセルの無料配布ってありま...
おすすめ情報