[[20171017153025]] 『ホルダー内 ファイル一つに纏める』(ふうか) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ホルダー内 ファイル一つに纏める』(ふうか)

お世話様です
ご教授頂けたら幸いです
下記のようにホルダー内一つのブックに纏めるマクロがありますが
これを xls cvs xlsx xlsm 等に対応させるのは
どの様にすればいいのでしょうか
大変お手数お掛けしますが 宜しくお願いいたします

Sub ホルダー内シート1纏める()
Dim Fname As String
Dim Wbm As Workbook
Dim Wbs As Workbook

Application.ScreenUpdating = False

Set Wbs = ThisWorkbook
Fname = Dir(ThisWorkbook.Path & "\*.xls*")

Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & Fname
Set Wbm = ActiveWorkbook

Wbm.Worksheets(UserForm1.ListBox1.Value).Copy after:=Wbs.Worksheets(Wbs.Worksheets.Count)
ActiveSheet.Name = Left(Fname, InStr(Fname, ".") - 1)
Wbm.Close
End If
Fname = Dir()
Loop

Application.ScreenUpdating = True

End Sub

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 >Fname = Dir(ThisWorkbook.Path & "\*.xls*") 
 ということはすでに
 xls、xlsx、xlsmには対応していると思うが。
 cvsというのはcsvの書き間違いだろうか?
 それと
 >等
 ではなく対象としたい拡張子をすべてあげてみてくれ。
(ねむねむ) 2017/10/17(火) 15:40

ねむねむ様
 >cvsというのはcsvの書き間違いだろうか?

間違いです  csv

text html

textは単なる文字列処理で構いません

Fname = Dir(ThisWorkbook.Path & "\*.xls*")
 >ということはすでに
 >xls、xlsx、xlsmには対応していると思うが。

ですね CSV HTML処理がメインになってまして
対応済みですね  たまにtext処理が入ってくる程度です 

申し訳御座いませんでした

お手数お掛けします
宜しくお願いいたします
(ふうか) 2017/10/17(火) 15:58


継続中?解決済み?
何が問題なのか誤解しているかもしれませんが…

とりあえずDirは、すべてのファイルにして、

>Workbooks.Open ThisWorkbook.Path & "\" & Fname

これの前で、拡張子をチェックしてはどうでしょうか。

(マナ) 2017/10/18(水) 20:05


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.