エクセルへのダウンロード(フォルダーの選択)


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
vol169

これならわかるマイクロソフトアクセス活用法
            -->エクセルへのダウンロード(フォルダーの選択)
              
発行者:高内 章治 2012年9月19日
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┏ 今日の内容 ━━━━━━━━━━━━━━━━━━━━━━━━┓

┃【01 - ご挨拶    】
┃【02 - トピックス  】エクセルへのダウンロード(フォルダーの選択)

┃【03 - 編集後記    】

┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

─────────────────────────────────
【01 - ご挨拶    】          
─────────────────────────────────

こんにちは、高内(こうない)です。

今回は、

「エクセルへのダウンロード(フォルダーの選択)」

についてお話したいと思います。




─────────────────────────────────

【02 - トピックス】: エクセルへのダウンロード(フォルダーの選択)

─────────────────────────────────

2009年の3月18日、4月1日、7月15日のメルマガで、アクセスからエクセルへのダウンロードのやり方を説明しました。

今回のやり方も、なかなかよい方法です。
お客様から教えて頂きました。


以前、VBAを使った方法を説明しました。

一番簡単な方法です。

■1.クエリのデータを指定したフォルダーにエクスポートする方法です。

「ボタン」の「プロパティ」の「クリック時」にVBAのコードを記入します。

クエリのデータをエクセルへエクスポートするVBAは、次のとおりです。

DoCmd.OutputTo acQuery, "クエリ名", "MicrosoftExcel(*.xls)", "C:¥出力ファイル名.xls", False, "", 0
(VBAの中は1行で書いてください。)


・クエリ名の所がエクセルへ出力したいクエリ名です。
・出力ファイル名.XLSが出力したいファイルの名前です。

指定したフォルダーに指定した名前で上書きされます。

でも、自分で、フォルダーを選択したりファイル名を入力したりしたいですよね。

そのやり方です。

■2.まずアクセスの中でエクセルを動かす必要があります。
そのために、まず、アクセスの中でエクセルが動く環境を作る必要があります。

  1. アクセスのパソコンにはエクセルがインストールされている必要があります。前提条件です。

  2. VBA(Visual Basic Editor)の画面を表示します。

  3. ツール/参照設定をクリックします。

  4. ここに「Microsoft Excel xx.x Object Library」にチェックします。
    xx.xがエクセルのバージョンです。

  5. 「OK」をクリックします。


■3.これで、アクセスの中でエクセルが使用できる環境ができました。

ボタンのクリック時に以下のVBAを使用します。

それぞれに説明を入れています。


**************************

' Excel をAccess から利用します
Dim objXL As New Excel.Application

'保存用ファイル名を定義します
Dim FileName As Variant

'規定としてセットするファイル名を定義します
Dim InitialFileName As Variant

InitialFileName = "規定値で保存するファイル名"

'ダイアログボックスのタイトル
Dim varTitle As Variant
varTitle = "名前を付けて保存"

'Excelの [名前を付けて保存] ダイアログを開き、仮の保存ファイル名を取得
FileName = objXL.GetSaveAsFilename(InitialFileName, _
"Microsoft Excel 97-2002 (*.xls),*.*", 1, varTitle)

'これで、 「名前を付けて保存」で、Microsoft Excel 97-2002 (*.xls)が表示されます。

DoCmd.OutputTo acQuery, "エクセルで保存したいクエリ名", "Microsoft Excel 97-2002 (*.xls)", FileName, False, "", 0

'「ファイルへ出力」の画面は出なくてMicrosoft Excel 97-2002で保存されます。

'終了処理
objXL.Quit
Set objXL = Nothing

*************************

2003で保存したければ、"Microsoft Excel 97-2003 (*.xls)"にしてください。

2007や2010で保存したい場合は、
一度、DoCmd.OutputTo acQueryの行の "Microsoft Excel 97-2002 (*.xls)"を外します。
動かすと「ファイルへの出力」が表示されます。
そのコンボボックスで、エクセルのバージョンが表示されますので、そのバージョンを、上(2ヶ所)に書き込めばよいです。

Excel 97-2003 ブック(*.xls)
Excel ブック(*.xlsx)
Microsoft Excel 5.0/95 ブック(*.xls)

などがあります。

これで、フォルダーの選択とファイルの入力ができます。

このやり方もなかなかよいです。


参考にしてください。



─────────────────────────────────
【03 - 編集後記    】       
─────────────────────────────────

ここ最近は、毎日、中国のデモのニュースばかりです。
一部、暴徒化しています。

日本のスーパーや工場がかなり破壊されているようです。

今の所、日本人に大きな被害はないようですが。

損失はかなりの額になるでしょうね。
1日休むだけで、損失になりますから。

中国は、格差がどんどん広がっているようですから、反日による暴徒化が心配です。

日本政府や企業のリスク管理が非常に重要になります。
かなりの日本人が中国に行っているようですから。


◆私がアクセスをマスターできたのは!!
http://www.sk-access.com/kyozai/zaiko1.html  

テーブル作成からVBAまでマスターできます。 
「在庫管理システムをアクセスで作ってみよう」教材です。
http://www.sk-access.com/kyozai/zaiko2.html  


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
●ご意見・ご感想・ご質問
 
『メルマガでもっとお役にたてる情報を配信したいと思いますので、日ごろから疑問に思っていることを教えてください。
宛先はこちらへです』

  •  kohnai★vega.ocn.ne.jp
      (高内:こうない:)
    (メールするときは、★を@に変えてください)

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━


◎「これならわかるマイクロソフトアクセス活用法」 のバックナンバー・配信停止はこちら

archive.mag2.com/0000222659/index.html

◎以下のホームページからでもバックナンバーを見ることができます。

http://www.sk-access.com/mailmaga/index.html

登録・解除につきましてはご自身でお願いいたします。

※このメールマガジンの転送はOKですが、掲載された記事の内容を許可無く転載することをを禁止させて頂きます。
必ず事前にご相談ください。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━


1週間でアクセス(Access)のシステム開発ができる〜
「在庫管理システムをアクセスで作ってみよう」教材

「アクセスのプログラム/システムを短期間で開発したい方」、
「アクセスのフォーム/VBAを完全にマスターしたい方」のための
アクセス(Access)を使って1週間でシステム開発する究極の方法とは?

「アクセス(Access)のシステムを無料のSQL Server 2016 Expressへ
移行してみよう」教材

あなたの会社のアクセス(Access)のデータベースやシステムに不安を感じていませんか?
アクセスのデータ量が多くなり処理スピードが遅くなった。
アクセスのデータを共有したい。
セキュリティに不安がある。などと、感じている方は!!
(SQL Server 2016 Expressバージョンです。)


「アクセス(Access)プログラムの仕様書の作り方」教材
マイクロソフトアクセスを使用して、プログラムの作成/システム開発をおこないたい方の為に、
アクセス(Access)のプログラム開発に成功するために絶対に必要な「仕様書」とは?



[↑一番上へ]
[マイクロソフトアクセス活用法(メールマガジン)(ホームへ)]
12:532003

アクセス全体

VBA

SQL Server