![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
お世話になっております。
ACCESSからExcelへエクスポート時にパスワードを自動設定したいのですが、教
えていただけませんでしょうか。
Office2000
WindowsXP
下記のように「Excel出力」ボタン(クリック時)のイベントプロシージャに設
定しております。なお、これも色々なところから探した式で、あまり得意でない
ので、具体的な式を教えていただけると助かります。
コピペして何とか作った式だけに、何だか要らない行がある気もしますし。。。
「Excel出力」ボタンをクリックすると、「OKorキャンセル」ウインドウが出て、
「OK」ならば「元DB」というクエリを「出力後DB」の後に日時を付加したExcel
ファイルを生成。「キャンセル」ならば何も生成しない、という式になってます。
「\\***\***\***\」は保存先フォルダのパスを指します。これは毎回同じところ
で良いです。
これを、生成後のファイルに毎回決まった、又はその都度設定するパスワード(
Excel上の全般オプションの開く時)を自動的に設定したいです。
-----
Private Sub Excel出力_Click()
On Error GoTo Err_Excel出力_Click
Dim newFile As Double
Dim strPath As String
Dim srchXls As String
newFile = Val(Format(Date, "yyyymmdd") & Format(0, "00"))
Do
newFile = newFile + 1
strPath = "出力後DB_" & Mid(newFile, 3, 6) & "_" & Right(newFile, 2) & ".
xls"
srchXls = "\\***\***\***\出力後DB_" & Format(Now(), "yymmdd_hhnnss") & ".
xls"
Loop Until strPath <> Dir(srchXls, vbNormal)
Select Case MsgBox(srchXls & "を作成しますか?", vbOKCancel)
Case vbOK
DoCmd.TransferSpreadsheet acExport, , "元DB", srchXls, True
MsgBox (srchXls & Chr(13) & Chr(10) & "を作成しました。")
Case Else
Exit Sub
End Select
Exit_Excel出力_Click:
Exit Sub
Err_Excel出力_Click:
MsgBox Err.Number & Err.Description
Resume Exit_Excel出力_Click
End Sub
-----
と、ここまで書いてなんですが。。。
予めパスワードの掛った別のmdbファイルの既存のテーブルにインポートする
やり方があれば、挑戦してみようと思ってます。
以上、長くなりましたが宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
一旦 XLSファイルを出力後にパスワードの設定を行う事になります。
> DoCmd.TransferSpreadsheet acExport, , "元DB", srchXls, True
> MsgBox (srchXls & Chr(13) & Chr(10) & "を作成しました。")
の後にオートメーションで開いて処理の流れかと思います。
Dim xlsAp As Object
Dim xlsBK As Object
Set xlsBK = GetObject(srchXls)
Set xlsAp = xlsBK.Application
xlsBK.Windows(1).Visible = True
xlsAp.DisplayAlerts = False
xlsBK.SaveAs FileName:=srchXls, Password:="abc"
xlsAp.DisplayAlerts = True
xlsAp.Quit
Set xlsBK = Nothing
Set xlsAp = Nothing
後半の質問はこちらをどうぞ
http://x7net.com/~access/AcTipsGnrlHowToAttachEx …
おおおお!
すごいです。できました!
長いこと悩んで色んなところを探してたのですが、良い方法が見つからず、あきらめかけていました。
本当にありがとうございます。
大感謝です!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
Accessからエクセルにエクスポート時に、自動でパスワードを設定し、インポートしたい
Access(アクセス)
-
アクセス テーブルデータをエクセル(パスワード付)に出力するマクロがうまくいきません。
その他(Microsoft Office)
-
MSアクセスのインポート手法(パスワード設定されたエクセルブックをインポート)
Access(アクセス)
-
-
4
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
5
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
6
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
7
Accessのリンク先を相対パスにしたい
その他(データベース)
-
8
VBAでPDFにパスワードをかけるには
Windows 7
-
9
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
10
【ACCESS】リレーションを組んでいるフィールドがNullの場合
その他(プログラミング・Web制作)
-
11
accessからエクセルにエクスポートしたファイルを開きたい。
Excel(エクセル)
-
12
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
13
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
COBOLのMOVEで桁数が異なる場合
-
プログラムについての質問です...
-
アクセスでエクセルに出力する...
-
COBOLで可変長ファイルの出力に...
-
コンセントの電力は入力と出力...
-
VBAで出力したCSVファイルの先...
-
ActiveReportsで縦書きの帳票
-
Windows Formアプリからコンソ...
-
PowerShellのスクリプトでイベ...
-
vba 環境依存文字によるDocuwor...
-
cout と cerrの違い
-
LaTeX:tableofcontentsによる目...
-
VBAで有効数字の設定
-
配列からポインタを使って長さ...
-
C# 標準出力のencodingをutf8に...
-
VBAのExecメソッドで画面を非表...
-
ACCESS フォームで選択したレコ...
-
printfの書式%.*s
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
COBOLのMOVEで桁数が異なる場合
-
cout と cerrの違い
-
コンセントの電力は入力と出力...
-
スマホのバッテリー消費につい...
-
アクセスでエクセルに出力する...
-
PC電源は、出力DC12VとDC5Ⅴで...
-
Windows Formアプリからコンソ...
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
printfの書式%.*s
-
無線とかアンテナに関しの質問...
-
ACCESSからExcelへエクスポート...
-
【ExcelVBA】最終行の取得で困...
-
Accessのテーブルからcsv出力す...
-
CRC16計算について
-
Excel VBAで値を変えながら、pd...
おすすめ情報