Excelで最初に開いたファイル名称を覚える処理の実装方法は？
- Excelで最初に開いたファイル名称を覚える処理を実装する方法について教えてください。
- 複数のExcelファイルが開かれている状況でも、エラーなく特定のファイルを後から開いた場合にも対応する方法について知りたいです。
- Excelのマクロを使用して、実行したファイル名を覚える処理を実装したいです。
- ベストアンサー
excelで最初に開いたファイル名称を覚えておく様な処理は可能ですか？
excelで最初に開いたファイル名称を覚えておく様な処理は可能ですか？ １．最初の処理 (1)A.xlsのファイルを開く (2)マクロ：2010.xlsのファイルを開く (3)マクロ：チェックのシートをA.xlsの明細のシートの前に追加 (4)マクロ：チェックのシート名称をコピーした日付と時間のシート名に変更 (5)マクロ：2010.xlsのファイルをディスクトップ上から削除 ２．後から追加する処理 (6)B.xlsのファイルを開く （B.xlsは、A.xlsとは異なるフォルダを作成し、A.xlsの特定のセルの中身の名称でファイル名保存されます。名前が異なるだけでマクロの中身はA.xlsと同じ） (7)マクロ：2010.xlsのファイルを開く (8)マクロ：チェックのシートをB.xlsの明細のシートの前に追加 (9)マクロ：チェックのシート名称をコピーした日付と時間のシート名に変更 (10)マクロ：2010.xlsのファイルをディスクトップ上から削除 上記を対応する為に下記の様なマクロ（(6)(7)の部分を抜粋）を設定しています。 '2010.xlsのファイルを開く(2010.xlsのファイルは適宜、ディスクトップにコピーされます） Workbooks.Open FileName:="C:\Documents and Settings\ID\デスクトップ\2010.xls" 'チェックのシートを現在のブックの明細の前にコピーする。 Windows("2010.xls").Activate Sheets("チェック").Copy before:=Workbooks(1).Sheets("明細") 単独でA.xlsやB.xlsのファイルが開かれている場合には、 上記の対応で問題ないのですが、A.xls、B.xls以外のexcelファイルが開かれていると、 実行時エラーが出てしまいます。 Workbooks(1)の部分で最初に開いたexcelのファイル名称を指定しているのが 影響しているのはわかるのですが、ここの処理をなんとかしたいというおもいです。 つまり、複数のexcelファイルが開かれていて、A.xlsやB.xlsのファイルを後から開いても エラーがでない様にするには、どの様な処理にしたらよいのか教えて頂きたく。 マクロを実行したexcelのファイル名を覚えておいて、その名前が（１）に置き換わる 様な処理が望まれる処理です。
- 3620313
- お礼率84% (217/257)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
>チェックのシートを現在のブックの明細の前にコピーする。 >Windows("2010.xls").Activate >Sheets("チェック").Copy before:=Workbooks(1).Sheets("明細") "現在のブック" が当マクロが書かれているブックなら Sheets("チェック").Copy before:=ThisWorkbook.Sheets("明細")
関連するQ&A
- エクセルマクロ ファイル名を変更したとき
マクロ初心者です。 データファイルからシートを複写挿入するマクロです。 コピー先ファイル名を都度変更したいのですが、その場合マクロにコピー先ファイル名が入っているのでエラーになります。名前が変わっても実行できるようにするにはどうしたらよいのでしょう？ なお、複写元のデータファイルは複写後に閉じます。 Workbooks.Open Filename:="データファイル.xls" Sheets("Sheet1").Copy Before:=Workbooks("コピー先ファイル名.xls").Sheets(1)
- ベストアンサー
- オフィス系ソフト
- 別ｅｘｃｅｌのデータを引き出す時に、そのｅｘｃｅｌ名称を可変にしたいと思っています。
別ｅｘｃｅｌのデータを引き出す時に、そのｅｘｃｅｌ名称を可変にしたいと思っています。 なるべくマクロを使わないで出来るでしょうか？ 例： =VLOOKUP(A1,[B.xls]Sheet1!$A$1:$E$10,4,FALSE) という関数を指定したとします。 [B.xls]Sheet1 この部分をセルA1に入れて、内容を変更することで 引き出し元のファイル＆シートを変えたいと思っています。 つまりA1のセルの値を[C.xls]Sheet2にすることで、C.xlsファイルのSheet2からデータを引っ張って来たいのです。 出来るでしょうか？ ご存知の方いらっしゃいましたら、宜しくお願い致します。 環境は OS：WINDOWS98 EXCEL2000 です。
- 締切済み
- オフィス系ソフト
- Excel VBAで異なるファイル間のコピー
異なるファイル間で値のみをコピーしたいです。下記の様な感じです。 hoge1.xlsのA1からA10のセルの値のみをhoge2.xlsのB1からB10へコピーする。 以下の様に書いてみたのですが、数式がコピーされてしまいます。 VBAをやったことがなく、今ネットで30分ほど見て書いてみたので 根本的に理解していません。簡単な書き方を教えていただきたいです。 Sub test() Dim Fname As String Fname = "hoge1.xls" Workbooks.Open Filename:=Fname, ReadOnly:=True Dim range1 As Range Set range1 = Worksheets("Sheet1").Range("A1:A10") range1.Copy Destination:=Workbooks("hoge2.xls").Worksheets("Sheet1").Range("B1:B10") End Sub また、ファイルを開いたり閉じたりは必要なのでしょうか？ Workbooks.Open Filename:=Fname, ReadOnly:=True を書かずに、いきなり Set range1 = Workbooks("hoge1.xls").Worksheets("Sheet1").Range("A1:A10") はダメなのでしょうか？？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 別ファイルから シートを リンクを張らずに コピーしたい
エクセル２００３ １～４ はファイルの状態の説明です。 やりかたを質問したい部分は ５です。 １、ファイル（ブック）Ａ．xls → 計算式が大量に入った数シートからなるファイル があるとする。 ２、Ａ．xls を そのままコピーし コピーされたファイルは Ｂ．xls に リネーム。 ３、Ａ．xls は 計算式等は変更しないが、データを変更し通常業務で使用。 ４、Ａ．xls の新バージョンを作るために Ｂ．xls を使って計算式等を編集。 （複数あるシートのうち一部シート（シート名 「あいうえ」 とする）のみの変更に加え さらに新シート「さしすせ」を作成） ５、Ａ．xls のシート名 「あいうえ」をＢ．xlsで作った シート名 「あいうえ」と置き換え、 さらに新シート「さしすせ」もＢ．xlsからコピーして追加する。 普通にシート名 「あいうえ」や 新シート「さしすせ」を選択し コピーを行うと Ｂ．xls からリンクを張った状態でコピーされて しまう。たとえば シート「あいうえ」セルＡ１の中身を見ると =[B.xls]あいうえ!A1*2+1 といったように [B.xls]が付いて コピーされる。 これを回避して、単にそのまま丸ごと（Ａ．xlsの中だけで編集したかのように） シートをコピーするにはどうしたら よいのでしょうか？ 長くなってすいません。 よろしくおねがいいたします。
- 締切済み
- オフィス系ソフト
- エクセルマクロでマクロをアクティブにしたくない
エクセルのマクロをひとつの「マクロA」という名前で、データーファイルからセルに入っている内容などを呼び出しながらまくろAのシートにデーターを貼り付けながら作業をしています。 Workbooks.Open Filename:= _ "C:\Documents and Settings\owner\My Documents\マクロ.xls" Application.Run "マクロ.xls!マクロ" と記載すると、マクロXLSがアクティブになってしまいます。 その為記載に'ActiveWindow.WindowState = xlMinimized と入れたりするのですが、アクティブになるシートがマクロ以外にうまくいかないことがあるのです。 データーシートは、毎回データーが変わる関係で、DATA．ｘｌｓがAのときやBのときが発生します。
- ベストアンサー
- Excel（エクセル）
- excelマクロ 別ファイルの特定列をコピーしたい
C:\testの配下にexcelファイル「aaa.xls」「aaa_yyyymmdd.xls」「bbbxls」があります。 「aaa_yyyymmdd.xls」は「aaa.xls」のバックアップファイルです。 又、「bbbxls」にマクロを記述しようと思います。 ☆処理内容☆ 「aaa.xls」「aaa_yyyymmdd.xls」が開いていない状態で、「aaa.xls」のシート「sheet1」内の Ｅ列をコピーして「bbbxls」のシート「sheet3」のＡ列に貼り付け。 「aaa_yyyymmdd.xls」のシート「sheet1」内の Ｅ列をコピーして「bbbxls」のシート「sheet3」のＢ列に貼り付け。 その後、張り付けたＡ列を正としＢ列と比較して、差異があった場合はＢ列の差異があった部分の セルに色つけをした後、「aaa_yyyymmdd.xls」をC:\test:\oldフォルダに移動する。 上記のようなexcelマクロを作成中なのですが、できなくて困っております。 有識者の方、助けを貸してください。 よろしくお願い致します。
- 締切済み
- Visual Basic
- XCELのＶＢＡマクロで次のことが実行できますか。
XCELのＶＢＡマクロで次のことが実行できますか。 (前提）WINDOWSで (1)MYDOCのフォルダＡにＥｘｃｅｌファイルA1.xlsからA9.xlsまで9個のファイルと、もう一つマクロBＢの入ったExcelファイルＢ.xlsがあります。 (2)各Ａｉ.xlsには、Aｉsheet（i＝１カラ9）と名前のsheetが１つのみあります。 (処理したいこと） A1.xlsを開き、A1sheetを、Ｂ.xlsへcopyし、そのシートに対してマクロＢＢという処理を実行します。 続いて同様にA2.xlsを開き、A1sheetを、Ｂ.xlsへcopyし、そのシートに対してマクロＢＢという処理を実行します。 以下A9まで実行したい。 (質問）Ｂのマクロに新たにＣＣというマクロを作り、ＣＣを実行することで、自動的に(処理したいこと）を実行してしまうようなものを作れますか。 また作るとしたらおおよそどんな風に作ればいいでしょうか。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELのVBAで質問があります。
EXCELのVBAで質問があります。 次の処理を実現しようと、 １．テンプレート的なファイルを用意する。 ２．作業ファイルの作業シート（VBA組み込み有）を 初期化するために「１」のファイルからセルをコピーする ※マクロがあるため、単純なシートコピーは出来ない 以下のようにコーディングしました。 objXls = CreateObject("Excel.Application") objXlsWorkBook = objXls.Workbooks.Open("C:\Template.xls") objXlsSheet = objXlsWorkBook.Sheets("テンプレートシート") objXlsSheet.Range("1:10").Copy ActiveWorkbook.Worksheets("作業シート").Range("1:10").PasteSpecial すると、コピーした内容がオブジェクト（図）として貼り付けられました。 どうすればオブジェクトではなく、セルとしてコピーが可能になるのでしょうか。 「Workbooks.Open("C:\Template.xls")」としてもいいのですが、 ファイルが見えてしまうのが都合が悪いのです。 どうかよろしくお願いします。
- ベストアンサー
- Visual Basic
- マクロ（エクセルシートコピー先）に関して
分かりましたら教えてください。 A.xlsのシートBを、新しいブックにコピーし移動するときに、そのブック名が、常にそのシートBのセルC3に入力されている文字の名前にするようにマクロを組みました。(....Filename:Range("C3")としています。） さらにC.xlsのシートDもその新しいブックにコピー移動させるマクロを追加したいのですが、コピー先をどのように指定すればいいのでしょうか。。
- ベストアンサー
- オフィス系ソフト
お礼
早々に回答頂きありがとうございました。 結果はばっちりでした。m(__)m