PR
カレンダー
カテゴリ
カテゴリ未分類
(2)DB-SQL Server 2012
(7)DB-SQL Server 2008
(23)DB-SQL Server
(27)DB-Oracle
(4)DB-TransactSQL
(32)DB-PL/SQL
(6)資格
(31)その他
(16)2026.05
2026.04
2026.03
2026.04
2026.03
2026.02
2026.01
2026.01
キーワードサーチ
▼キーワード検索
ジャムシード
Database Developerという肩書を得るために日々格闘する文系エンジニアのブログ
コメント新着
2009.05.09
カテゴリ： その他
Excel2007について。。
Excelへのレポート等の出力でテンプレートを新しいブックにコピーする方法を使ったりすることがある。
で、Excelのテンプレートをxlsxで作成し、新しいブックを作成してコピーするマクロを書く。
Sub Test()
Dim xlApp As Object
Dim xlBook As Object
Dim xlTemp As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlTemp.Worksheets("Template").Copy xlBook.Worksheets(1)
xlTemp.Close False
xlApp.Visible = True
Set xlTemp = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
上記の処理はExcel2007で実行してもエラーになることがある。
「実行時エラー '1004':
移動先またはコピー先のブックの行列数が元のブックの行列数よりも少ないため、シートを移動先またはコピー先のブックに挿入できません。データを別のブックに移動またはコピーするには、データを選択して、[コピー]コマンドと[貼り付け]コマンドを使用して移動先またはコピー先のブックのシートの挿入してください」
これはExcelのオプションでデフォルトの保存形式を「Excel2000-2003(xls)」に変更していると発生する。
Excel2007は世の中的にはまだそれほど多く使われていないため、安易に保存した形式がxlsxになっていると、外に送ったときに「開けない」と言われてしまう可能性が高いから、予防的にデフォルトの保存形式を変更しているのだから、これはダメだとは言えない。
では、保存形式に関わらず、新規ブックを互換モードで開くためにはどうするか。
いろいろ試行錯誤した結果としては、空のbook.xlsxというExcelファイルを作成しておき、以下のようにする
Set xlBook = xlApp.Workbooks.Add("C:\Temp\Book.xlsx")
これで新規ブックはBookという名前(重複していればBook1～)で2007モードで作成され、コピーは失敗しなくなる。
Excelへのレポート等の出力でテンプレートを新しいブックにコピーする方法を使ったりすることがある。
で、Excelのテンプレートをxlsxで作成し、新しいブックを作成してコピーするマクロを書く。
Sub Test()
Dim xlApp As Object
Dim xlBook As Object
Dim xlTemp As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlTemp.Worksheets("Template").Copy xlBook.Worksheets(1)
xlTemp.Close False
xlApp.Visible = True
Set xlTemp = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
上記の処理はExcel2007で実行してもエラーになることがある。
「実行時エラー '1004':
移動先またはコピー先のブックの行列数が元のブックの行列数よりも少ないため、シートを移動先またはコピー先のブックに挿入できません。データを別のブックに移動またはコピーするには、データを選択して、[コピー]コマンドと[貼り付け]コマンドを使用して移動先またはコピー先のブックのシートの挿入してください」
これはExcelのオプションでデフォルトの保存形式を「Excel2000-2003(xls)」に変更していると発生する。
Excel2007は世の中的にはまだそれほど多く使われていないため、安易に保存した形式がxlsxになっていると、外に送ったときに「開けない」と言われてしまう可能性が高いから、予防的にデフォルトの保存形式を変更しているのだから、これはダメだとは言えない。
では、保存形式に関わらず、新規ブックを互換モードで開くためにはどうするか。
いろいろ試行錯誤した結果としては、空のbook.xlsxというExcelファイルを作成しておき、以下のようにする
Set xlBook = xlApp.Workbooks.Add("C:\Temp\Book.xlsx")
これで新規ブックはBookという名前(重複していればBook1～)で2007モードで作成され、コピーは失敗しなくなる。
お気に入りの記事を「いいね！」で応援しよう
[その他] カテゴリの最新記事
-
Windows7 2009.08.23
-
70-454は８月開始に延期 2009.04.16
-
Q&A 2008.08.07
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
