以前シート間での複写方法を教えて頂いたのですが…
EXCEL fileが多くあって、その中のシートを選択し複写するのですが
どうすればいいのかな？
1.VB6.0でExcelファイルを選択できました。
（フォルダ参照選択式で、Excelfileを画面で選択）
2.どのシートか選択できます。
3.出力するEXCELファイルを新規に作成して、そこに選択した他のEXCELシート内容を
複写し集計したいのです。

そこまでできるのならマクロに記録して、そのマクロを見て下さい。
マクロを使用する時は、ここの注意事項をよく見て下さい。
それでもうまくいかなかったり、解らなければ再度質問して下さい。
多分簡単なマクロになるはずです。

> そこまでできるのならマクロに記録して、そのマクロを見て下さい。
> マクロを使用する時は、ここの注意事項をよく見て下さい。
> それでもうまくいかなかったり、解らなければ再度質問して下さい。
> 多分簡単なマクロになるはずです。

ん〜うまくいかないです。
EXCELで作成されたシートが沢山ありまして
そこからチョイスしたシートを新しいシートに書き込みするのですが…
書きこみを参照するEXCELファイルが3〜5種類です。書き込みするのが別のEXCELファイルシートです。

例えば、最初のシートからはZ〜AFで　シートのC〜Iに
次のシートからは　Y〜AEでシートのJ〜Pへと
どうしても中身が転送されないのです。
すいません。教えてください。

> > そこまでできるのならマクロに記録して、そのマクロを見て下さい。
> > マクロを使用する時は、ここの注意事項をよく見て下さい。
> > それでもうまくいかなかったり、解らなければ再度質問して下さい。
> > 多分簡単なマクロになるはずです。
>
> ん〜うまくいかないです。
> EXCELで作成されたシートが沢山ありまして
> そこからチョイスしたシートを新しいシートに書き込みするのですが…
> 書きこみを参照するEXCELファイルが3〜5種類です。書き込みするのが別のEXCELファイルシートです。
>
> 例えば、最初のシートからはZ〜AFで　シートのC〜Iに
> 次のシートからは　Y〜AEでシートのJ〜Pへと
> どうしても中身が転送されないのです。
> すいません。教えてください。

追伸です。VBで行ってます。
EXCELのファイル名は固定では　ないのでファイルボックスから選択しています。

> > > そこまでできるのならマクロに記録して、そのマクロを見て下さい。
マクロを取って見ましたか？

> > どうしても中身が転送されないのです。
> > すいません。教えてください。

せめてその部分のコードなりを提起して頂かないとどのようにしたいのか
どのようにされているのかがこれだけでは、私には判断できません。
前回の質問ではシートを複写したいと言っておられたようにおもったのですが
今回はセル範囲のような感じがするし？
全体のコードなりを見ればこちらでもテストしたり、貴方のやりたい事が
少しは掴めるのですが？

まずはマクロを取ってそのマクロをVBのコード上に書いて動かしてみて下さい。

実は　複数のPCで作成されたデータを集めて一つの集計シート表を作成しようとしています。
各EXCELファイルはそれぞれのPCで作成されており、メール受信などで集まってきます。
シートの名称やセルの場所は決めてあります。
約80〜90種類のEXCELファイルです。この中から指定したEXCELの表をピックアップし一つにまとめます。

集計シートを作成するにあたり、それぞれのリンクを貼ると膨大な量になってなります。
そこで、VBを使って指定Excelファイルのシートを選択し、まとめる方法にしました。

　　ピックアップしたファイルをセット
　　Label2.Caption = File1.Path & "\" & File1.FileName
                                        'ファイルの有無を調べる
    Dim MyFile As String
    MyFile = Dir$("c:\temp\work1.xls")
    If Len(MyFile) > 1 Then
                                        'ファイルを削除する
        Kill "c:\temp\work1.xls"
        File1.Path = MyPath
        File1.Refresh
    End If

    On Error Resume Next
    Dim xlApp   As Excel.Application
    Dim xlBook  As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

    Set xlApp = Excel.Application
    Set xlBook = xlApp.Workbooks.Open(Label1.Caption)
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = False
    Dim CNT As Integer
    Dim XX As Integer

    For CNT = 1 To 40
        XX = (CNT * 2) + 7
        SelectTmp = "B" & XX & ":C" & XX & "," & "X" & XX & ":AF" & XX & ","
        SelectTmp = SelectTmp & "AF" & XX + 1 & "," & "AG" & XX & "," & "AG" & XX + 1 & ","
        SelectTmp = SelectTmp & "AH" & XX & ":AI" & XX
        With xlSheets
            .Range(SelectTmp).Select
        End With
        xlsobj.Application.Selection.Copy
        xlsobj.Worksheets("新規シート").Select        
        xlsobj.Worksheets("新規シート").Paste
    Next CNT

    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

と、ここまで書いてありますが、（色々と記述を変えてたので、）意味不明箇所は削除しました。
支店ごとの会員管理のようなものです。
出力をテキストにしようかACCESSのMDBにするか、それともそのままEXCELに複写しするか…
わからなくなってきてます。
良い方法があれば教えてください。

私ならVBで出来る事はVBでやります。（Excelで集計するメリットが無い）
支店ごとでファイルを作成してそのファイルを集めて集計するならExcelで作成した時に
CSV形式で保存してもらえば、Excelを使わずにVB単独で集計できるし、処理も早いかと
思います。
集計結果をそのままCSV形式で保存すれば、Excel上で読込表示する事もできますし、
Excel上でそのような集計を使用と思えば多分VBでやる数倍の時間がかかるし、場合
によっては、Excel上で読み書きを繰り返す事によって問題が起きる場合もあります。

花ちゃんさんへ、色々とご相談を請けて頂き有難うございます。

やはり、色々試したけれど難しい…ので
データベースを簡易的に用意してそこに出力したほうが無難ですかね。
テキストファイルに順に出力してまとめるほうがいいかな！

Accessのデータベースに出力するようにして、今後各支店で集計してもらう。
今後は、データベースかで行ってもらうようにしよう・・と思います。
とりあえず、今集まっているのを何とかしないと…

で、すいませんがAccessに出力するとして、どうすればいいでしょうか？
教えてください。

> で、すいませんがAccessに出力するとして、どうすればいいでしょうか？
> 教えてください。

私は Access を持っておりませんし、使った事もありませんので、
この件は、一度これでケリとし Access で作成されるならAccess 専用の掲示板で
http://www7.big.or.jp/~pinball/discus/access/index.html 質問
されるなり、ここで新規投稿されるなりして下さい。

> > で、すいませんがAccessに出力するとして、どうすればいいでしょうか？
> > 教えてください。
>
> 私は Access を持っておりませんし、使った事もありませんので、
> この件は、一度これでケリとし Access で作成されるならAccess 専用の掲示板で
> http://www7.big.or.jp/~pinball/discus/access/index.html 質問
> されるなり、ここで新規投稿されるなりして下さい。
判りました。おつき合い有難う。