Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72854 / 76738

←次へ　｜　前へ→


	【8366】Re:FileDialogについて

ふちこま - 03/10/10(金) 17:56 -


	引用なし

	パスワード

こうちゃんさん、INA さん

どうもお騒がせしました。
下記の様にコードを追加したら、いつの間にか使えるようになってました。

--------------------------------------------------------------------------
Dim OpenFileDialog As FileDialog
Dim strFilePath As String

Set OpenFileDialog = Application.FileDialog(msoFileDialogOpen)

With OpenFileDialog

　　.AllowMultiSelect = False
　　.ButtonName = "指定する"
　　.Filters.Clear
　　.Filters.Add "Tar ファイル", "*.gz; *.tar"
　　.Title = "情報アーカイブの指定"
　　
　　If .Show = -1 Then
　　　　
　　　　strFilePath = .SelectedItems.Item(1)
　　　　txtFilePath = strFilePath
　　
　　'ユーザーが [キャンセル] をクリックした場合
　　Else
　　End If

End With
--------------------------------------------------------------------------

「.show」の返り値を受けていなかったことが原因だったんでしょうか？

とにかく解決致しましたので、
このまま続けようと思います。

ありがとうございました。

0 hits

▼

【8353】FileDialogについて ふちこま 03/10/10(金) 9:58