|
IROC さん 親切なご指導ありがうございます。
早速実行してみたのですが、
set wb = Workbooks.open myPath & ファイル名
で構文エラーでとまってしまいます。
MyPathはフォルダ名でよいのですよね?
C:\Documents and Settings\Owner\デスクトップ\MyData\myData
で指定の仕方が違っていますか?
初心者で申し訳ありません。
もう一度ご指導よろしくお願いします。
▼IROC さん:
>>それをどのようにLoopすれば良いのでしょうか?
>Do〜Loop 文で順次ファイル名を取得できるので、
>それに併せて、ブックを開いて処理します。
>
>まとめたいブックの Mydataは、このマクロのブックですよね?
>ならthisworkbook で指定できます。
>
>以下のような感じで出来ると思います。
>画面のちらつきは、screenupdatingで停止できます。
>
>Sub TEST()
>Dim myPath As String
>Dim ファイル名 As String, i As Long
>dim myWb as workbook,Wb as workbook
>
> myPath = "C:\Documents and Settings\Owner\デスクトップ\MyData\"
> ファイル名 = Dir(myPath & "*.xls")
>
>
> Do While ファイル名 <> ""
> i = i + 1
> Worksheets("Sheet1").Cells(i, 1) = ファイル名
>
> set wb = Workbooks.open myPath & ファイル名
>
> wb.worksheets(1).copy _
> Before:=Thisworkbook.Sheets(1)
>
> wb.close false
>
> ファイル名 = Dir()
> Loop
>End Sub
|
|