[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ホルダー内 ファイル一つに纏める』(ふうか)
お世話様です
ご教授頂けたら幸いです
下記のようにホルダー内一つのブックに纏めるマクロがありますが
これを 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.