[[20140827131619]]　『shellを使用してファイルを開き・・・』（タロウＺ）　ページの最後に飛ぶ

『shellを使用してファイルを開き・・・』（タロウＺ）

下記マクロを使用してフォルダーを開いて、ファイル名を選択して開きSheet1のcells全体をcopyして元のファイル（マクロがあるファイル）のSheet1に貼り付を自動でやりたいのですが教えてください。
ファイル一覧フォルダーには同じような名前のファイルが多数あるので直接ファイル指定は困難です。

   Sub フォルダーを開く()

        CreateObject("Shell.Application").ShellExecute _
                "C:\Documents and Settings\taka\デスクトップ\ファイル一覧\"
   End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

 シェルは単にフォルダを開くだけなので、VBA ではフォルダダイアログに変えた方が良いと思います（複数選択もできます）。
http://officetanaka.net/excel/vba/file/file02.htm

（Mook） 2014/08/27(水) 15:05

  遅くなりました。
   Dim OpenFileName As String
       OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")

    Workbooks.Open OpenFileName
        Workbooks.Open OpenFile
     SS = ActiveWorkbook.Name

で出来ました。
有難うございます。

（タロウＺ） 2014/08/28(木) 13:13

コメント返信：