Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1297 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7832】任意のエクセルファイルのインポート ぷーさん 06/5/18(木) 9:25 質問[未読]
【7833】Re:任意のエクセルファイルのインポート 小僧 06/5/18(木) 17:06 発言[未読]
【7837】Re:任意のエクセルファイルのインポート ぷーさん 06/5/19(金) 11:43 質問[未読]
【7838】Re:任意のエクセルファイルのインポート 小僧 06/5/19(金) 13:52 回答[未読]
【7843】Re:任意のエクセルファイルのインポート ぷーさん 06/5/22(月) 8:43 お礼[未読]
【7832】任意のエクセルファイルのインポート
質問  ぷーさん  - 06/5/18(木) 9:25 -
引用なし
パスワード
   エクセルファイルを、マウスポインターで反転させて選択し、それを読み込んでインポートすることは可能ですか。
インポートの命令文は下記のとおりとなっていますが、
「DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"インポートするアクセスファイル名", "インポート元のエクセルファイル名", True, "シート!"」
その中の"インポート元のエクセルファイル名"の部分をSelectObjectとか、入れてもファイル名としてしか認識しません。
ファイル名が違うデータを大量にインポートしていきたいのですが。。
ご教授お願いします。
【7833】Re:任意のエクセルファイルのインポート
発言  小僧  - 06/5/18(木) 17:06 -
引用なし
パスワード
   ▼ぷーさん さん：
こんにちは。

>ファイル名が違うデータを大量にインポートしていきたいのですが。。

「ファイルダイアログ」についてWeb検索をされてみてはいかがでしょうか。

ファイルダイアログを使う場合、AccessやOSのバージョンによって
使えるものとそうでないものがあります。

ご使用の OSと Access のバージョンを明記されると
もうちょっと情報が出てくると思いますよ。
【7837】Re:任意のエクセルファイルのインポート
質問  ぷーさん  - 06/5/19(金) 11:43 -
引用なし
パスワード
   回答ありがとうございます。

ＯＳはwinXP　でアクセス2002です。

ファイルダイアログを検索したのですが、

すいませんド素人なものでこれをどのように利用するかわかりにくいです。

アクセスにインポートするコマンドとどのように関連づけるのでしょうか？

「Windows のコモン ファイル ダイアログ ボックスに含まれます」とありましたが、何処にあるのでしょうか。

「MFCですとコモンダイアログのファイル選択が簡単にできます」とありましたので、何か別のアプリケーションを使うようですね。

すいません、仕組みがわからないもので、簡単に流れを教えてもらいますか？
【7838】Re:任意のエクセルファイルのインポート
回答  小僧  - 06/5/19(金) 13:52 -
引用なし
パスワード
   ▼ぷーさん さん：
こんにちは。

Access2002ですと、Officeに付属しているFileDialogオブジェクトを
使用すると簡潔にコードが書けると思われます。

Sub ダイアログを呼び出す()
'要参照設定 Micosoft Office x.x Object Library 10.0以降
Dim FName As Variant

　　Const IFName = "C:\"　　'デフォルトのパスを設定

　　With Application.FileDialog(msoFileDialogFilePicker)
　　　　.AllowMultiSelect = True
　　　　.Title = "インポートするファイルを選択(複数選択可)"
　　　　.Filters.Add "Excel ファイル", "*.xls"
　　　　.InitialFileName = IFName
　　　　
　　　　If .Show = -1 Then
　　　　　　For Each FName In .SelectedItems
　　　　　　　　Call インポート(FName)
　　　　　　Next
　　　　End If
　　End With
End Sub

Function インポート(xName As Variant)
'こちらでTransferSpreadsheetメソッドを発行
　　MsgBox xName

End Function


>ファイル名が違うデータを大量にインポートしていきたいのですが。。

後は同じテーブルに取り込むのか、
違うテーブルに取り込むのかが問題になってきますね。

同じテーブルに取り込みたいのでしたら
ちょっと工夫が必要になってくるかもしれません。
【7843】Re:任意のエクセルファイルのインポート
お礼  ぷーさん  - 06/5/22(月) 8:43 -
引用なし
パスワード
   小僧 さん

ありがとうございました。
試してみます。

>後は同じテーブルに取り込むのか、
>違うテーブルに取り込むのかが問題になってきますね。
>
>同じテーブルに取り込みたいのでしたら
>ちょっと工夫が必要になってくるかもしれません。

同じテーブルに取り込むことになっています。

う〜ん。私には少し理解する時間が必要ですね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1297 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078227
(SS)C-BOARD v3.8 is Free