Excel VBA 質問スレ Part52
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このスレッドのURL
■項目テキスト
600:デフォルトの名無しさん 18/03/30 22:41:59.65 NsVRzYaI.net えっと、OpenXMLのことかな? 601:デフォルトの名無しさん 18/03/30 23:23:13.75 7HVZnQv9.net 教えてください。 特定のフォルダの中にxlsファイルが一つと、xlsmファイルがあります。 これはシステムの前提です。 xlsファイルが2つ以上ある場合はエラーが出るよう、以下のように作りました。 ThisPass = ThisWorkbook.Path With CreateObject("Scripting.FileSystemObject") For Each ff In .GetFolder(ThisWorkbook.Path).Files If LCase(.GetExtensionName(ff.Path)) = "xls" Then N = N + 1 Next End With If N > 1 Then MsgBox "xlsファイルが" & N & "個見つかりました。" & vbCrLf & _ "xlsファイルは1ファイルだけおいてください。" & vbCrLf & _ "プログラムを終了します。 " Application.Quit ThisWorkbook.Close SaveChanges:=False End If 質問ですが、 そのフォルダの中に一つだけあるxlsファイル名を取得するには どうしたら良いでしょうか。 "*.xls"の条件に合うファイル名を返したいです。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック!
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
181日前に更新/277 KB
担当:undef