Path: ccsf.homeunix.org!ccsf.homeunix.org!news1.wakwak.com!nf1.xephion.ne.jp!onion.ish.org!onodera-news!newsfeed.media.kyoto-u.ac.jp!jpix!nntp2.iprev.net!nntp1.iprev.net!giga-nspixp2!newsgate1.web.ad.jp!news501.nifty.com!not-for-mail
From: <kounoike@mbh.nifty.com>
Newsgroups: fj.comp.applications.excel
Subject: =?iso-2022-jp?B?UmU6IBskQkojP3QkTiVVJSElJCVrJHIjMSREJE4lNyE8JUgbKEI=?=
	=?iso-2022-jp?B?GyRCJEtFPSRqSVUkMSRrJEskRCQkJEYhIxsoQg==?=
Date: Fri, 1 Aug 2003 22:20:26 +0900
Organization: @nifty netnews service
Lines: 64
Message-ID: <bgdqcd$4f$1@news511.nifty.com>
References: <3F2A1C0A.3030700@toll.co.jp>
NNTP-Posting-Host: 1cust199.tnt1.tokushima.jp.fj.da.uu.net
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
X-Trace: news511.nifty.com 1059744974 143 63.51.29.199 (1 Aug 2003 13:36:14 GMT)
X-Complaints-To: -
NNTP-Posting-Date: Fri, 1 Aug 2003 13:36:14 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: ccsf.homeunix.org fj.comp.applications.excel:61

鴻池です。

"Yoshiaki Kawajiri" <yoshiaki_kawajiri@toll.co.jp> wrote in message
news:3F2A1C0A.3030700@toll.co.jp...
> 川尻＠札幌です。
> #の所まで動きました。繋げるのがよく分かりません。

以下のスタート用マクロを追加。

Sub start_test()
    Dim tobook As Workbook
    Dim tosheet As Worksheet

    Set tobook = ActiveWorkbook
    Set tosheet = ActiveSheet
    ファイルの読み込み_Click tobook, tosheet
End Sub

その後
川尻さんの作成したものを以下のように修正・追加します。川尻さんのマクロでは，
選択したファイルが開けていません。それでは，私の方法ではコピーできません。
（川尻さんの希望する方法がこういった選択方法とは予想してませんでした。）

> Private Sub ファイルの読み込み_Click()　を下記の文に修正
Private Sub ファイルの読み込み_Click(tobook As Workbook, tosheet As
Worksheet)

> Dim tmp As Variant
> Dim i As Integer
> Dim msg As String
Dim ac As Workbook      '追加
> tmp = Application.GetOpenFilename("Excel(*.xls),*.xls", , _
>         "交通量ファイルを複数選択してください", , True)
>         If (VarType(tmp) = vbBoolean) Then
>         Exit Sub
>         Else
>         For i = LBound(tmp) To UBound(tmp)
>         msg = msg & Str(i) & ":" & tmp(i) & vbCrLf
>         Next i
>         End If
>     MsgBox msg

        '以下追加
        For i = LBound(tmp) To UBound(tmp)
            Workbooks.Open tmp(i)
            Set ac = ActiveWorkbook
            start_copysheet tobook, tosheet
            ac.Close SaveChanges:=False
        Next i

> End Sub

この後ろは，そのまま。

あとは，集計用のシートをアクティブ（選択）にした状態で，start_testを実行。
一つ一つ選択したファイル開いて，コピーしたあと閉じるようにしています。全て開
いてコピーするほうが良いのなら，また変更が必要ですが。
環境が違うのでなんとも言えませんが，確認して見て下さい。

-- 
******************************
   keizi kounoike
******************************