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