Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10125 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23477】エクセル以外（.xls）を選ぶとエラーにな... かもあも 05/3/24(木) 16:18 質問[未読]
【23480】Re:エクセル以外（.xls）を選ぶとエラーに... Jaka 05/3/24(木) 16:39 回答[未読]
【23481】Re:エクセル以外（.xls）を選ぶとエラー... かもあも 05/3/24(木) 16:49 質問[未読]
【23486】Re:エクセル以外（.xls）を選ぶとエラー... Jaka 05/3/24(木) 17:10 回答[未読]
【23493】Re:エクセル以外（.xls）を選ぶとエラー... かもあも 05/3/24(木) 17:41 お礼[未読]
【23498】Re:エクセル以外（.xls）を選ぶとエラー... かもあも 05/3/24(木) 18:15 質問[未読]
【23509】Re:エクセル以外（.xls）を選ぶとエラー... Jaka 05/3/25(金) 10:13 回答[未読]
【23554】Re:エクセル以外（.xls）を選ぶとエラー... かもあも 05/3/28(月) 9:41 お礼[未読]
【23477】エクセル以外（.xls）を選ぶとエラーにな...
質問  かもあも  - 05/3/24(木) 16:18 -
引用なし
パスワード
   すいません、教えてください。

以下のようにエクセルのパスを取得するように
書いてみたのですが、、
エクセル以外（.xls）を選ぶと
エラーになるようにするには、
どうしたらよいでしょうか？


パス = Application.GetOpenFilename(title:="エクセルを選択してください。", buttontext:=ボタン)

If Dir(パス) = ○○○ Then
pass = Dir(パス)
Else
MsgBox "やり直してください。", vbExclamation, "エラーです。"
End If


○○○○のところに何か入れればよいのでしょうか？
それとも、違う書き方をしないといけないのでしょうか？
よろしくお願いします。
【23480】Re:エクセル以外（.xls）を選ぶとエラー...
回答  Jaka  - 05/3/24(木) 16:39 -
引用なし
パスワード
   こんにちは。

▼かもあも さん：
>エクセル以外（.xls）を選ぶと
と言うより、.xlsだけを表示するようにしたらどうでしょうか？

パス = Application.GetOpenFilename("Excelファイル (*.xls), *.xls", Title:="エクセルを選択してください。", buttontext:=ボタン)
【23481】Re:エクセル以外（.xls）を選ぶとエラー...
質問  かもあも  - 05/3/24(木) 16:49 -
引用なし
パスワード
   ▼Jaka さん：
あ、なるほど。
出来ました。
ありがとうございます。

もう一つお尋ねしたいのですが、
ファイルを選択するときに、
C:\Text
以降から選ぶためには、どうしたらいいのでしょうか？
（ある程度同じところで作業しているので、、、）

よろしくお願いします。
【23486】Re:エクセル以外（.xls）を選ぶとエラー...
回答  Jaka  - 05/3/24(木) 17:10 -
引用なし
パスワード
   こんな感じ。

dif = CurDir()
ChDir ("C:\Text")
パス = Application.GetOpenFilename("Excelファイル (*.xls), *.xls", Title:="エクセルを選択してください。", buttontext:=ボタン)
ChDir (dif)
【23493】Re:エクセル以外（.xls）を選ぶとエラー...
お礼  かもあも  - 05/3/24(木) 17:41 -
引用なし
パスワード
   ▼Jaka さん：
イメージ通りに出来ました。

ありがとうございました。
感謝。感謝です。
【23498】Re:エクセル以外（.xls）を選ぶとエラー...
質問  かもあも  - 05/3/24(木) 18:15 -
引用なし
パスワード
   ▼Jaka さん：
たびたび、すいません。

前回の続きで、
ファイルを選択するときに、
C:\Text
以降から選ぶことは出来たのですが、
2回目からは、1回目(前回)に選んだ場所から
始めるようにしたいです。

よろしくお願いします。
【23509】Re:エクセル以外（.xls）を選ぶとエラー...
回答  Jaka  - 05/3/25(金) 10:13 -
引用なし
パスワード
   1回目(前回)に選んだ場所のフォルダパスをどこか（セル等）に書き込んでおいて、そのパスをカレントディレクトリに指定してGetOpenFilenameを実行すればいいです。
ChDir ("前回のフォルダパス")

1回目(前回)に選んだ場所のフォルダパスは、前回選んだフルパスファイル名から分析してください。

他
SendKeys ("前回のフォルダパス")
SendKeys ("{ENTER}")
パス = Application.GetOpenFilename("Excelファイル (*.xls), *.xls", Title:="エクセルを選択してください。", buttontext:=ボタン)
【23554】Re:エクセル以外（.xls）を選ぶとエラー...
お礼  かもあも  - 05/3/28(月) 9:41 -
引用なし
パスワード
   ▼Jaka さん：
Jakaさん、返答ありがとうございます。

if文を使ってなんとか作成してみました。
いろいろアドバイスありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10125 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free