- ベストアンサー
Excelで同じフォルダ内にある異なったbook内の
mauraの回答
With Application.FileSearch .LookIn = "C:\Documents and Settings\NAKAMURA\デスクトップ\KONKI" .Filename = "*.xls" If .Execute > 0 Then For FileNo = 1 To .FoundFiles.Count Workbooks.Open Filename:=.FoundFiles(FileNo) intSC = ActiveWorkbook.Sheets.Count For intNum = 1 To intSC If Sheets(intNum).Name = "SHINKI" Then Sheets(intNum).Cells(1,1) = "2007年" End If Next Next ActiveWorkbook.Close SaveChanges:=True End If End With 動作確認はしてませんので、動かないかもしれませんが こんな感じで出来ると思います。
関連するQ&A
- Excel - セルの値を外部シート名として認識させる
お世話になります。 例えばデスクトップに置いてあるブックのセルを、別のブックのセルに引っ張るとき。 ='C:\Documents and Settings\UserName\デスクトップ\[Book1.xls]Sheet1'!A1 という風になりますが。 例えばBook2のセルA1に【Book3】、A2に【Sheet5】とあってこれらが可変であるとき、セルA3に ='C:\Documents and Settings\UserName\デスクトップ\[Book3.xls]Sheet5'!A1 の値を引っ張ろうと思ったら、それは可能でしょうか。 【Book3】、【Sheet5】はそれぞれユーザが任意に入力すると、テーブルの値が変わる、という風にしたいわけですが。
- ベストアンサー
- オフィス系ソフト
- 同一フォルダ内で、エクセルを自動リンクさせる方法
同一フォルダ内で、エクセルを自動リンクさせる方法を教えて下さい。 デスクトップ＞書類＞データ の順にフォルダを作成し、 「データ」フォルダの中に、Excelのブックを複数作っています。 「データ」フォルダ内に、 Book1、Book2、Book3、Book4があるとして、 Book1の情報を更新すれば、Book2、Book3、Book4も関数を介して全て変わるようにしたいです。 [BOOK1.xls]で、他のBookに反映するようにしたところ、 Book1の情報を読み込むために、ルート（デスクトップ¥書類¥データ）まで遡るため、 処理に時間がかかります。 同じフォルダ内のため、「データ」フォルダを基点に、自動リンクを指定できないものでしょうか。 条件： それぞれのBookには、複数のシートを作成しているため、同じBook内に全て入れることが出来ません。 WIndows XPでExcel 2000を使用しています。 軽く処理出来るようにしたいので、 他にやり方があれば、どのような方法でも構いませんので教えて頂けると助かります。 何卒、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで、他のブックを開くときについて
マクロの記録を利用して、他のブックを開くことをしました。 マクロのモジュールを見たら、 ChDir "C:\Documents and Settings\＊＊＊＊＊\デスクトップ" Workbooks.Open Filename:="C:\Documents and Settings\＊＊＊＊＊\デスクトップ\○○.xls" となっていました。 1行目の「Chdir」というのはなんでしょう？ また、2行目では開きたいブックをパスを使ってあらわしています。 今マクロを動かしているブックと同じフォルダ内にあるブックや そのフォルダから見て上位のフォルダとか、「ｃ：」から始まる パスを使わないような書き方はあるのでしょうか？ ご助言お願いします。
- ベストアンサー
- オフィス系ソフト
- フォルダ&ファイルをこのように効率的にコピーや削除するbatファイルは?
Windows2000の環境です。 192.168.0.1(ファイルサーバ) | |─192.168.0.2 | 192.168.0.3 という環境です。 192.168.0.2や192.168.0.3のファイル&フォルダ環境を出来るだけ統一したく思っています(192.168.0.2と192.168.0.3を同時に使用することはありません)。 ログオフ時に \\192.168.0.2(3)\Documents and Settings\root\デスクトップ\ 下の子フォルダ&孫フォルダ&ファイルを \\192.168.0.1\Documents and Settings\root\デスクトップ\ に移して ログイン時には逆に \\192.168.0.1\Documents and Settings\root\デスクトップ\ 下の子フォルダ&孫フォルダ&ファイルを \\192.168.0.2(3)\Documents and Settings\root\デスクトップ\ に移したいのですが 単にログオフ時に \\192.168.0.1\Documents and Settings\root\デスクトップ\ の子フォルダ&孫フォルダ&ファイルを全削除して \\192.168.0.2(3)\Documents and Settings\root\デスクトップ\ の子フォルダ&孫フォルダ&ファイルを全コピーするとフォルダサイズとかが大きい場合にはログイン完了やログオフ完了までかなりの時間がかかってします。 それでタイムスタンプが同じファイルは無視して \\192.168.0.2(3)\Documents and Settings\root\デスクトップ\ 下にあってタイムスタンプが新しいものは \\192.168.0.1\Documents and Settings\root\デスクトップ\ 下にコピー そして \\192.168.0.2(3)\Documents and Settings\root\デスクトップ\ 下に存在してなくて \\192.168.0.1\Documents and Settings\root\デスクトップ\ にあるものは削除するようにする。 ログイン時には同様の逆の手順で行えば単時間で \\192.168.0.2\Documents and Settings\root\デスクトップ\ と \\192.168.0.3\Documents and Settings\root\デスクトップ\ ともコピー&削除作業時間を浪費せずに同じフォルダ&ファイル環境を築けると考えます。 このようにするにはbatファイルをどのように記述すれば宜しいでしょうか?
- 締切済み
- その他（プログラミング・開発）
- VBA フォルダ内にファイルが存在するか確認したい
OS： WindowsXP Office： 2003 ExcelVBAについて教えてください。 VBAで特定のフォルダー内でファイルが存在するかの確認をしたいのです。 例えば、以下のようなフォルダーに営業日がファイル名に付いた複数のファイルがあります。 C:\Documents and Settings\aaa\デスクトップ\作業\報告書20120201.xls C:\Documents and Settings\aaa\デスクトップ\作業\報告書20120202.xls C:\Documents and Settings\aaa\デスクトップ\作業\報告書20120203.xls C:\Documents and Settings\aaa\デスクトップ\作業\報告書20120206.xls C:\Documents and Settings\aaa\デスクトップ\作業\報告書20120207.xls C:\Documents and Settings\aaa\デスクトップ\作業\報告書20120208.xls 処理は20120201（2012年2月1日）から順番に行うのですが、その際、 報告書20120203.xlsはファイルが存在しているので変数1を返す。 報告書20120204.xlsは休日のためファイルが存在しないので変数0を返す。 次の処理で変数1の場合は処理をし、変数0の場合は処理を飛ばすと言った内容のマクロを考えています。 要はフォルダー内にファイルが存在するかしないかの部分のマクロ記述を知りたいのです。 どなたか、よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルに関する質問
できそうでできなかったので相談させてください。 （詳細を書くとわかりにくくなるので、簡単なケースで質問しております） ＢＯＯＫ１のシートのランダムに選択した複数の各セルに○を１個入力。 ＢＯＯＫ２のシートにもランダムに選択（しかしＢＯＯＫ１のセルとは重複しない）した複数の各セルに○を１個入力。 上記、ＢＯＯＫ１のシートの情報をＢＯＯＫ２のシートに貼り付けたいのです。（もちろん、ＢＯＯＫ２の情報も生きていて、結果的にＢＯＯＫ１，２両方の○がついたシートを完成させたいのです） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル フォルダ内の.xlsファイルの集計
エクセルで、複数の.xlsファイルの特定セルを集計するマクロを組みたいのですが、VBA勉強しはじめでうまくいかず、皆様の知識をお借りできればありがたいと思い質問させていただきます。 作業としては あるフォルダに複数の.xlsファイル（それぞれのファイルは同一形式で、sheet1およびsheet2は作業用シート。sheet3以降がデータの入ったシートとする）を置いておき、それぞれのデータ入りシート（シート数はファイルにより異なる）の特定セルを集計したものを、新たなブックに書き込む という形です。 その際に、各シートの特定セルの内容により出力するセルを変えたいと思っています。 実際には、 AAA.xlsというファイルの3枚目以降のシートで、L2セルに「Ｂ」と記述があれば別ブックのB3セルに、「Ｃ」と記載されていれば別ブックのC3セルに、それぞれＤ４セルの数値を集計する。 次にBBB.xlsというファイルに関しても同様に集計し、その結果はB4セルとC4セルに出力する これを当該フォルダに入っているファイル全てについて行う ※L2セルには「Ｂ」「Ｃ」以外の文字は入りません。 こういった作業ができればと思っています。 お時間のある方がおられましたら、ご教授いただけますでしょうか。 参考になるサイトなどがありましたら、アドレスだけでも御教えいただけると幸いです。 質問の仕方が悪いようでしたら、ご指摘いただければ再度説明させていただきます。拙劣な説明ですがどうかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ダイアログボックスから関数と変数の挿入
ダイアログボックスから名前とＩＤ番号を入れると最下行にその名前とＩＤになった関数がセルの中に挿入されるようにするにはどうすればいいのでしょうか？ B50='C:\Documents and Settings\Owner\デスクトップ\[(1022徳川家康).xls]Sheet1'!$A$2 B51='C:\Documents and Settings\Owner\デスクトップ\[(1022徳川家康).xls]Sheet1'!$A$3 B52='C:\Documents and Settings\Owner\デスクトップ\[(1022徳川家康).xls]Sheet1'!$A$4 たとえばB50、B51、B52のセルに上記な関数を総合という名前のブックに作成しています。 それは1022徳川家康ブックから読み込まれます。 総合というブックにダイアログボックスがあり織田信長という名前とＩＤ1023を入れると B60='C:\Documents and Settings\Owner\デスクトップ\[(1023織田信長).xls]Sheet1'!$A$2 B61='C:\Documents and Settings\Owner\デスクトップ\[(1023織田信長).xls]Sheet1'!$A$3 B62='C:\Documents and Settings\Owner\デスクトップ\[(1023織田信長).xls]Sheet1'!$A$4 と言うように入力したいと考えています。 ダイアログボックスを使用しないで作成する方が良いのかも良くわかりませんが、このようなものは作成できるでしょうか？ よろしくお願いいたします。
- ベストアンサー
- その他(業務ソフトウェア)
- %USERPROFILE%などのフォルダがデスクトップに。
%USERPROFILE%ーと%USERPROFILE%という隠しフォルダ二つと、%SystemDrive%というフォルダが知らぬ間にデスクトップへ置かれていました。 それぞれ上層、下層フォルダは以下のようになっています。 C:\Documents and Settings\ユーザー名\デスクトップ\%USERPROFILE%ー\Local Settings\Application Data\Microsoft C:\Documents and Settings\ユーザー名\デスクトップ\%USERPROFILE%\Local Settings\History\History.IE5 C:\Documents and Settings\ユーザー名\デスクトップ\%SystemDrive%\Documents and Settings\ユーザー名\Application Data\Microsoft\SystemCertificates これら三つのフォルダはデスクトップから削除しても他のプログラムなどに影響はないでしょうか？ 影響のある場合、デスクトップから削除若しくは移動したい場合はどのようにすればよいのでしょうか？
- 締切済み
- Windows XP
- VBA フォルダ内にあるブックをすべて開く
いつもお世話になります。 デスクトップ上にフォルダ「新しいフォルダ」があり、その中に６つエクセルブックがあります。 Book1.xls Book2.xls Book3.xls Book4.xls Book5.xls と test.xls です。 test.xlsに、Book1～Book5を開く というマクロを作り実行したところ、実行時エラー1004 『Book1.xlsがみつかりません』と表示されます。 Sub test() Dim buf As String, i As Long buf = Dir("C:\Documents and Settings\tsasaki\デスクトップ\新しいフォルダ\*.xls") Do While buf <> "" i = i + 1 Workbooks.Open Filename:=buf 'Cells(i, 1) = buf buf = Dir() Loop End Sub どのが間違っているか教えてもらえますか。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました できました 大変たすかりました