ここから本文です

エクセルのブックとシートの操作について

nat********さん

2013/5/3009:25:56

エクセルのブックとシートの操作について

顧客データごとにシートを作っています。
膨大な数になる為顧客のふりがな別(あ顧客ブック、い顧客ブック・・・・)にブックを分けています。
これらはすべて同じフォルダに格納してあります。
その時々によって集計、修正する顧客データは決まっておりません。
シート名は顧客名になっております。
このたくさんのブックから必要な顧客データの一覧を参考に新しいブックにコピーすることはできますか?
そしてまたそのコピーして手を加えた顧客データをコピー元の顧客データに上書き?をすることはできますか?
今まで手作業で行っていましたが、年々膨大なデーターになっていくのでマクロやVBAなどで解決できないかとかんがえております。

もちろんアクセスなどのデーターベース管理ソフトを使用するのが一番いいのですが、事情によりエクセルしか使用できません。

宜しくお願いいたします。

閲覧数:
288
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

sh0********さん

2013/5/3009:36:51

ハイパーリンクをはって必要なファイルを呼び出すやり方はどうでしょう?
以下はひとつのフォルダーにあるすべてのエクセルファイルの「ファイル名」と「それぞれの「A1」セルの
データをワークシートに一覧表示し、それぞれのブックにハイパーリンクをはるマクロです、
参考になれば

'前提条件
'データのあるフォルダ名=「業務用フォルダ」
'マクロのあるワークブックと業務用フォルダは同ディレクトリ内
'業務用フォルダのサブフォルダは検索対象外


Sub KENSAKU()


'アクティブシート.UsedRange.ClearContents '使われたセル範囲をクリア
'ActiveWindow.FreezePanes = False ' ウィンドウ枠を固定、不要?
'見出し入力
Dim FN As String
FN = Dir(ThisWorkbook.Path & "\業務用フォルダ\*.xls")
I = 0
Do While FN <> ""
I = I + 1
Cells(I + 1, 1) = ExecuteExcel4Macro _
("'" & ThisWorkbook.Path & "\業務用フォルダ\[" & FN & "]SHEET1'!R1C1")
ActiveSheet.Hyperlinks.Add ANCHOR:=Cells(I + 1, 2), Address:=ThisWorkbook.Path _
& "\業務用フォルダ\" & FN, TextToDisplay:=FN
FN = Dir()
Loop


End Sub

質問した人からのコメント

2013/5/30 10:14:08

笑う やはり複数のシートを一つずつ指定していくのはなかなか難しいです。。。
でも、これ以外でも使るVBAでした!!ありがとうございました(^0^)

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる