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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
MSアクセスのインポート手法(パスワード設定されたエクセルブックをインポート)
Access(アクセス)
-
ACCESSからExcelへエクスポート時にパスワードを自動設定したい。
PowerPoint(パワーポイント)
-
アクセス テーブルデータをエクセル(パスワード付)に出力するマクロがうまくいきません。
その他(Microsoft Office)
-
-
4
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
5
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
6
エクセルの指定したシートにエクスポート
その他(データベース)
-
7
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
8
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
9
AccessのテーブルデータをExcelの特定のワークシート名にエクスポートすることは可能ですか
Excel(エクセル)
-
10
accessからエクセルにエクスポートしたファイルを開きたい。
Excel(エクセル)
-
11
Excelからパスワード付きAccess
その他(データベース)
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
14
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
15
falseとtrue 0,1,-1 の意味が知りたいです
PowerPoint(パワーポイント)
-
16
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
17
アクセスクエリ(複数)→マクロ→エクセル出力(ワークシート別)
その他(パソコン・スマホ・電化製品)
-
18
Access2003VBA リンクテーブル(パスワード付き)を作成するには?
Visual Basic(VBA)
-
19
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
20
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル共有したが、アクセス...
-
CDコレクションの管理表はワ...
-
pdfのデータ表 数字の計算...
-
エクセル:セル内の数値、先頭...
-
ロータスの表をエクセルに作り...
-
エクセルで在庫管理
-
iphoneでエクセルファイルを閲...
-
メールの添付ファイルがエクセ...
-
多者間で同時にブラウザ操作は...
-
弥生会計04で請求書発行
-
iPhoneの電話帳をエクセル化す...
-
仕事で働いた時間。10:00~15:15...
-
エクセル2007で作成された資料...
-
PDFファイルをエクセルで開きたい
-
市販されている金銭出納帳に印...
-
Excel 「入力規則」が消えて困...
-
エクセル、不要なページを削除...
-
EXCEL ページを指定してPDF出力...
-
面積を計算するソフト
-
エクセル 入力規則 リスト以...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルにPDFファイルをリンク...
-
CDコレクションの管理表はワ...
-
エクセルとPDFのURL化
-
エクセルにハイパーリンクで貼...
-
pdfのデータ表 数字の計算...
-
Accessからエクセルにエ...
-
相手に送ったエクセルが間違っ...
-
市販されている金銭出納帳に印...
-
エクセル関数
-
EXCELのツールバー
-
エクセルが二つ以上開けない・...
-
iPhoneの電話帳をエクセル化す...
-
宛名職人へエクセルの住所録読...
-
エクセルのTMPファイルが消えな...
-
エクセル覚える期間
-
エクセル出納帳
-
添付ファイルをダブルクリック...
-
エクセルで2つのファイルを別々...
-
イラストレーターの破線がエク...
-
エクセルのセル単位のhtmlへの...
おすすめ情報