[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『パス指定でエラー』(コンスト)
path を設定する場合
Const path As String = "D:\test\"
で上手く処理できる時に
毎回コードを書き換えるのは面倒なので
ダイアログでPathを選択するようにしたく
以下のようにコードを変更してみましたが
.SelectedItems(1)で
コンパイルエラー: 定数式が必要です
となります。
どうすれば良いでしょうか ?
'ダイアログでPathを選択
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
Const path As String = .SelectedItems(1) & "\"
End If
End With
< 使用 Excel:Office365、使用 OS:Windows10 >
定数にする意味がないので、素直に変数でやればよいのでは?
(白茶) 2022/12/01(木) 12:01:35
横から失礼します。
参考まで。
http://www.officetanaka.net/excel/vba/variable/13.htm
(MK) 2022/12/01(木) 13:10:01
定数にする意味がないので、素直に変数でやればよいのでは?
Const path As String = "D:\test\" を以下に置き換えると
Dim path As String
path = "D:\test\"
Set Shel = CreateObject("Shell.Application")
Set Foldr = Shel.Namespace(path)
Target = Dir(path & "*.mp4")
以後のDo While 文内でエラーが出ます。
実行エラー91: オブゼクト変数またはwithブロック変数が設定されていません。
Cells(cnt, 1) = Foldr.GetDetailsOf(Foldr.ParseName(Target), 0) ' ファイル名
(コンスト) 2022/12/01(木) 13:14:41
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.