Hakofuguさん、おはようございます。

すみません、返信遅れました。

oleobject ole_workbook_fr, ole_workbook_to　//ワークブック
oleobject ole_null

setnull(ole_null)

ole_workbook_fr.sheets(\"シート名\").copy( ole_null, ole_workbook_to.sheets(\"シート名\") )

でコピー先のシート(to)の後ろにコピー元のシート(from)がコピーされます。

＞前立腺肥大さん、こんにちは。
＞
＞＞いろいろありがとうございました。
＞＞
＞＞私なりの結論です。列幅はコピーできません。
＞＞そこでデータコピーの前に列幅だけコピーして，それからデータをコピーすることで
＞＞なんとか対応できました。
＞＞
＞＞サンプル
＞＞    //* 新規シート作成
＞＞    //* 列幅コピー
＞＞    FOR n = 1 TO excel_retu_max
＞＞ ole_excel_saki.Application.ActiveSheet.Columns( n ).ColumnWidth = &
＞＞        ole_excel_moto.Application.ActiveSheet.Columns( n ).ColumnWidth
＞＞    NEXT
＞＞    //* データコピー
＞＞
＞＞以上
＞＞
＞＞
＞既に結論を出されたようですが、こんなものを見つけました。
＞コピー先が新しいブックではなく既存のブックにして
＞最後のCells.Clearをコメントにすれば実現できるのでしょうか。
＞応用できませんかねぇ。実験も検証もせずに垂れ流し状態で申し訳ありません．．．．
＞
＞Sub シートの列幅と行高を新規ブックのシートへコピーする()
＞    Worksheets(\"シート名\").Cells.Copy                \'※１ すべてのセルをコピー
＞    Workbooks.Add                               \'ブックを新規作成
＞        Range(\"A1\").PasteSpecial Paste:=xlPasteAll \'すべて貼り付ける
＞        Cells.Clear                             \'すべてクリア
＞End Sub
＞
＞