![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
こんにちは。
ACCESSについての質問です。
基本的にマクロを中心に使っています。VBAは現在勉強中ですから、
VBA初心者でも分かりやすく説明していただけると助かります。
会員の情報の一覧表をフォームで表示しております。
ほとんどの情報は、ACCESSで作ってますが、一部会員から送ってもらうEXCELがあります。
会員情報フォームの中にボタンを作り、そのボタンを押せば、その会員の作ったEXCELを
開けるようにしたいのです。
会員ID毎に会員IDの名前のフォルダを作り,そこにEXCELを入れています。
例えば、
会員IDが"1"の人のEXCELが”C”の中の"1"というフォルダの中にある"業務内容.xls"
会員IDは"2"の人のEXCELが”C”の中の"2"というフォルダの中にある"業務内容.xls"
・・・
という感じです。
会員情報の一覧フォームのあるフィールドにEXCELの場所と名前を入れています。
そのフィールドに入った値を使って、EXCELを開くことはできないでしょうか?
会員IDが1の場合、フィールドには、"c:\1\業務内容.XLS"
会員IDが2の場合、フィールドには、"c:\2\業務内容.XLS"
という値が入れています。
EXCELの場所と名前が固定であれば、マクロのアプリケーションの実行のコマンドラインを使って、
簡単に開けることはできますし、会員が少人数であれば、IFを使って作ることが出来ますが、
VBAならEXCELのファイル名にフォームのフィールドの値を使って開けれるのではないかと。
VBAの本で調べたり、ネットで調べましたが、分かりませんでした。
初めて質問させていただくので、説明がうまくできず、申し訳ありません。
どうぞ、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
開くだけならハイパーリンクが簡単かな?
Private Sub コマンドボタン_Click()
Application.FollowHyperlink Me.あるフィールド
End Sub
回答下さりありがとうございます。
試してみましたが、ファイル名の前後に#と最後に1が勝手に入り、
認識できないとエラーになります。
具体的には
"#c:\1¥業務内容/xls#1"
になります。理由がわかりましたら、教えていただけますでしょうか?
お手数をおかけいたしますが、よろしくお願いいたします。
No.2
- 回答日時:
もし、ご興味があったら、次のプログラムコ-ドをご利用下さい。
私が実際に、会社で利用中なので、動くはずです。
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open "c:\1\業務内容.XLS"
Set objExcel = Nothing
私は、拡張子のチェックをしたり、ファイル存在チェックをしたり、していますが、必ず存在していて必ずエクセルなら、このまま、ファイル名だけを動的に差し替えるように組み込めば、目的を果たすプログラムを作ることが出来ると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- その他(Microsoft Office) outlookで宛先が異なるメールを一括送信する方法 outlookで200人それぞれをtoに指定し 2 2023/08/03 21:24
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- その他(セキュリティ) これは個人情報取扱に違反していますか? 5 2022/11/15 22:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスで入力したデータの順...
-
「#エラー」の回避
-
差し込み文書のルールで if the...
-
ExcelからAccessデータを検索す...
-
WORD差し込み印刷:日付の処理 ...
-
A1、A2、A3・・・とデータを増...
-
accessのフィールドに10桁の数...
-
フィールドの中のテキストを分...
-
WORDのIFにEqフィールドは使えない
-
インディックスまたは主キーに...
-
アクセス 入力した文字を自動...
-
ACCESS2000 レポートでこんなこ...
-
Accessで値がnullの場合は計算...
-
FileMakerで画像をまとめて書き...
-
ファイルメーカーでの指定桁数...
-
Wordでページ番号を計算式で入...
-
アクセスについて質問です
-
WORDフィールドコード一括編集
-
ファイルメーカー複数フィール...
-
FileMakerで特定フィールドを空...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「#エラー」の回避
-
アクセスで入力したデータの順...
-
ExcelからAccessデータを検索す...
-
差し込み文書のルールで if the...
-
accessのフィールドに10桁の数...
-
Access フィールド内の値で、...
-
Accessで値がnullの場合は計算...
-
フィールドの中のテキストを分...
-
Accessでボタンを押すと今日の...
-
access フィールドのサイズ(文...
-
FileMakerで、フィールドの値が...
-
MS-WORDで、あるフィールドに入...
-
ACCESSでデータ変更箇所が分か...
-
MS-ACCESSで中央値(ME...
-
ファイルメーカー複数フィール...
-
WORD差し込み印刷:日付の処理 ...
-
アクセス Access 時間の引き算
-
WORDフィールドコード一括編集
-
Wordでページ番号を計算式で入...
-
accessのVBAで変数名でフィ...
おすすめ情報
bonaron様
回答ありがとうございます。
試してみたのですが、ファイル名の前後に自動的に#と最後に1と入り認識してくれません。
"#c:\1\業務内容.xls#1"は、認識できませんとなります。
回避出来る方法がありましたら、教えていただけますでしょうか?
よろしくお願いいたします。