| |
>1)ユーザーがマクロbookから、Aフォルダと比較する。B.xlsファイルを選択します。
「マクロbookから、Aフォルダと比較」？
いまいち文章の意味が分かりません。
>2)「ユーザーが選択したAフォルダに入っている.xlsファイル全て」に対して、
>B.xlsファイルと比較します。
フォルダの選択と、ファイル名の取得は、以下のように出来ます
Dim myObj As Object
Dim myDir As String
Dim myFileName As String
Dim myFileList As String
Dim myFileCount As Long
'フォルダ選択ダイアログの表示
Set myObj = CreateObject("Shell.Application"). _
BrowseForFolder(0, "フォルダを選択してください", 0)
If myObj Is Nothing Then Exit Sub
myDir = myObj.Items.Item.Path
If Right(myDir, 1) <> "\" Then myDir = myDir & "\"
'##################################
' フォルダ内のExcelファイル検出
'##################################
myFileName = Dir(myDir & "*.xls")
Do While myFileName <> ""
If myFileName = ThisWorkbook.Name Then myFileName = ""
myFileList = myFileList & Chr(13) & myFileName
myFileCount = myFileCount + 1
myFileName = Dir()
Loop
If myFileCount = 0 Then
MsgBox "ファイルは見つかりませんでした。マクロを終了します。", 48
Exit Sub
ElseIf vbNo = MsgBox(myFileCount & " 個の .xls ファイルが見つかりました。マクロを実行しますか？" _
& Chr(13) & myFileList, 4, "ファイル確認") Then
MsgBox "キャンセルしました。"
Exit Sub
End If
MsgBox "マクロを実行します。"
|
|
INA
- 03/12/25(木) 13:11 -
