- ベストアンサー
Excel 閉じているブックのシート名を変更する方法
ham_kamoの回答
- ham_kamo
- ベストアンサー率55% (659/1197)
以下のマクロは BookB.xls の1番目のシート名を NewSheet1 という名前に変更します。閉じているままでは無理なので、一度開いて変更して保存して閉じてます。ただしその間は画面の再描画を止めているので、BookBが開かれたことは一見わかりません。使用するときはブック名、シート名を適切なものに変更してください。 Sub 他のブックのシート名を変更() Const BookName As String = "BookB.xls" Const SheetName As String = "NewSheet1" Application.ScreenUpdating = False Workbooks.Open (BookName) With Workbooks(BookName) .Sheets(1).Name = SheetName .Save .Close End With Application.ScreenUpdating = True End Sub
関連するQ&A
- エクセル シートをブックに分ける方法
エクセル2003を使用しています。 ひとつのブックに、シートA、B、C とある場合、 それを、シートAだけのブック(ファイル)、 シートBのファイル、シートCのファイル というように、一気にファイルに分けることは可能でしょうか? できれば、ファイル名=シート名で、設定できるとうれしいです。 可能でしたら、方法を教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- フォルダ内の全ブックのシート名を変更したいです。
同一フォルダ内に、ファイル名の違うエクセルブックが100個ほどあります。 その100個のそれぞれには、シートが1つ入っています。(シート名は、ブック毎に異なっています) それらのシート名を100個全部、「2013-07」という名前にしたいのですが、マクロで一括処理はできますでしょうか? データが多く、マクロ初心者なので、困っております。。 エクセルは2013を使用しています。 お教えいただければ幸いですm(_ _)m
- ベストアンサー
- オフィス系ソフト
- エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
いつもお世話になります。 エクセルのシート名についての質問です。 いつもはシート名を変えるとき、シートタブの上を右クリックして「変更」しています。 ◆そこで、 (1) セル「A1」に入力されてある文字を自動で出す (2) もしくはマクロボタンを押すと「A1」に入力されてあるものが「シート名」として変わる というようにしたいのですが、その方法について教えてください。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA(エクセル)で自動的にボタンをクリックさせるには
いつもお世話になっております。 下記のことがしたいのですがどうやって良いのかがわからなくって困っております。 やりたいこと。 AブックとBブックが有るとします。(双方ともエクセルファイル) エクセルのVBAで、Aブックのシート上のコマンドボタンを押すと Bブックのシート上のコマンドボタンをクリックするという動きを VBAでさせたいのですがどうしてもクリックさせることができません。 試したこと。 初めは、AのボタンをクリックするとBのボタンをセレクトして SendKeysでENTERを送ってみたりしたのですがうまくいきませんでした。 何かやり方が有りましたら、お教えいただけませんでしょう。 宜しくお願いいたします。
- ベストアンサー
- その他(プログラミング・開発)
- 複数のエクセルブックをひとつのブックにまとめる方法
同一フォルダに複数のエクセルブック(100個以上)が入っています。 その中のSheet1だけ(Sheet1~3まですべてのブックにあります)を一つのエクセルにまとめたいです。 ブックの中にSheet1、Sheet1(1)、Sheet1(2)・・・ みたいになればいいです。 Sheet名がブック名になるのが理想ですが。。 どのようにすればよろしいでしょうか?
- 締切済み
- Visual Basic
- フォルダ内にある複数ブックのシート名の変更
エクセルのVBAについて質問させて下さい。 現在、アクセス2000でクエリをマクロのワークシート変換で 規定のエクセルブック(2000)にエクスポートしています。 項目別なので30以上のブックになっています。 これを毎月の更新で12ヶ月分エクスポートします。 問題なのがクエリ名がシート名になっていますが、このシート名を 月によって変更したいのです。ブックが30以上あるので手作業では 自分1人の作業だとやってしまうのですが、不在時に他の人にやって もらうには無理があるかなと・・・。 イメージとしては、マクロブックのコマンドボタンを押すと そのフォルダにある30以上のブックの一番右にあるシートを マクロブックのセルA1に入力した月に変更し、変更したシート内の 1行目の項目名の長さに合わせてセルの幅を変更し、項目名に色をつけるというイメージです。 今までは2項目くらいだったので手作業でやっていたのですが、 30以上になると手作業ではつらい状況です。 VBAは初心者なので答えをいただけると大変ありがたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ブック間のシート移動
EXCEL VBA初心者です。 ブックAのシートAをブックBのシートの一番左側に移動させようと思います。 以下を実行するとエラーが出ますがなぜでしょうか? エラーの原因と対策方法を教えて下さい。 Sub シート移動() Worksheets("シートA").Move _ Before:=Workbooks("ブックB.xls").Sheets(1) End Sub ブックAはブック名が毎回変わります。 ブックAはメール添付を開いたブックです。 ブックAはシートがシートAしかありません。 シートAは名前が変わりません。 マクロコードはブックBあるいは個人用マクロブックに置きます。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA 他ブックのシートのコピー方法
今開いているブックに、開いていない他のブックのシートをコピーする記述方法を教えて頂けませんでしょうか。(Office365を利用) 開いているブック :A.xlsx シート:a 開いていないブック:B.xlsx シート:b bをaの後ろにコピーする方法を教えてください。aにボタンを置いて、それをクリックしたらという方法でも構いません。 よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルのシートを別のブックに貼り付けたい
エクセル2003でブックAという名前のブックを作成しました。その中にシートにはブック内へのリンクがあります。 そして そのシートを別のブックBにコピーしたいのです。 普通にコピー→貼り付け をすると ブック内へのリンクがすべてブックA内へのリンクになってしまいます。 どうしたら ブックAへのリンクを外してコピーできるのでしょうか?
- 締切済み
- オフィス系ソフト
- VBAによるブック間のシートの移動またはコピペ
検索で探すもピッタリ来るものが探せなかったものですみません。 Aブックにシート1とシート2があります。 bブックにシート3があります。 シート2とシート3の名前は同じ"abc"とします。 Aブックのシート1にコマンドボタンを設置し、このボタンをクリックするとシート3をシート2に移動またはコピー&ペーストするようにVBAで実現できますでしょうか? よろしくご教授ください。
- ベストアンサー
- オフィス系ソフト
補足
回答ありがとうございます。 試してみたのですが・・・ With Workbooks(BookName) ↑ ここでエラーになります(インデックスが有効範囲にありません) Const BookName As String = "BookB.xls" ↑ ここは当然フルパスで記述するんですよね。 確かにここで指定したファイル(ブック)はオープンされています。 何度も見返したのですが。 もう一度確認してみます。 取り急ぎ御礼まで。