BOOKを開かずにシートのコピー

Question

現在マクロを実行すると、開くexcelを選択してそのシートをコピーするような流れになっているのですが、excelのファイルを開いてシートをコピーするのではなくて、開かずにシートを丸ごとコピーする方法はありませんでしょうか？

Comments

[coko1]

丸投げではない気がします。どう受け取ってそう思ったのかを教えていただきたいです。

Answer 1

ファイルをコピーすれば、全てのシートがワークブック毎コピーされます。

以下、追記1

VBAで行う場合は、FileCopyを使います。

以下の例はC:\Work\Sample1.xlsxをC:\Work\Sample2.xlsxにコピーします。

FileCopy "C:\Work\Sample1.xlsx", "C:\Work\Sample2.xlsx"

Comments

[coko1]

この例ですとパスを指定していますが、ダイアログ画面から開かずにコピーするファイルを選択できたりはできないでしょうか？またコピーしたいのがマクロを実行しているexcelファイルの新しいシートなのですが、そのexcelの内容が上書きされることにはならないのでしょうか

[moonphase]

ダイアログは以下でどうぞ。
Dim file1 As String
file1 = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")

コピー先が自分自身ということは、開かずに処理するのは不可能です。
厳密に言うと、FileCopyもExcelとしては開いてませんが、OSレベルではファイルを開いています。
Excelとして開かずに処理する場合は、ODBC Excel Driverを使って開き、中のデータを自分自身のワークブックに新しいシートにコピーすればいいです。
ですが、この方法では書式などがコピーされません。

他の方法として、SYLK形式であれば全てテキストで表現できるExcelファイルなので、これを利用するのもありです。

念のため確認したいのですが、開かずにコピーしたいのは何故でしょうか？

[coko1]

ファイル開いて閉じるというステップを省けるのならそれが好ましかったので。

Answer 2

解決済みのようですが、以前にも似た様な質問がありましたので参考までに。
→https://teratail.com/questions/37322

「ファイルを開かずに」という言葉の意味にもよるのですが、純粋にファイルを開かずにセルの値を参照する方法として、ExecuteExecl4Macroを利用する方法があります。
しかし、セルの参照だけではなくシートのコピーとなると、この関数では難しいと思います。

もし「ファイルを開かずに」という言葉が、「ファイルを開いたことがわからないように開いて、用が済んだら閉じる」のでもよいのであれば、先ほどご紹介した質問が役に立つかもしれません。