Excel VBA質問箱 IV

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

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


71272 / 76732 ←次へ | 前へ→

【9955】Re:フォルダ内の、ファイル全てに対して・...
回答  INA  - 03/12/25(木) 13:11 -

引用なし
パスワード
   >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 "マクロを実行します。"

0 hits

【9951】フォルダ内の、ファイル全てに対して・・・ テーブル 03/12/24(水) 17:42 質問
【9953】Re:フォルダ内の、ファイル全てに対して・・... INA 03/12/24(水) 23:30 回答
【9954】Re:フォルダ内の、ファイル全てに対して・・... テーブル 03/12/25(木) 12:00 質問
【9955】Re:フォルダ内の、ファイル全てに対して・... INA 03/12/25(木) 13:11 回答
【9956】Re:フォルダ内の、ファイル全てに対して・... テーブル 03/12/25(木) 14:28 質問
【9958】Re:フォルダ内の、ファイル全てに対して・... テーブル 03/12/25(木) 14:50 質問
【9964】Re:フォルダ内の、ファイル全てに対して・... INA 03/12/25(木) 18:44 回答
【9965】Re:フォルダ内の、ファイル全てに対して・... INA 03/12/25(木) 18:49 回答
【10075】Re:フォルダ内の、ファイル全てに対して・... テーブル 04/1/6(火) 11:20 発言

71272 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free