Excel VBA質問箱 IV

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

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


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

35158 / 76732

←次へ　｜　前へ→


	【46776】Re:指定フォルダを開く

ooisi - 07/2/14(水) 22:09 -


	引用なし

	パスワード

いろいろテストした結果下記コードが希望に一番近いのですが
フォルダを指定できませんか　"D:\OfficeII\ISO書類関連"

Sub 開く3()
Dim OpenFileDialog As FileDialog
Dim strFilePath As String

Set OpenFileDialog = Application.FileDialog(msoFileDialogOpen)

With OpenFileDialog

　　.AllowMultiSelect = False
　　.ButtonName = "指定する"
　　.Filters.Clear
　　.Filters.Add "Excel ファイル", "*.xls"
　　.Title = "情報アーカイブの指定"
　
　　If .Show = -1 Then

'　　　　strFilePath = .SelectedItems.Item(1)

　　'ユーザーが [キャンセル] をクリックした場合
　　Else
　　End If

End With
End Sub

5 hits

▼

【46759】指定フォルダを開く ooisi 07/2/14(水) 12:17