- ベストアンサー
VBAで特定のファイルを順番にオートで開く
singlecatの回答
'こんな感じでしょうか？ dim i1 as integer dim i2 as integer dim TargetWorkBook As Workbook for i1=1 to 6 Set TargetWorkBook = Workbooks.Open(Range("A" & i).value & ".xls") for i2=1 to 3 '実行させたいサブルーチン(マクロ)を呼ぶ next TargetWorkBook.Save TargetWorkBook.Close next
関連するQ&A
- ファイルの順番
フォルダの中のファイルを決まった順番に並べたくてファイル名の前に番号を付けたのですが「名前順に整列」をクリックすると１の次は２１になります。並べたい順にする方法を教えてください。
- ベストアンサー
- Windows XP
- Excel VBA ファイルをまとめる
Excel2003にてフォルダにある複数ファイル（8個）の各1番左のシートを 指定したファイルにまとめるVBAを組みたいと思います。 まとめる際、ファイル名の一部を取得し、シート名にしたいのですが可能でしょうか？ 例： ファイル名：20110927_△△△△株式会社.xls ⇒ シート名：△△△△株式会社 ※ファイルの個数は固定ですが、年月の部分は変わります。 簡単なVBAの経験しかなく、キーワード検索でもしっくりこないものばかりで どのようにコードを記述してよいのか非常に困っています。
- ベストアンサー
- Visual Basic
- エクセルVBAでの画像ファイル取得の順番
VBAについての質問です。 http://hp.vector.co.jp/authors/VA033788/kowaza.html#0158 上記（↑1）をベースに、こちら（↓2）で教えていただいて http://okwave.jp/qa4443857.html ファイルを作りました。 画像ファイル取得順についてなのですが、 ベースになっている（1）の時点で既に、 元ファイル名「1」「2」「3」「4」「5」を読み込むと 「5」「1」「2」「3」「4」の順、 元ファイル名「01」「03」「07」「10」「15」を読み込むと 「15」「01」「03」「07」「10」の順、 つまり一番最後に来て欲しい画像だけが一番前に、 その他は順番に読み込まれます。 （画像の制作日時・保存日時などはバラバラです。） 今のままでも、マクロを使わない時に比べて随分早く仕事が進みますので 満足はしているのですが、毎回毎回「一番最後の画像を一番前に持ってきて、その後の画像をずらしていく」という作業をしているため、 マクロでどうにかならないかな〜と思っています。 どなたかご教授下さい。宜しく御願い致します。
- ベストアンサー
- オフィス系ソフト
- 複数ファイルの同じ位置のセル内容を、それぞれファイル名・シート名にして保存したい
VBA初心者ですが、いろいろなＱ＆Ａを検索して、やりたいことの解決方法を模索しているのですが、私の疑問にドンピシャの回答が見つからず悩んでいます。 目的は、あるフォルダ内の、複数のランダムなファイル名のエクセルファイルについて、それぞれのファイルを開き、アクティブシートのＡ１セルの入力内容に基づき、そのシートの名前を変更し、ファイル名も変更して保存するという作業です。（例えば、Ａ１に「山田」と入っていたら、シート名も「山田」にして、「山田.xls」で保存する。） マクロの自動作成で、例えば「Ａ」というファイルは開いてシート名を変え、ファイル名を付けて保存するくらいのことはできるのですが、ファイル名がランダムに代わったり、ファイル数が複数になるとできません。 このようなマクロを作ることは可能なのでしょうか？。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Ｅｘｃｅｌで、開いたファイルを消したい
Excel2000ですが、 デスクトップ上に保存したcsvファイルを開く ↓ 作業中のブックにシートを増やしそこに先ほど開いたcsvファイルを貼り付けてシート名を変更 ↓ 開いたcsvファイルを閉じる という作業ですが、ＶＢＡマクロにするとどういうプログラムになるのでしょうか？教えてください。
- ベストアンサー
- オフィス系ソフト
- 他のExcelファイルのVBAコードを検索したい
他のExcelファイルに書かれたVBAコードに、ある特定のキーワード（パス名など）が使われているかを自動的に調べるためのVBAを書きたいと思っています。 仕事で使っているマクロが書かれたExcelファイルからある特定の処理をしているマクロを含むものを検索したいのですが、検索するExcelファイルが膨大なため、順番にExcelファイルを開いてVBAコードをチェックしていく工程をマクロ化したいのです。ファイルを順に開いていく処理はマクロ化できるのですが、書かれたVBAコードのチェックをどうしたらよいか悩んでいます。 「VBAコードに対して検索する」または「VBAコードを１行ずつ変数に代入する」、「モジュールシートをテキストファイルに出力する」などの処理が自動化できれば対応できそうなのですが、そのような処理をExcelVBAで作成できるでしょうか。 なお環境はWindowsXPのExcel2003です。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- 特定のオートシェイプだけ削除するVBA
エクセルで一枚のシートに複数のオートシェイプを使用したものがあります。 オートシェイプを使用しているセルの範囲は （A1：L22）と（M1：U22）の二箇所なのですが、 VBAで（A1：L22）の範囲にあるオートシェイプのみ削除する事は可能でしょうか？ （A1：L22）内のオートシェイプは作業内容により毎回変わるので 形などは特定できません。 また、オブジェクトの選択で範囲指定をした後削除という方法もあるのですが この削除の作業の前後に他の作業のVBAを使用しているので VBAで削除が出来ればと思います。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでも新規ファイル作成
Excel2003です。 下記のコードであるシートを別ファイルにして保存するコードを書いています。ただ、このコードでは、コピー元のシートにExcel関数が入っているために、出来上がった新規ファイルを開くときに常に”リンクの更新”を聞かれてしまいます。リンクの更新をする必要はないのでファイルを開くたびに”更新しない”を選択してもよいのですが、初めからこの”リンクの更新”メッセージが出ないようにするには何か良い手立てはないでしょうか？ ------------------------------------------------------------- Sub ファイル作成() '報告書を"名前を付けて保存" Sheets("Sheet1").Select Dim 既定ファイル名 As String Dim 保存ファイル名 As Variant 既定ファイル名 = "新規報告書" 保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名, "Excel ブック(*.xls),*.xls") If 保存ファイル名 = False Then MsgBox "保存は中止されました。" Sheets("Sheet1").Select Else With ThisWorkbook.ActiveSheet Workbooks.Add .Copy After:=ActiveWorkbook.Sheets(1) Application.DisplayAlerts = False ActiveWorkbook.Sheets(1).Delete Application.DisplayAlerts = True ActiveWorkbook.SaveAs 保存ファイル名, xlNormal ActiveWorkbook.Close False End With Sheets("Sheet1").Select End If End Sub ---------------------------------------------------------------
- 締切済み
- オフィス系ソフト
- 【Excel VBA】1つのファイルにまとめる方法
1つのフォルダの中に複数のExcelファイルが保存されています。 seat1だけを1つに集めたExcelファイルを新規で作成したいです。 ※シート1をどんどん追加させるイメージです。 ※フォルダの中に入っているExcelファイル数は毎月変わります。 手順(1)フォルダに入っているExcelシートを開く 手順(2)sheet１を【シートの移動またはコピー】新規BOOKにコピー 手順(3)フォルダに入っているExcel分繰り返す。 手順(4)シート名を変更する。 どういう風にVBAコードを記入すればいいかわからないので教えていただきたいです。どうぞよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- Ｅｘｃｅｌのブック内のシート名を順番に表示させる
類似の質問を探していろいろ試してみたのですがどうしてもうまくいかなくて・・・教えてください。 ブック内にシートが複数枚あるとします。 最初の１枚目のシートは一覧表となっておりそのシートのセルＡ１から順にＡ２、Ａ３…と下に表が続いています。 セルＡ１には２枚目のシート名が自動的に入力される セルＡ２には３枚目のシート名が自動的に入力される というようにブック内にあるシート名を順番に セルに表示入力できる方法はありますか？ ちなみにＶＢＡはほとんど触ったことはありません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
早速のご回答ありがとうございます。 Set TargetWorkBook = Workbooks.Open(Range("A" & i).Value & ".xls") のところでうまくファイルとエクセルシートを開く事ができませんでした。 何か特別な設定方法が必要でしょうか？？ 何度もすみません...