Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
535 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11235】アクセスからコンボボックスを使って特定のエクセルシーチを開くには やまネコ122 09/11/9(月) 17:10 質問[未読]
【11236】Re:アクセスからコンボボックスを使って特... 超初心者 09/11/10(火) 8:54 発言[未読]
【11237】Re:アクセスからコンボボックスを使って特... やまネコ122 09/11/11(水) 9:36 お礼[未読]
【11239】Re:アクセスからコンボボックスを使って特... やまネコ122 09/11/11(水) 16:32 質問[未読]
【11241】Re:アクセスからコンボボックスを使って特... 小僧 09/11/11(水) 19:14 回答[未読]
【11243】Re:アクセスからコンボボックスを使って特... やまネコ122 09/11/12(木) 9:19 お礼[未読]
【11235】アクセスからコンボボックスを使って特定...
質問  やまネコ122 E-MAIL  - 09/11/9(月) 17:10 -
引用なし
パスワード
   初心者です。
ＡＣＣＥＳＳ2002，ＸＰです。

Gドライブ（共有ハードディスク）にあるシートを開く為、
コンボボックスで特定シートが含まれるフォルダから、
さらにシートを表示し、選択してエクセルを開きたい（読み書き）のです。

コンボボックスにコマンドボタンのイメージです。

ご存知の方、ご教示方、宜しくお願いいたします。
【11236】Re:アクセスからコンボボックスを使って...
発言  超初心者  - 09/11/10(火) 8:54 -
引用なし
パスワード
   ▼やまネコ122 さん：

コンボボックスに表示する、ということは、
フォルダ内のファイル一覧を取得する、ということでしょうか？

そうであった場合、
フォルダごとに取得？
サブフォルダ等は無視してとにかくファイル名一覧？

シートを選択、ということは、
エクセルブック内の特定のシートを選択したい、ということでしょうか？
それとも「ブック名」の間違い？


いずれにしても、コンボボックスで取得するより
「ファイルを開く」ダイアログを使った方が簡単な気もしますが・・・
（「Ｇ：￥」を既定にすることもできますし）

コンボボックスに表示するデータを取得する処理で時間も掛かりそうな気がします＾＾；；
それでもコンボボックスを使用したい特別な理由でもあるのでしょうか？

「ファイルを開く」ダイアログの使用方法は検索するとたくさん出てきます。
【11237】Re:アクセスからコンボボックスを使って...
お礼  やまネコ122 E-MAIL  - 09/11/11(水) 9:36 -
引用なし
パスワード
   ご指摘ありがとうございます。
ご指摘自体に自らの未熟さに改めて気付かされてます。

アクセスから特定のエクセル（ブック）を開きたいので
コンボボックスによる方法にこだわりはありませんでした。

教えていただいた「ファイルを開く/ダイアログ」でチャレンジ
してみます。

取り急ぎお礼まで。
ありがとうございました。
【11239】Re:アクセスからコンボボックスを使って...
質問  やまネコ122 E-MAIL  - 09/11/11(水) 16:32 -
引用なし
パスワード
   フォームにテキストボックスは配置し、コマンドボタンでエクセルを開くこうと
しています。テキストボックス名：テキスト283、コマンドボタン名：コマンド285

Gドライブにある見積書フォルダの○○○.xlsを開くものです。

Private Sub　コマンド285_Click()
On Error GoTo Err_コマンド285_Click

Dim stAppName As String

stAppName="Excel.exe\\servoer0\G:見積書\"& Me.テキスト283&"\"& Meテキスト283 & "*.xls"

Exit_コマンド285_Click
Exit Sub

Err_コマンド285_Click
MsgBoxErr.Description
Resume Exit_コマンド285_Click

End Sub
-------------------------------------------------------------------------
上記の中で「Exit_コマンド285_Click 」がコンパイルエラーが出て
”SubまたはFunctionが定義されていませんと”表示されます。

解決方法をご教示頂きたく、宜しくお願い致します。
【11241】Re:アクセスからコンボボックスを使って...
回答  小僧  - 09/11/11(水) 19:14 -
引用なし
パスワード
   ▼やまネコ122 さん：
こんにちは。

ご投稿された際にただ単純にコードを打ち間違えたのか
それともそのままのコードが載っているのかが不安ですが
直接の原因は

> Exit_コマンド285_Click
↓
Exit_コマンド285_Click:
　　　　　　　　　　　^^
だと思われます。

・Excel.exe と ファイル名の間にスペースがない
・文字列連結の & の前後にスペースがない
・テキスト283が2回出てきている
・2回目の テキスト283 と Me の間に「.」がない
・そもそも起動する為のShell関数が記述されていない

等、突っ込み所がたくさんありますね…。
【11243】Re:アクセスからコンボボックスを使って...
お礼  やまネコ122 E-MAIL  - 09/11/12(木) 9:19 -
引用なし
パスワード
   小僧さん

ご指摘ありがとうございます。

今一度、基礎からじっくり勉強します。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
535 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078194
(SS)C-BOARD v3.8 is Free